summaryrefslogtreecommitdiff
path: root/.localrepo/consult-dir-20250313.359.tar
blob: d140623031fb18d901856ed1da5311febe501d2c (plain)
ofshex dumpascii
0000 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 32 30 32 35 30 33 31 33 2e 33 35 39 2f 00 00 00 00 00 00 00 consult-dir-20250313.359/.......
0020 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0040 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0060 00 00 00 00 30 30 30 30 37 35 35 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 ....0000755.0000000.0000000.0000
0080 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 33 31 37 34 00 20 35 00 00 00 0000000.00000000000.013174..5...
00a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
00c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
00e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0100 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .ustar...root...................
0120 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .........root...................
0140 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0160 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0180 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
01a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
01c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
01e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0200 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 32 30 32 35 30 33 31 33 2e 33 35 39 2f 63 6f 6e 73 75 6c 74 consult-dir-20250313.359/consult
0220 2d 64 69 72 2d 70 6b 67 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -dir-pkg.el.....................
0240 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0260 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 ....0000644.0000000.0000000.0000
0280 30 30 30 30 36 34 32 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 36 35 34 32 00 20 30 00 00 00 0000642.00000000000.016542..0...
02a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
02c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
02e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0300 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .ustar...root...................
0320 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .........root...................
0340 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0360 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0380 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
03a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
03c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
03e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0400 3b 3b 20 2d 2a 2d 20 6e 6f 2d 62 79 74 65 2d 63 6f 6d 70 69 6c 65 3a 20 74 3b 20 6c 65 78 69 63 ;;.-*-.no-byte-compile:.t;.lexic
0420 61 6c 2d 62 69 6e 64 69 6e 67 3a 20 6e 69 6c 20 2d 2a 2d 0a 28 64 65 66 69 6e 65 2d 70 61 63 6b al-binding:.nil.-*-.(define-pack
0440 61 67 65 20 22 63 6f 6e 73 75 6c 74 2d 64 69 72 22 20 22 32 30 32 35 30 33 31 33 2e 33 35 39 22 age."consult-dir"."20250313.359"
0460 0a 20 20 22 49 6e 73 65 72 74 20 70 61 74 68 73 20 69 6e 74 6f 20 74 68 65 20 6d 69 6e 69 62 75 ..."Insert.paths.into.the.minibu
0480 66 66 65 72 20 70 72 6f 6d 70 74 2e 22 0a 20 20 27 28 28 65 6d 61 63 73 20 20 20 22 32 37 2e 31 ffer.prompt."...'((emacs..."27.1
04a0 22 29 0a 20 20 20 20 28 63 6f 6e 73 75 6c 74 20 22 31 2e 30 22 29 29 0a 20 20 3a 75 72 6c 20 22 ").....(consult."1.0"))...:url."
04c0 68 74 74 70 73 3a 2f 2f 67 69 74 68 75 62 2e 63 6f 6d 2f 6b 61 72 74 68 69 6e 6b 2f 63 6f 6e 73 https://github.com/karthink/cons
04e0 75 6c 74 2d 64 69 72 22 0a 20 20 3a 63 6f 6d 6d 69 74 20 22 34 35 33 32 62 38 64 32 31 35 64 31 ult-dir"...:commit."4532b8d215d1
0500 36 62 30 31 35 39 36 39 31 63 65 34 64 65 65 36 39 33 65 37 32 64 37 31 65 30 66 66 22 0a 20 20 6b0159691ce4dee693e72d71e0ff"...
0520 3a 72 65 76 64 65 73 63 20 22 34 35 33 32 62 38 64 32 31 35 64 31 22 0a 20 20 3a 6b 65 79 77 6f :revdesc."4532b8d215d1"...:keywo
0540 72 64 73 20 27 28 22 63 6f 6e 76 65 6e 69 65 6e 63 65 22 29 0a 20 20 3a 6d 61 69 6e 74 61 69 6e rds.'("convenience")...:maintain
0560 65 72 73 20 27 28 28 22 4b 61 72 74 68 69 6b 20 43 68 69 6b 6d 61 67 61 6c 75 72 22 20 2e 20 22 ers.'(("Karthik.Chikmagalur"..."
0580 6b 61 72 74 68 69 6b 2e 63 68 69 6b 6d 61 67 61 6c 75 72 40 67 6d 61 69 6c 2e 63 6f 6d 22 29 29 karthik.chikmagalur@gmail.com"))
05a0 29 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 )...............................
05c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
05e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0600 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 32 30 32 35 30 33 31 33 2e 33 35 39 2f 63 6f 6e 73 75 6c 74 consult-dir-20250313.359/consult
0620 2d 64 69 72 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -dir.el.........................
0640 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0660 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 ....0000644.0000000.0000000.0000
0680 30 30 34 30 33 33 31 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 35 37 36 32 00 20 30 00 00 00 0040331.00000000000.015762..0...
06a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
06c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
06e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0700 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .ustar...root...................
0720 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .........root...................
0740 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0760 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0780 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
07a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
07c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
07e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0800 3b 3b 3b 20 63 6f 6e 73 75 6c 74 2d 64 69 72 2e 65 6c 20 2d 2d 2d 20 49 6e 73 65 72 74 20 70 61 ;;;.consult-dir.el.---.Insert.pa
0820 74 68 73 20 69 6e 74 6f 20 74 68 65 20 6d 69 6e 69 62 75 66 66 65 72 20 70 72 6f 6d 70 74 20 20 ths.into.the.minibuffer.prompt..
0840 2d 2a 2d 20 6c 65 78 69 63 61 6c 2d 62 69 6e 64 69 6e 67 3a 20 74 20 2d 2a 2d 0a 0a 3b 3b 20 43 -*-.lexical-binding:.t.-*-..;;.C
0860 6f 70 79 72 69 67 68 74 20 28 43 29 20 32 30 32 31 2d 32 30 32 34 20 46 72 65 65 20 53 6f 66 74 opyright.(C).2021-2024.Free.Soft
0880 77 61 72 65 20 46 6f 75 6e 64 61 74 69 6f 6e 2c 20 49 6e 63 2e 0a 0a 3b 3b 20 41 75 74 68 6f 72 ware.Foundation,.Inc...;;.Author
08a0 3a 20 4b 61 72 74 68 69 6b 20 43 68 69 6b 6d 61 67 61 6c 75 72 0a 3b 3b 20 4d 61 69 6e 74 61 69 :.Karthik.Chikmagalur.;;.Maintai
08c0 6e 65 72 3a 20 4b 61 72 74 68 69 6b 20 43 68 69 6b 6d 61 67 61 6c 75 72 20 3c 6b 61 72 74 68 69 ner:.Karthik.Chikmagalur.<karthi
08e0 6b 2e 63 68 69 6b 6d 61 67 61 6c 75 72 40 67 6d 61 69 6c 2e 63 6f 6d 3e 0a 3b 3b 20 43 72 65 61 k.chikmagalur@gmail.com>.;;.Crea
0900 74 65 64 3a 20 32 30 32 31 0a 3b 3b 20 50 61 63 6b 61 67 65 2d 56 65 72 73 69 6f 6e 3a 20 32 30 ted:.2021.;;.Package-Version:.20
0920 32 35 30 33 31 33 2e 33 35 39 0a 3b 3b 20 50 61 63 6b 61 67 65 2d 52 65 76 69 73 69 6f 6e 3a 20 250313.359.;;.Package-Revision:.
0940 34 35 33 32 62 38 64 32 31 35 64 31 0a 3b 3b 20 50 61 63 6b 61 67 65 2d 52 65 71 75 69 72 65 73 4532b8d215d1.;;.Package-Requires
0960 3a 20 28 28 65 6d 61 63 73 20 22 32 37 2e 31 22 29 20 28 63 6f 6e 73 75 6c 74 20 22 31 2e 30 22 :.((emacs."27.1").(consult."1.0"
0980 29 29 0a 3b 3b 20 4b 65 79 77 6f 72 64 73 3a 20 63 6f 6e 76 65 6e 69 65 6e 63 65 0a 3b 3b 20 48 )).;;.Keywords:.convenience.;;.H
09a0 6f 6d 65 70 61 67 65 3a 20 68 74 74 70 73 3a 2f 2f 67 69 74 68 75 62 2e 63 6f 6d 2f 6b 61 72 74 omepage:.https://github.com/kart
09c0 68 69 6e 6b 2f 63 6f 6e 73 75 6c 74 2d 64 69 72 0a 3b 3b 0a 3b 3b 20 54 68 69 73 20 66 69 6c 65 hink/consult-dir.;;.;;.This.file
09e0 20 69 73 20 6e 6f 74 20 70 61 72 74 20 6f 66 20 47 4e 55 20 45 6d 61 63 73 2e 0a 3b 3b 0a 3b 3b .is.not.part.of.GNU.Emacs..;;.;;
0a00 20 54 68 69 73 20 70 72 6f 67 72 61 6d 20 69 73 20 66 72 65 65 20 73 6f 66 74 77 61 72 65 3a 20 .This.program.is.free.software:.
0a20 79 6f 75 20 63 61 6e 20 72 65 64 69 73 74 72 69 62 75 74 65 20 69 74 20 61 6e 64 2f 6f 72 20 6d you.can.redistribute.it.and/or.m
0a40 6f 64 69 66 79 0a 3b 3b 20 69 74 20 75 6e 64 65 72 20 74 68 65 20 74 65 72 6d 73 20 6f 66 20 74 odify.;;.it.under.the.terms.of.t
0a60 68 65 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 20 61 73 he.GNU.General.Public.License.as
0a80 20 70 75 62 6c 69 73 68 65 64 20 62 79 0a 3b 3b 20 74 68 65 20 46 72 65 65 20 53 6f 66 74 77 61 .published.by.;;.the.Free.Softwa
0aa0 72 65 20 46 6f 75 6e 64 61 74 69 6f 6e 2c 20 65 69 74 68 65 72 20 76 65 72 73 69 6f 6e 20 33 20 re.Foundation,.either.version.3.
0ac0 6f 66 20 74 68 65 20 4c 69 63 65 6e 73 65 2c 20 6f 72 0a 3b 3b 20 28 61 74 20 79 6f 75 72 20 6f of.the.License,.or.;;.(at.your.o
0ae0 70 74 69 6f 6e 29 20 61 6e 79 20 6c 61 74 65 72 20 76 65 72 73 69 6f 6e 2e 0a 0a 3b 3b 20 54 68 ption).any.later.version...;;.Th
0b00 69 73 20 70 72 6f 67 72 61 6d 20 69 73 20 64 69 73 74 72 69 62 75 74 65 64 20 69 6e 20 74 68 65 is.program.is.distributed.in.the
0b20 20 68 6f 70 65 20 74 68 61 74 20 69 74 20 77 69 6c 6c 20 62 65 20 75 73 65 66 75 6c 2c 0a 3b 3b .hope.that.it.will.be.useful,.;;
0b40 20 62 75 74 20 57 49 54 48 4f 55 54 20 41 4e 59 20 57 41 52 52 41 4e 54 59 3b 20 77 69 74 68 6f .but.WITHOUT.ANY.WARRANTY;.witho
0b60 75 74 20 65 76 65 6e 20 74 68 65 20 69 6d 70 6c 69 65 64 20 77 61 72 72 61 6e 74 79 20 6f 66 0a ut.even.the.implied.warranty.of.
0b80 3b 3b 20 4d 45 52 43 48 41 4e 54 41 42 49 4c 49 54 59 20 6f 72 20 46 49 54 4e 45 53 53 20 46 4f ;;.MERCHANTABILITY.or.FITNESS.FO
0ba0 52 20 41 20 50 41 52 54 49 43 55 4c 41 52 20 50 55 52 50 4f 53 45 2e 20 20 53 65 65 20 74 68 65 R.A.PARTICULAR.PURPOSE...See.the
0bc0 0a 3b 3b 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 20 66 .;;.GNU.General.Public.License.f
0be0 6f 72 20 6d 6f 72 65 20 64 65 74 61 69 6c 73 2e 0a 0a 3b 3b 20 59 6f 75 20 73 68 6f 75 6c 64 20 or.more.details...;;.You.should.
0c00 68 61 76 65 20 72 65 63 65 69 76 65 64 20 61 20 63 6f 70 79 20 6f 66 20 74 68 65 20 47 4e 55 20 have.received.a.copy.of.the.GNU.
0c20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 0a 3b 3b 20 61 6c 6f 6e 67 20 General.Public.License.;;.along.
0c40 77 69 74 68 20 74 68 69 73 20 70 72 6f 67 72 61 6d 2e 20 20 49 66 20 6e 6f 74 2c 20 73 65 65 20 with.this.program...If.not,.see.
0c60 3c 68 74 74 70 3a 2f 2f 77 77 77 2e 67 6e 75 2e 6f 72 67 2f 6c 69 63 65 6e 73 65 73 2f 3e 2e 0a <http://www.gnu.org/licenses/>..
0c80 3b 3b 0a 3b 3b 3b 20 43 6f 6d 6d 65 6e 74 61 72 79 3a 0a 3b 3b 0a 3b 3b 20 43 6f 6e 73 75 6c 74 ;;.;;;.Commentary:.;;.;;.Consult
0ca0 2d 64 69 72 20 69 6d 70 6c 65 6d 65 6e 74 73 20 63 6f 6d 6d 61 6e 64 73 20 74 6f 20 65 61 73 69 -dir.implements.commands.to.easi
0cc0 6c 79 20 73 77 69 74 63 68 20 62 65 74 77 65 65 6e 20 22 61 63 74 69 76 65 22 0a 3b 3b 20 64 69 ly.switch.between."active".;;.di
0ce0 72 65 63 74 6f 72 69 65 73 2e 20 54 68 65 20 64 69 72 65 63 74 6f 72 79 20 63 61 6e 64 69 64 61 rectories..The.directory.candida
0d00 74 65 73 20 61 72 65 20 63 6f 6c 6c 65 63 74 65 64 20 66 72 6f 6d 20 75 73 65 72 20 62 6f 6f 6b tes.are.collected.from.user.book
0d20 6d 61 72 6b 73 2c 0a 3b 3b 20 70 72 6f 6a 65 63 74 69 6c 65 20 70 72 6f 6a 65 63 74 20 72 6f 6f marks,.;;.projectile.project.roo
0d40 74 73 20 28 69 66 20 61 76 61 69 6c 61 62 6c 65 29 2c 20 70 72 6f 6a 65 63 74 2e 65 6c 20 70 72 ts.(if.available),.project.el.pr
0d60 6f 6a 65 63 74 20 72 6f 6f 74 73 20 61 6e 64 20 72 65 63 65 6e 74 66 0a 3b 3b 20 66 69 6c 65 20 oject.roots.and.recentf.;;.file.
0d80 6c 6f 63 61 74 69 6f 6e 73 2e 20 54 68 65 20 60 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 locations..The.`default-director
0da0 79 27 20 76 61 72 69 61 62 6c 65 20 6e 6f 74 20 63 68 61 6e 67 65 64 20 69 6e 20 74 68 65 20 70 y'.variable.not.changed.in.the.p
0dc0 72 6f 63 65 73 73 2e 0a 3b 3b 0a 3b 3b 20 43 61 6c 6c 20 60 63 6f 6e 73 75 6c 74 2d 64 69 72 27 rocess..;;.;;.Call.`consult-dir'
0de0 20 66 72 6f 6d 20 74 68 65 20 6d 69 6e 69 62 75 66 66 65 72 20 74 6f 20 63 68 6f 6f 73 65 20 61 .from.the.minibuffer.to.choose.a
0e00 20 64 69 72 65 63 74 6f 72 79 20 77 69 74 68 20 63 6f 6d 70 6c 65 74 69 6f 6e 0a 3b 3b 20 61 6e .directory.with.completion.;;.an
0e20 64 20 69 6e 73 65 72 74 20 69 74 20 69 6e 74 6f 20 74 68 65 20 6d 69 6e 69 62 75 66 66 65 72 20 d.insert.it.into.the.minibuffer.
0e40 70 72 6f 6d 70 74 2c 20 73 68 61 64 6f 77 69 6e 67 20 6f 72 20 64 65 6c 65 74 69 6e 67 20 61 6e prompt,.shadowing.or.deleting.an
0e60 79 20 65 78 69 73 74 69 6e 67 0a 3b 3b 20 64 69 72 65 63 74 6f 72 79 2e 20 54 68 65 20 66 69 6c y.existing.;;.directory..The.fil
0e80 65 20 6e 61 6d 65 20 69 6e 70 75 74 20 69 73 20 72 65 74 61 69 6e 65 64 2e 20 54 68 69 73 20 6c e.name.input.is.retained..This.l
0ea0 65 74 73 20 74 68 65 20 75 73 65 72 20 73 77 69 74 63 68 20 74 6f 0a 3b 3b 20 64 69 73 74 61 6e ets.the.user.switch.to.;;.distan
0ec0 74 20 64 69 72 65 63 74 6f 72 69 65 73 20 76 65 72 79 20 71 75 69 63 6b 6c 79 20 77 68 65 6e 20 t.directories.very.quickly.when.
0ee0 66 69 6e 64 69 6e 67 20 66 69 6c 65 73 2c 20 66 6f 72 20 69 6e 73 74 61 6e 63 65 2e 0a 3b 3b 0a finding.files,.for.instance..;;.
0f00 3b 3b 20 43 61 6c 6c 20 60 63 6f 6e 73 75 6c 74 2d 64 69 72 27 20 66 72 6f 6d 20 61 20 72 65 67 ;;.Call.`consult-dir'.from.a.reg
0f20 75 6c 61 72 20 62 75 66 66 65 72 20 74 6f 20 63 68 6f 6f 73 65 20 61 20 64 69 72 65 63 74 6f 72 ular.buffer.to.choose.a.director
0f40 79 20 77 69 74 68 0a 3b 3b 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 61 6e 64 20 74 68 65 6e 20 69 6e y.with.;;.completion.and.then.in
0f60 74 65 72 61 63 74 69 76 65 6c 79 20 66 69 6e 64 20 61 20 66 69 6c 65 20 69 6e 20 74 68 61 74 20 teractively.find.a.file.in.that.
0f80 64 69 72 65 63 74 6f 72 79 2e 20 54 68 65 20 63 6f 6d 6d 61 6e 64 0a 3b 3b 20 72 75 6e 20 77 69 directory..The.command.;;.run.wi
0fa0 74 68 20 74 68 69 73 20 64 69 72 65 63 74 6f 72 79 20 69 73 20 63 6f 6e 66 69 67 75 72 61 62 6c th.this.directory.is.configurabl
0fc0 65 20 76 69 61 20 60 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 64 65 66 61 75 6c 74 2d 63 6f 6d 6d 61 e.via.`consult-dir-default-comma
0fe0 6e 64 27 20 61 6e 64 0a 3b 3b 20 64 65 66 61 75 6c 74 73 20 74 6f 20 60 66 69 6e 64 2d 66 69 6c nd'.and.;;.defaults.to.`find-fil
1000 65 27 2e 0a 3b 3b 0a 3b 3b 20 43 61 6c 6c 20 60 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 6a 75 6d 70 e'..;;.;;.Call.`consult-dir-jump
1020 2d 66 69 6c 65 27 20 66 72 6f 6d 20 74 68 65 20 6d 69 6e 69 62 75 66 66 65 72 20 74 6f 20 61 73 -file'.from.the.minibuffer.to.as
1040 79 6e 63 68 72 6f 6e 6f 75 73 6c 79 20 66 69 6e 64 20 61 0a 3b 3b 20 66 69 6c 65 20 61 6e 79 77 ynchronously.find.a.;;.file.anyw
1060 68 65 72 65 20 75 6e 64 65 72 20 74 68 65 20 64 69 72 65 63 74 6f 72 79 20 74 68 61 74 20 69 73 here.under.the.directory.that.is
1080 20 63 75 72 72 65 6e 74 6c 79 20 69 6e 20 74 68 65 20 70 72 6f 6d 70 74 2e 20 54 68 69 73 20 63 .currently.in.the.prompt..This.c
10a0 61 6e 0a 3b 3b 20 62 65 20 75 73 65 64 20 77 69 74 68 20 60 63 6f 6e 73 75 6c 74 2d 64 69 72 27 an.;;.be.used.with.`consult-dir'
10c0 20 74 6f 20 71 75 69 63 6b 6c 79 20 73 77 69 74 63 68 20 64 69 72 65 63 74 6f 72 69 65 73 20 61 .to.quickly.switch.directories.a
10e0 6e 64 20 66 69 6e 64 20 66 69 6c 65 73 20 61 74 20 61 6e 0a 3b 3b 20 61 72 62 69 74 72 61 72 79 nd.find.files.at.an.;;.arbitrary
1100 20 64 65 70 74 68 20 75 6e 64 65 72 20 74 68 65 6d 2e 20 60 63 6f 6e 73 75 6c 74 2d 64 69 72 2d .depth.under.them..`consult-dir-
1120 6a 75 6d 70 2d 66 69 6c 65 27 20 75 73 65 73 20 60 63 6f 6e 73 75 6c 74 2d 66 69 6e 64 27 20 75 jump-file'.uses.`consult-find'.u
1140 6e 64 65 72 0a 3b 3b 20 74 68 65 20 68 6f 6f 64 2e 0a 3b 3b 0a 3b 3b 20 54 6f 20 75 73 65 20 74 nder.;;.the.hood..;;.;;.To.use.t
1160 68 69 73 20 70 61 63 6b 61 67 65 2c 20 62 69 6e 64 20 60 63 6f 6e 73 75 6c 74 2d 64 69 72 27 20 his.package,.bind.`consult-dir'.
1180 61 6e 64 20 60 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 6a 75 6d 70 2d 66 69 6c 65 27 20 75 6e 64 65 and.`consult-dir-jump-file'.unde
11a0 72 20 74 68 65 0a 3b 3b 20 60 6d 69 6e 69 62 75 66 66 65 72 2d 6c 6f 63 61 6c 2d 63 6f 6d 70 6c r.the.;;.`minibuffer-local-compl
11c0 65 74 69 6f 6e 2d 6d 61 70 27 20 6f 72 20 65 71 75 69 76 61 6c 65 6e 74 2c 20 61 6e 64 20 60 63 etion-map'.or.equivalent,.and.`c
11e0 6f 6e 73 75 6c 74 2d 64 69 72 27 20 74 6f 20 74 68 65 20 67 6c 6f 62 61 6c 20 6d 61 70 2e 0a 3b onsult-dir'.to.the.global.map..;
1200 3b 0a 3b 3b 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 69 6e 69 62 75 66 66 65 72 2d 6c 6f 63 61 ;.;;.(define-key.minibuffer-loca
1220 6c 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 6d 61 70 20 28 6b 62 64 20 22 43 2d 78 20 43 2d 64 22 29 l-completion-map.(kbd."C-x.C-d")
1240 20 23 27 63 6f 6e 73 75 6c 74 2d 64 69 72 29 0a 3b 3b 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d .#'consult-dir).;;.(define-key.m
1260 69 6e 69 62 75 66 66 65 72 2d 6c 6f 63 61 6c 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 6d 61 70 20 28 inibuffer-local-completion-map.(
1280 6b 62 64 20 22 43 2d 78 20 43 2d 6a 22 29 20 23 27 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 6a 75 6d kbd."C-x.C-j").#'consult-dir-jum
12a0 70 2d 66 69 6c 65 29 0a 3b 3b 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 67 6c 6f 62 61 6c 2d 6d 61 p-file).;;.(define-key.global-ma
12c0 70 20 28 6b 62 64 20 22 43 2d 78 20 43 2d 64 22 29 20 23 27 63 6f 6e 73 75 6c 74 2d 64 69 72 29 p.(kbd."C-x.C-d").#'consult-dir)
12e0 0a 3b 3b 0a 3b 3b 20 44 69 72 65 63 74 6f 72 79 20 73 6f 75 72 63 65 73 20 63 6f 6e 66 69 67 75 .;;.;;.Directory.sources.configu
1300 72 61 74 69 6f 6e 3a 0a 3b 3b 20 2d 20 54 6f 20 6d 61 6b 65 20 72 65 63 65 6e 74 20 64 69 72 65 ration:.;;.-.To.make.recent.dire
1320 63 74 6f 72 69 65 73 20 61 76 61 69 6c 61 62 6c 65 2c 20 74 75 72 6e 20 6f 6e 20 60 72 65 63 65 ctories.available,.turn.on.`rece
1340 6e 74 66 2d 6d 6f 64 65 27 2e 0a 3b 3b 0a 3b 3b 20 2d 20 54 6f 20 6d 61 6b 65 20 70 72 6f 6a 65 ntf-mode'..;;.;;.-.To.make.proje
1360 63 74 69 6c 65 20 70 72 6f 6a 65 63 74 73 20 61 76 61 69 6c 61 62 6c 65 2c 20 74 75 72 6e 20 6f ctile.projects.available,.turn.o
1380 6e 20 70 72 6f 6a 65 63 74 69 6c 65 2d 6d 6f 64 65 20 61 6e 64 0a 3b 3b 20 63 6f 6e 66 69 67 75 n.projectile-mode.and.;;.configu
13a0 72 65 20 60 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 70 72 6f 6a 65 63 74 2d 6c 69 73 74 2d 66 75 6e re.`consult-dir-project-list-fun
13c0 63 74 69 6f 6e 27 2e 20 4e 6f 74 65 20 74 68 61 74 20 50 72 6f 6a 65 63 74 69 6c 65 20 69 73 20 ction'..Note.that.Projectile.is.
13e0 4e 4f 54 0a 3b 3b 20 72 65 71 75 69 72 65 64 20 74 6f 20 69 6e 73 74 61 6c 6c 20 74 68 69 73 20 NOT.;;.required.to.install.this.
1400 70 61 63 6b 61 67 65 2e 0a 3b 3b 0a 3b 3b 20 2d 20 54 6f 20 6d 61 6b 65 20 70 72 6f 6a 65 63 74 package..;;.;;.-.To.make.project
1420 2e 65 6c 20 70 72 6f 6a 65 63 74 73 20 61 76 61 69 6c 61 62 6c 65 2c 20 63 6f 6e 66 69 67 75 72 .el.projects.available,.configur
1440 65 0a 3b 3b 20 60 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 70 72 6f 6a 65 63 74 2d 6c 69 73 74 2d 66 e.;;.`consult-dir-project-list-f
1460 75 6e 63 74 69 6f 6e 27 2e 0a 3b 3b 0a 3b 3b 20 54 6f 20 63 68 61 6e 67 65 20 64 69 72 65 63 74 unction'..;;.;;.To.change.direct
1480 6f 72 79 20 73 6f 75 72 63 65 73 20 6f 72 20 74 68 65 69 72 20 6f 72 64 65 72 69 6e 67 2c 20 63 ory.sources.or.their.ordering,.c
14a0 75 73 74 6f 6d 69 7a 65 0a 3b 3b 20 60 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 73 6f 75 72 63 65 73 ustomize.;;.`consult-dir-sources
14c0 27 2e 0a 0a 3b 3b 3b 20 43 6f 64 65 3a 0a 0a 28 65 76 61 6c 2d 77 68 65 6e 2d 63 6f 6d 70 69 6c '...;;;.Code:..(eval-when-compil
14e0 65 0a 20 20 28 72 65 71 75 69 72 65 20 27 73 75 62 72 2d 78 29 29 0a 28 72 65 71 75 69 72 65 20 e...(require.'subr-x)).(require.
1500 27 63 6c 2d 6c 69 62 29 0a 28 72 65 71 75 69 72 65 20 27 62 6f 6f 6b 6d 61 72 6b 29 0a 28 72 65 'cl-lib).(require.'bookmark).(re
1520 71 75 69 72 65 20 27 72 65 63 65 6e 74 66 29 0a 28 72 65 71 75 69 72 65 20 27 73 65 71 29 0a 28 quire.'recentf).(require.'seq).(
1540 72 65 71 75 69 72 65 20 27 63 6f 6e 73 75 6c 74 29 0a 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 require.'consult)..(declare-func
1560 74 69 6f 6e 20 70 72 6f 6a 65 63 74 69 6c 65 2d 6c 6f 61 64 2d 6b 6e 6f 77 6e 2d 70 72 6f 6a 65 tion.projectile-load-known-proje
1580 63 74 73 20 22 70 72 6f 6a 65 63 74 69 6c 65 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 cts."projectile").(declare-funct
15a0 69 6f 6e 20 70 72 6f 6a 65 63 74 2d 2d 72 65 61 64 2d 70 72 6f 6a 65 63 74 2d 6c 69 73 74 20 22 ion.project--read-project-list."
15c0 70 72 6f 6a 65 63 74 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 74 72 61 6d project").(declare-function.tram
15e0 70 2d 70 61 72 73 65 2d 73 63 6f 6e 66 69 67 20 22 74 72 61 6d 70 22 29 0a 0a 3b 3b 3b 20 44 65 p-parse-sconfig."tramp")..;;;.De
1600 63 6c 61 72 65 20 76 61 72 69 61 62 6c 65 73 20 66 6f 72 20 62 79 74 65 20 63 6f 6d 70 69 6c 65 clare.variables.for.byte.compile
1620 72 0a 0a 28 64 65 66 76 61 72 20 70 72 6f 6a 65 63 74 69 6c 65 2d 6b 6e 6f 77 6e 2d 70 72 6f 6a r..(defvar.projectile-known-proj
1640 65 63 74 73 29 0a 28 64 65 66 76 61 72 20 70 72 6f 6a 65 63 74 69 6c 65 2d 6d 6f 64 65 29 0a 28 ects).(defvar.projectile-mode).(
1660 64 65 66 76 61 72 20 74 72 61 6d 70 2d 64 65 66 61 75 6c 74 2d 6d 65 74 68 6f 64 29 0a 0a 28 64 defvar.tramp-default-method)..(d
1680 65 66 67 72 6f 75 70 20 63 6f 6e 73 75 6c 74 2d 64 69 72 20 6e 69 6c 0a 20 20 22 43 6f 6e 73 75 efgroup.consult-dir.nil..."Consu
16a0 6c 74 69 6e 67 20 60 63 6f 6d 70 6c 65 74 69 6e 67 2d 72 65 61 64 27 2e 22 0a 20 20 3a 67 72 6f lting.`completing-read'."...:gro
16c0 75 70 20 27 63 6f 6e 76 65 6e 69 65 6e 63 65 0a 20 20 3a 67 72 6f 75 70 20 27 6d 69 6e 69 62 75 up.'convenience...:group.'minibu
16e0 66 66 65 72 0a 20 20 3a 67 72 6f 75 70 20 27 63 6f 6e 73 75 6c 74 0a 20 20 3a 70 72 65 66 69 78 ffer...:group.'consult...:prefix
1700 20 22 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 22 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 6f 6e ."consult-dir-")..(defcustom.con
1720 73 75 6c 74 2d 64 69 72 2d 73 68 61 64 6f 77 2d 66 69 6c 65 6e 61 6d 65 73 20 74 0a 20 20 22 53 sult-dir-shadow-filenames.t..."S
1740 68 61 64 6f 77 20 66 69 6c 65 20 6e 61 6d 65 73 20 69 6e 73 74 65 61 64 20 6f 66 20 72 65 70 6c hadow.file.names.instead.of.repl
1760 61 63 69 6e 67 20 74 68 65 6d 20 77 68 65 6e 20 75 73 69 6e 67 20 60 63 6f 6e 73 75 6c 74 2d 64 acing.them.when.using.`consult-d
1780 69 72 27 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 63 6f 6e 73 75 6c 74 2d 64 69 72 0a 20 20 3a 74 ir'."...:group.'consult-dir...:t
17a0 79 70 65 20 27 62 6f 6f 6c 65 61 6e 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 6f 6e 73 75 6c ype.'boolean)..(defcustom.consul
17c0 74 2d 64 69 72 2d 64 65 66 61 75 6c 74 2d 63 6f 6d 6d 61 6e 64 20 23 27 66 69 6e 64 2d 66 69 6c t-dir-default-command.#'find-fil
17e0 65 0a 20 20 22 43 6f 6d 6d 61 6e 64 20 74 6f 20 72 75 6e 20 61 66 74 65 72 20 73 65 6c 65 63 74 e..."Command.to.run.after.select
1800 69 6e 67 20 61 20 64 69 72 65 63 74 6f 72 79 20 75 73 69 6e 67 20 60 63 6f 6e 73 75 6c 74 2d 64 ing.a.directory.using.`consult-d
1820 69 72 27 2e 0a 0a 54 68 65 20 64 65 66 61 75 6c 74 20 69 73 20 74 6f 20 69 6e 76 6f 6b 65 20 60 ir'...The.default.is.to.invoke.`
1840 66 69 6e 64 2d 66 69 6c 65 27 20 66 72 6f 6d 20 74 68 65 20 63 68 6f 73 65 6e 0a 64 69 72 65 63 find-file'.from.the.chosen.direc
1860 74 6f 72 79 2e 20 53 65 74 74 69 6e 67 20 69 74 20 74 6f 20 60 63 6f 6e 73 75 6c 74 2d 64 69 72 tory..Setting.it.to.`consult-dir
1880 2d 64 69 72 65 64 27 20 77 69 6c 6c 20 69 6e 73 74 65 61 64 20 6f 70 65 6e 0a 74 68 65 20 63 68 -dired'.will.instead.open.the.ch
18a0 6f 73 65 6e 20 64 69 72 65 63 74 6f 72 79 20 69 6e 20 64 69 72 65 64 2e 0a 0a 41 6e 79 20 61 72 osen.directory.in.dired...Any.ar
18c0 62 69 74 72 61 72 79 20 66 75 6e 63 74 69 6f 6e 20 28 6f 66 20 6e 6f 20 76 61 72 69 61 62 6c 65 bitrary.function.(of.no.variable
18e0 73 29 20 63 61 6e 20 62 65 20 73 70 65 63 69 66 69 65 64 0a 69 6e 73 74 65 61 64 2e 20 49 74 20 s).can.be.specified.instead..It.
1900 69 73 20 72 75 6e 20 77 69 74 68 20 60 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 27 20 is.run.with.`default-directory'.
1920 73 65 74 20 74 6f 20 74 68 65 20 64 69 72 65 63 74 6f 72 79 0a 63 68 6f 73 65 6e 20 75 73 69 6e set.to.the.directory.chosen.usin
1940 67 20 60 63 6f 6e 73 75 6c 74 2d 64 69 72 27 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 63 6f 6e 73 g.`consult-dir'."...:group.'cons
1960 75 6c 74 2d 64 69 72 0a 20 20 3a 74 79 70 65 20 27 28 63 68 6f 69 63 65 20 28 66 75 6e 63 74 69 ult-dir...:type.'(choice.(functi
1980 6f 6e 2d 69 74 65 6d 20 3a 74 61 67 20 22 46 69 6e 64 20 66 69 6c 65 22 20 66 69 6e 64 2d 66 69 on-item.:tag."Find.file".find-fi
19a0 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 74 69 6f 6e 2d 69 le)..................(function-i
19c0 74 65 6d 20 3a 74 61 67 20 22 4f 70 65 6e 20 64 69 72 65 63 74 6f 72 79 22 20 63 6f 6e 73 75 6c tem.:tag."Open.directory".consul
19e0 74 2d 64 69 72 2d 64 69 72 65 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 t-dir-dired)..................(f
1a00 75 6e 63 74 69 6f 6e 20 3a 74 61 67 20 22 43 75 73 74 6f 6d 20 66 75 6e 63 74 69 6f 6e 22 29 29 unction.:tag."Custom.function"))
1a20 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 74 72 61 6d 70 2d )..(defcustom.consult-dir-tramp-
1a40 64 65 66 61 75 6c 74 2d 72 65 6d 6f 74 65 2d 70 61 74 68 20 22 7e 22 0a 20 20 22 44 65 66 61 75 default-remote-path."~"..."Defau
1a60 6c 74 20 70 61 74 68 20 74 6f 20 75 73 65 20 66 6f 72 20 72 65 6d 6f 74 65 20 64 69 72 65 63 74 lt.path.to.use.for.remote.direct
1a80 6f 72 69 65 73 20 77 68 65 6e 20 75 73 69 6e 67 20 60 63 6f 6e 73 75 6c 74 2d 64 69 72 27 2e 22 ories.when.using.`consult-dir'."
1aa0 0a 20 20 3a 67 72 6f 75 70 20 27 63 6f 6e 73 75 6c 74 2d 64 69 72 0a 20 20 3a 74 79 70 65 20 27 ...:group.'consult-dir...:type.'
1ac0 73 74 72 69 6e 67 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 6f 6e 73 75 6c 74 2d 64 69 72 2d string)..(defcustom.consult-dir-
1ae0 74 72 61 6d 70 2d 6c 6f 63 61 6c 2d 68 6f 73 74 73 20 27 28 22 2f 73 75 64 6f 3a 72 6f 6f 74 40 tramp-local-hosts.'("/sudo:root@
1b00 6c 6f 63 61 6c 68 6f 73 74 3a 2f 22 29 0a 20 20 22 41 20 6c 69 73 74 20 6f 66 20 6c 6f 63 61 6c localhost:/")..."A.list.of.local
1b20 20 68 6f 73 74 73 20 74 6f 20 69 6e 63 6c 75 64 65 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 63 6f .hosts.to.include."...:group.'co
1b40 6e 73 75 6c 74 2d 64 69 72 0a 20 20 3a 74 79 70 65 20 27 28 72 65 70 65 61 74 20 73 74 72 69 6e nsult-dir...:type.'(repeat.strin
1b60 67 29 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 70 72 6f 6a g))..(defcustom.consult-dir-proj
1b80 65 63 74 2d 6c 69 73 74 2d 66 75 6e 63 74 69 6f 6e 20 23 27 63 6f 6e 73 75 6c 74 2d 64 69 72 2d ect-list-function.#'consult-dir-
1ba0 70 72 6f 6a 65 63 74 2d 64 69 72 73 0a 20 20 22 46 75 6e 63 74 69 6f 6e 20 74 68 61 74 20 72 65 project-dirs..."Function.that.re
1bc0 74 75 72 6e 73 20 74 68 65 20 6c 69 73 74 20 6f 66 20 70 72 6f 6a 65 63 74 20 64 69 72 65 63 74 turns.the.list.of.project.direct
1be0 6f 72 69 65 73 2e 0a 0a 54 68 65 73 65 20 61 72 65 20 75 73 65 64 20 61 73 20 63 61 6e 64 69 64 ories...These.are.used.as.candid
1c00 61 74 65 73 20 66 6f 72 20 73 77 69 74 63 68 69 6e 67 20 77 68 65 6e 20 75 73 69 6e 67 20 60 63 ates.for.switching.when.using.`c
1c20 6f 6e 73 75 6c 74 2d 64 69 72 27 2e 0a 0a 54 68 65 20 6f 70 74 69 6f 6e 73 20 61 72 65 0a 0a 31 onsult-dir'...The.options.are..1
1c40 2e 20 70 72 6f 6a 65 63 74 2e 65 6c 20 70 72 6f 6a 65 63 74 20 64 69 72 65 63 74 6f 72 69 65 73 ..project.el.project.directories
1c60 20 28 74 68 65 20 64 65 66 61 75 6c 74 29 0a 32 2e 20 70 72 6f 6a 65 63 74 69 6c 65 20 70 72 6f .(the.default).2..projectile.pro
1c80 6a 65 63 74 20 64 69 72 65 63 74 6f 72 69 65 73 0a 33 2e 20 41 6e 79 20 75 73 65 72 2d 64 65 66 ject.directories.3..Any.user-def
1ca0 69 6e 65 64 20 66 75 6e 63 74 69 6f 6e 2e 20 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 73 68 6f ined.function..This.function.sho
1cc0 75 6c 64 20 74 61 6b 65 20 6e 6f 0a 61 72 67 75 6d 65 6e 74 73 20 61 6e 64 20 72 65 74 75 72 6e uld.take.no.arguments.and.return
1ce0 20 61 20 6c 69 73 74 20 6f 66 20 64 69 72 65 63 74 6f 72 69 65 73 2e 22 0a 20 20 3a 74 79 70 65 .a.list.of.directories."...:type
1d00 20 27 28 72 61 64 69 6f 0a 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 74 69 6f 6e 2d 69 74 65 .'(radio...........(function-ite
1d20 6d 20 3a 74 61 67 20 22 50 72 6f 6a 65 63 74 2e 65 6c 20 70 72 6f 6a 65 63 74 73 22 20 63 6f 6e m.:tag."Project.el.projects".con
1d40 73 75 6c 74 2d 64 69 72 2d 70 72 6f 6a 65 63 74 2d 64 69 72 73 29 0a 20 20 20 20 20 20 20 20 20 sult-dir-project-dirs)..........
1d60 20 28 66 75 6e 63 74 69 6f 6e 2d 69 74 65 6d 20 3a 74 61 67 20 22 50 72 6f 6a 65 63 74 69 6c 65 .(function-item.:tag."Projectile
1d80 20 70 72 6f 6a 65 63 74 73 22 20 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 70 72 6f 6a 65 63 74 69 6c .projects".consult-dir-projectil
1da0 65 2d 64 69 72 73 29 0a 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 74 69 6f 6e 20 3a 74 61 67 e-dirs)...........(function.:tag
1dc0 20 22 55 73 65 72 2d 64 65 66 69 6e 65 64 20 66 75 6e 63 74 69 6f 6e 22 29 29 29 0a 0a 28 64 65 ."User-defined.function")))..(de
1de0 66 63 75 73 74 6f 6d 20 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 73 6f 75 72 63 65 73 0a 20 20 27 28 fcustom.consult-dir-sources...'(
1e00 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 2d 73 6f 75 72 63 65 2d 62 6f 6f 6b 6d 61 72 6b 0a 20 20 20 consult-dir--source-bookmark....
1e20 20 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 2d 73 6f 75 72 63 65 2d 64 65 66 61 75 6c 74 0a 20 20 20 .consult-dir--source-default....
1e40 20 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 2d 73 6f 75 72 63 65 2d 70 72 6f 6a 65 63 74 20 20 20 20 .consult-dir--source-project....
1e60 20 20 20 20 20 3b 70 72 6f 6a 65 63 74 69 6c 65 20 69 66 20 61 76 61 69 6c 61 62 6c 65 2c 20 70 .....;projectile.if.available,.p
1e80 72 6f 6a 65 63 74 2e 65 6c 20 6f 74 68 65 72 77 69 73 65 0a 20 20 20 20 63 6f 6e 73 75 6c 74 2d roject.el.otherwise.....consult-
1ea0 64 69 72 2d 2d 73 6f 75 72 63 65 2d 72 65 63 65 6e 74 66 0a 20 20 20 20 63 6f 6e 73 75 6c 74 2d dir--source-recentf.....consult-
1ec0 64 69 72 2d 2d 73 6f 75 72 63 65 2d 74 72 61 6d 70 2d 6c 6f 63 61 6c 29 0a 20 20 22 44 69 72 65 dir--source-tramp-local)..."Dire
1ee0 63 74 6f 72 79 20 73 6f 75 72 63 65 73 20 66 6f 72 20 60 63 6f 6e 73 75 6c 74 2d 64 69 72 27 2e ctory.sources.for.`consult-dir'.
1f00 0a 0a 54 68 65 72 65 20 61 72 65 20 73 65 76 65 72 61 6c 20 62 75 69 6c 74 2d 69 6e 20 73 6f 75 ..There.are.several.built-in.sou
1f20 72 63 65 73 20 61 76 61 69 6c 61 62 6c 65 2c 20 69 6e 63 6c 75 64 69 6e 67 0a 62 6f 6f 6b 6d 61 rces.available,.including.bookma
1f40 72 6b 65 64 20 64 69 72 65 63 74 6f 72 69 65 73 2c 20 72 65 63 65 6e 74 6c 79 20 76 69 73 69 74 rked.directories,.recently.visit
1f60 65 64 20 66 69 6c 65 20 6c 6f 63 61 74 69 6f 6e 73 2c 20 70 72 6f 6a 65 63 74 0a 64 69 72 65 63 ed.file.locations,.project.direc
1f80 74 6f 72 69 65 73 20 61 6e 64 20 6d 6f 72 65 2c 20 73 65 65 20 63 75 73 74 6f 6d 69 7a 61 74 69 tories.and.more,.see.customizati
1fa0 6f 6e 20 6f 70 74 69 6f 6e 73 2e 0a 0a 59 6f 75 20 63 61 6e 20 61 64 64 20 79 6f 75 72 20 6f 77 on.options...You.can.add.your.ow
1fc0 6e 20 64 69 72 65 63 74 6f 72 79 20 73 6f 75 72 63 65 73 20 74 6f 20 74 68 65 20 6c 69 73 74 2e n.directory.sources.to.the.list.
1fe0 20 54 68 65 20 65 6e 74 72 79 0a 6d 75 73 74 20 62 65 20 61 20 76 61 72 69 61 62 6c 65 20 69 6e .The.entry.must.be.a.variable.in
2000 20 74 68 65 20 70 6c 69 73 74 20 66 6f 72 6d 61 74 20 73 70 65 63 69 66 69 65 64 20 62 79 20 43 .the.plist.format.specified.by.C
2020 6f 6e 73 75 6c 74 2c 20 73 65 65 0a 74 68 65 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 onsult,.see.the.documentation.of
2040 20 60 63 6f 6e 73 75 6c 74 2d 2d 6d 75 6c 74 69 27 20 66 6f 72 20 64 65 74 61 69 6c 73 2e 22 0a .`consult--multi'.for.details.".
2060 20 20 3a 74 79 70 65 0a 20 20 27 28 72 65 70 65 61 74 20 28 63 68 6f 69 63 65 0a 20 20 20 20 20 ..:type...'(repeat.(choice......
2080 20 20 20 20 20 20 20 28 63 6f 6e 73 74 20 3a 74 61 67 20 22 42 6f 6f 6b 6d 61 72 6b 65 64 20 64 .......(const.:tag."Bookmarked.d
20a0 69 72 65 63 74 6f 72 69 65 73 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 irectories"....................c
20c0 6f 6e 73 75 6c 74 2d 64 69 72 2d 2d 73 6f 75 72 63 65 2d 62 6f 6f 6b 6d 61 72 6b 29 0a 20 20 20 onsult-dir--source-bookmark)....
20e0 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 74 20 3a 74 61 67 20 22 43 75 72 72 65 6e 74 20 64 69 .........(const.:tag."Current.di
2100 72 65 63 74 6f 72 79 20 61 6e 64 20 70 72 6f 6a 65 63 74 20 72 6f 6f 74 22 0a 20 20 20 20 20 20 rectory.and.project.root".......
2120 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 2d 73 6f 75 72 63 65 .............consult-dir--source
2140 2d 64 65 66 61 75 6c 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 74 20 3a 74 61 -default).............(const.:ta
2160 67 20 22 41 6c 6c 20 70 72 6f 6a 65 63 74 20 64 69 72 65 63 74 6f 72 69 65 73 22 0a 20 20 20 20 g."All.project.directories".....
2180 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 2d 73 6f 75 72 ...............consult-dir--sour
21a0 63 65 2d 70 72 6f 6a 65 63 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 74 20 3a ce-project).............(const.:
21c0 74 61 67 20 22 52 65 63 65 6e 74 20 64 69 72 65 63 74 6f 72 69 65 73 22 0a 20 20 20 20 20 20 20 tag."Recent.directories"........
21e0 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 2d 73 6f 75 72 63 65 2d ............consult-dir--source-
2200 72 65 63 65 6e 74 66 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 74 20 3a 74 61 67 recentf).............(const.:tag
2220 20 22 4c 6f 63 61 6c 20 54 52 41 4d 50 20 6d 65 74 68 6f 64 73 22 0a 20 20 20 20 20 20 20 20 20 ."Local.TRAMP.methods"..........
2240 20 20 20 20 20 20 20 20 20 20 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 2d 73 6f 75 72 63 65 2d 74 72 ..........consult-dir--source-tr
2260 61 6d 70 2d 6c 6f 63 61 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 74 20 3a 74 amp-local).............(const.:t
2280 61 67 20 22 4b 6e 6f 77 6e 20 73 73 68 20 68 6f 73 74 73 22 0a 20 20 20 20 20 20 20 20 20 20 20 ag."Known.ssh.hosts"............
22a0 20 20 20 20 20 20 20 20 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 2d 73 6f 75 72 63 65 2d 74 72 61 6d ........consult-dir--source-tram
22c0 70 2d 73 73 68 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 79 6d 62 6f 6c 20 3a 74 61 67 20 p-ssh).............(symbol.:tag.
22e0 22 43 75 73 74 6f 6d 20 64 69 72 65 63 74 6f 72 79 20 73 6f 75 72 63 65 22 29 29 29 29 0a 0a 28 "Custom.directory.source"))))..(
2300 64 65 66 63 75 73 74 6f 6d 20 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 6a 75 6d 70 2d 66 69 6c 65 2d defcustom.consult-dir-jump-file-
2320 63 6f 6d 6d 61 6e 64 20 27 63 6f 6e 73 75 6c 74 2d 66 69 6e 64 0a 20 20 22 43 6f 6e 73 75 6c 74 command.'consult-find..."Consult
2340 20 63 6f 6d 6d 61 6e 64 20 75 73 65 64 20 62 79 20 60 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 6a 75 .command.used.by.`consult-dir-ju
2360 6d 70 2d 66 69 6c 65 27 2e 0a 0a 41 76 61 69 6c 61 62 6c 65 20 6f 70 74 69 6f 6e 73 20 61 72 65 mp-file'...Available.options.are
2380 20 60 63 6f 6e 73 75 6c 74 2d 66 69 6e 64 27 20 61 6e 64 20 60 63 6f 6e 73 75 6c 74 2d 66 64 27 .`consult-find'.and.`consult-fd'
23a0 20 28 62 6f 74 68 0a 70 72 6f 76 69 64 65 64 20 62 79 20 43 6f 6e 73 75 6c 74 29 2c 20 6f 72 20 .(both.provided.by.Consult),.or.
23c0 79 6f 75 72 20 6f 77 6e 20 76 61 72 69 61 74 69 6f 6e 20 74 68 65 72 65 6f 66 2e 20 20 49 74 20 your.own.variation.thereof...It.
23e0 73 68 6f 75 6c 64 0a 70 6f 73 73 65 73 73 20 74 68 65 20 73 61 6d 65 20 73 69 67 6e 61 74 75 72 should.possess.the.same.signatur
2400 65 20 61 73 20 60 63 6f 6e 73 75 6c 74 2d 66 69 6e 64 27 2e 22 0a 20 20 3a 74 79 70 65 20 27 28 e.as.`consult-find'."...:type.'(
2420 63 68 6f 69 63 65 0a 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 74 20 3a 74 61 67 20 22 55 73 choice...........(const.:tag."Us
2440 65 20 60 66 69 6e 64 27 22 20 63 6f 6e 73 75 6c 74 2d 66 69 6e 64 29 0a 20 20 20 20 20 20 20 20 e.`find'".consult-find).........
2460 20 20 28 63 6f 6e 73 74 20 3a 74 61 67 20 22 55 73 65 20 60 66 64 27 22 20 63 6f 6e 73 75 6c 74 ..(const.:tag."Use.`fd'".consult
2480 2d 66 64 29 0a 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 74 69 6f 6e 20 3a 74 61 67 20 22 43 -fd)...........(function.:tag."C
24a0 75 73 74 6f 6d 20 63 6f 6e 73 75 6c 74 20 66 75 6e 63 74 69 6f 6e 22 29 29 29 0a 0a 28 64 65 66 ustom.consult.function")))..(def
24c0 63 75 73 74 6f 6d 20 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 73 6f 72 74 2d 63 61 6e 64 69 64 61 74 custom.consult-dir-sort-candidat
24e0 65 73 20 6e 69 6c 0a 20 20 22 49 66 20 6e 6f 6e 20 6e 69 6c 2c 20 65 6e 61 62 6c 65 20 73 6f 72 es.nil..."If.non.nil,.enable.sor
2500 74 69 6e 67 20 6f 66 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 63 61 6e 64 69 64 61 74 65 73 2e 22 0a ting.of.completion.candidates.".
2520 20 20 3a 74 79 70 65 20 27 62 6f 6f 6c 65 61 6e 29 0a 0a 28 64 65 66 75 6e 20 63 6f 6e 73 75 6c ..:type.'boolean)..(defun.consul
2540 74 2d 64 69 72 2d 64 69 72 65 64 20 28 29 0a 20 20 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 t-dir-dired.().....(interactive)
2560 0a 20 20 20 20 28 64 69 72 65 64 20 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 29 29 0a .....(dired.default-directory)).
2580 0a 28 64 65 66 75 6e 20 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 2d 74 72 61 6d 70 2d 70 61 72 73 65 .(defun.consult-dir--tramp-parse
25a0 2d 63 6f 6e 66 69 67 20 28 63 6f 6e 66 69 67 29 0a 20 20 22 47 69 76 65 6e 20 61 20 43 4f 4e 46 -config.(config)..."Given.a.CONF
25c0 49 47 2c 20 70 61 72 73 65 20 74 68 65 20 68 6f 73 74 73 20 66 72 6f 6d 20 69 74 20 61 6e 64 20 IG,.parse.the.hosts.from.it.and.
25e0 72 65 74 75 72 6e 20 74 68 65 20 72 65 73 75 6c 74 73 20 61 73 20 61 20 6c 69 73 74 2e 22 0a 20 return.the.results.as.a.list."..
2600 20 28 6c 65 74 20 28 28 68 6f 73 74 73 29 29 0a 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 28 .(let.((hosts)).....(when.(and.(
2620 66 69 6c 65 2d 65 78 69 73 74 73 2d 70 20 63 6f 6e 66 69 67 29 0a 20 20 20 20 20 20 20 20 20 20 file-exists-p.config)...........
2640 20 20 20 20 20 28 72 65 71 75 69 72 65 20 27 74 72 61 6d 70 20 6e 69 6c 20 74 29 29 0a 20 20 20 .....(require.'tramp.nil.t))....
2660 20 20 20 28 64 6f 6c 69 73 74 20 28 63 61 6e 64 20 28 74 72 61 6d 70 2d 70 61 72 73 65 2d 73 63 ...(dolist.(cand.(tramp-parse-sc
2680 6f 6e 66 69 67 20 63 6f 6e 66 69 67 29 29 0a 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 75 73 onfig.config)).........(let.((us
26a0 65 72 20 28 69 66 20 28 63 61 72 20 63 61 6e 64 29 20 28 63 6f 6e 63 61 74 20 28 63 61 72 20 63 er.(if.(car.cand).(concat.(car.c
26c0 61 6e 64 29 20 22 40 22 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 68 6f 73 74 20 and)."@")))...............(host.
26e0 28 63 61 64 72 20 63 61 6e 64 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 68 6f (cadr.cand)))...........(when.ho
2700 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 28 63 6f 6e 63 61 74 20 22 2f 22 st.............(push.(concat."/"
2720 20 74 72 61 6d 70 2d 64 65 66 61 75 6c 74 2d 6d 65 74 68 6f 64 0a 20 20 20 20 20 20 20 20 20 20 .tramp-default-method...........
2740 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 22 20 75 73 65 72 20 68 6f 73 74 0a 20 20 ................":".user.host...
2760 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 22 20 63 6f 6e 73 ........................":".cons
2780 75 6c 74 2d 64 69 72 2d 74 72 61 6d 70 2d 64 65 66 61 75 6c 74 2d 72 65 6d 6f 74 65 2d 70 61 74 ult-dir-tramp-default-remote-pat
27a0 68 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 68 6f 73 74 73 29 29 29 29 0a 20 h)...................hosts))))..
27c0 20 20 20 20 20 68 6f 73 74 73 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 6e 73 75 6c 74 2d 64 69 .....hosts)))..(defun.consult-di
27e0 72 2d 2d 74 72 61 6d 70 2d 73 73 68 2d 68 6f 73 74 73 20 28 29 0a 20 20 22 47 65 74 20 61 20 6c r--tramp-ssh-hosts.()..."Get.a.l
2800 69 73 74 20 6f 66 20 68 6f 73 74 73 20 66 72 6f 6d 20 60 63 6f 6e 73 75 6c 74 2d 74 72 61 6d 70 ist.of.hosts.from.`consult-tramp
2820 2d 73 73 68 2d 63 6f 6e 66 69 67 27 2e 22 0a 20 20 28 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 2d 74 -ssh-config'."...(consult-dir--t
2840 72 61 6d 70 2d 70 61 72 73 65 2d 63 6f 6e 66 69 67 20 22 7e 2f 2e 73 73 68 2f 63 6f 6e 66 69 67 ramp-parse-config."~/.ssh/config
2860 22 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 2d 64 65 66 61 75 6c 74 "))..(defun.consult-dir--default
2880 2d 64 69 72 73 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 64 65 66 61 75 6c 74 20 64 -dirs.()..."Return.the.default.d
28a0 69 72 65 63 74 6f 72 79 20 61 6e 64 20 70 72 6f 6a 65 63 74 20 72 6f 6f 74 20 69 66 20 61 76 61 irectory.and.project.root.if.ava
28c0 69 6c 61 62 6c 65 2e 22 0a 20 20 28 6c 65 74 20 28 28 66 75 6c 6c 64 69 72 20 28 65 78 70 61 6e ilable."...(let.((fulldir.(expan
28e0 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 29 29 0a d-file-name.default-directory)).
2900 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 72 20 28 61 62 62 .......................(dir.(abb
2920 72 65 76 69 61 74 65 2d 66 69 6c 65 2d 6e 61 6d 65 20 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 reviate-file-name.default-direct
2940 6f 72 79 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 6f ory))........................(ro
2960 6f 74 20 28 63 6f 6e 73 75 6c 74 2d 2d 70 72 6f 6a 65 63 74 2d 72 6f 6f 74 29 29 29 0a 20 20 20 ot.(consult--project-root)))....
2980 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 61 6e 64 20 72 6f 6f 74 ................(cond.((and.root
29a0 20 28 65 71 75 61 6c 20 66 75 6c 6c 64 69 72 20 72 6f 6f 74 29 29 20 28 6c 69 73 74 20 64 69 72 .(equal.fulldir.root)).(list.dir
29c0 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 6f 6f ))..........................(roo
29e0 74 20 28 6c 69 73 74 20 64 69 72 20 28 61 62 62 72 65 76 69 61 74 65 2d 66 69 6c 65 2d 6e 61 6d t.(list.dir.(abbreviate-file-nam
2a00 65 20 72 6f 6f 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 e.root))).......................
2a20 20 20 20 28 74 20 28 6c 69 73 74 20 64 69 72 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 6e ...(t.(list.dir)))))..(defun.con
2a40 73 75 6c 74 2d 64 69 72 2d 2d 62 6f 6f 6b 6d 61 72 6b 2d 64 69 72 73 20 28 29 0a 20 20 22 52 65 sult-dir--bookmark-dirs.()..."Re
2a60 74 75 72 6e 20 62 6f 6f 6b 6d 61 72 6b 73 20 74 68 61 74 20 61 72 65 20 64 69 72 65 63 74 6f 72 turn.bookmarks.that.are.director
2a80 69 65 73 2e 22 0a 20 20 28 62 6f 6f 6b 6d 61 72 6b 2d 6d 61 79 62 65 2d 6c 6f 61 64 2d 64 65 66 ies."...(bookmark-maybe-load-def
2aa0 61 75 6c 74 2d 66 69 6c 65 29 0a 20 20 28 6c 65 74 20 28 28 66 69 6c 65 2d 6e 61 72 72 6f 77 20 ault-file)...(let.((file-narrow.
2ac0 3f 66 29 29 0a 20 20 20 20 28 74 68 72 65 61 64 2d 6c 61 73 74 20 62 6f 6f 6b 6d 61 72 6b 2d 61 ?f)).....(thread-last.bookmark-a
2ae0 6c 69 73 74 0a 20 20 20 20 20 20 28 63 6c 2d 72 65 6d 6f 76 65 2d 69 66 20 20 20 20 20 28 6c 61 list.......(cl-remove-if.....(la
2b00 6d 62 64 61 20 28 63 61 6e 64 29 20 28 62 6f 6f 6b 6d 61 72 6b 2d 67 65 74 2d 68 61 6e 64 6c 65 mbda.(cand).(bookmark-get-handle
2b20 72 20 63 61 6e 64 29 29 29 0a 20 20 20 20 20 20 28 63 6c 2d 72 65 6d 6f 76 65 2d 69 66 2d 6e 6f r.cand))).......(cl-remove-if-no
2b40 74 20 28 6c 61 6d 62 64 61 20 28 63 61 6e 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 t.(lambda.(cand)................
2b60 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 62 6d 20 28 62 6f 6f 6b 6d 61 72 6b 2d 67 ...........(let.((bm.(bookmark-g
2b80 65 74 2d 62 6f 6f 6b 6d 61 72 6b 2d 72 65 63 6f 72 64 20 63 61 6e 64 29 29 29 0a 20 20 20 20 20 et-bookmark-record.cand)))......
2ba0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 2d 6c 65 74 .......................(when-let
2bc0 20 28 28 66 69 6c 65 20 28 61 6c 69 73 74 2d 67 65 74 20 27 66 69 6c 65 6e 61 6d 65 20 62 6d 29 .((file.(alist-get.'filename.bm)
2be0 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ))..............................
2c00 20 28 69 66 20 28 66 69 6c 65 2d 72 65 6d 6f 74 65 2d 70 20 66 69 6c 65 29 0a 20 20 20 20 20 20 .(if.(file-remote-p.file).......
2c20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 74 72 ............................(str
2c40 69 6e 67 2d 73 75 66 66 69 78 2d 70 20 22 2f 22 20 66 69 6c 65 29 0a 20 20 20 20 20 20 20 20 20 ing-suffix-p."/".file)..........
2c60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6c 65 2d 64 69 72 .......................(file-dir
2c80 65 63 74 6f 72 79 2d 70 20 66 69 6c 65 29 29 29 29 29 29 0a 20 20 20 20 20 20 28 6d 61 70 63 61 ectory-p.file)))))).......(mapca
2ca0 72 20 28 6c 61 6d 62 64 61 20 28 63 61 6e 64 29 20 28 70 72 6f 70 65 72 74 69 7a 65 20 28 63 61 r.(lambda.(cand).(propertize.(ca
2cc0 72 20 63 61 6e 64 29 20 27 63 6f 6e 73 75 6c 74 2d 2d 74 79 70 65 20 66 69 6c 65 2d 6e 61 72 72 r.cand).'consult--type.file-narr
2ce0 6f 77 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 70 72 6f ow))))))..(defun.consult-dir-pro
2d00 6a 65 63 74 2d 64 69 72 73 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 ject-dirs.()..."Return.a.list.of
2d20 20 70 72 6f 6a 65 63 74 20 64 69 72 65 63 74 6f 72 69 65 73 20 6d 61 6e 61 67 65 64 20 62 79 20 .project.directories.managed.by.
2d40 70 72 6f 6a 65 63 74 2e 65 6c 2e 22 0a 20 20 28 75 6e 6c 65 73 73 20 28 61 6e 64 20 28 62 6f 75 project.el."...(unless.(and.(bou
2d60 6e 64 70 20 27 70 72 6f 6a 65 63 74 2d 2d 6c 69 73 74 29 20 28 6c 69 73 74 70 20 70 72 6f 6a 65 ndp.'project--list).(listp.proje
2d80 63 74 2d 2d 6c 69 73 74 29 29 0a 20 20 20 20 28 61 6e 64 20 28 72 65 71 75 69 72 65 20 27 70 72 ct--list)).....(and.(require.'pr
2da0 6f 6a 65 63 74 20 6e 69 6c 20 74 29 0a 20 20 20 20 20 20 20 20 20 28 70 72 6f 6a 65 63 74 2d 2d oject.nil.t)..........(project--
2dc0 72 65 61 64 2d 70 72 6f 6a 65 63 74 2d 6c 69 73 74 29 29 29 0a 20 20 28 61 6e 64 20 28 62 6f 75 read-project-list)))...(and.(bou
2de0 6e 64 70 20 27 70 72 6f 6a 65 63 74 2d 2d 6c 69 73 74 29 20 28 63 6f 6e 73 70 20 70 72 6f 6a 65 ndp.'project--list).(consp.proje
2e00 63 74 2d 2d 6c 69 73 74 29 0a 20 20 20 20 20 20 20 28 6d 61 70 63 61 72 20 23 27 63 61 72 20 70 ct--list)........(mapcar.#'car.p
2e20 72 6f 6a 65 63 74 2d 2d 6c 69 73 74 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 6e 73 75 6c 74 2d roject--list)))..(defun.consult-
2e40 64 69 72 2d 70 72 6f 6a 65 63 74 69 6c 65 2d 64 69 72 73 20 28 29 0a 20 20 22 52 65 74 75 72 6e dir-projectile-dirs.()..."Return
2e60 20 61 20 6c 69 73 74 20 6f 66 20 74 68 65 20 70 72 6f 6a 65 63 74 20 64 69 72 65 63 74 6f 72 69 .a.list.of.the.project.directori
2e80 65 73 20 6d 61 6e 61 67 65 64 20 62 79 20 50 72 6f 6a 65 63 74 69 6c 65 2e 22 0a 20 20 28 69 66 es.managed.by.Projectile."...(if
2ea0 20 28 6e 6f 74 20 28 62 6f 75 6e 64 2d 61 6e 64 2d 74 72 75 65 2d 70 20 70 72 6f 6a 65 63 74 69 .(not.(bound-and-true-p.projecti
2ec0 6c 65 2d 6b 6e 6f 77 6e 2d 70 72 6f 6a 65 63 74 73 29 29 0a 20 20 20 20 20 20 28 69 66 20 28 72 le-known-projects)).......(if.(r
2ee0 65 71 75 69 72 65 20 27 70 72 6f 6a 65 63 74 69 6c 65 20 6e 69 6c 20 74 29 0a 20 20 20 20 20 20 equire.'projectile.nil.t).......
2f00 20 20 20 20 28 70 72 6f 6a 65 63 74 69 6c 65 2d 6c 6f 61 64 2d 6b 6e 6f 77 6e 2d 70 72 6f 6a 65 ....(projectile-load-known-proje
2f20 63 74 73 29 0a 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 28 6d 65 73 73 61 67 65 20 22 50 72 cts).........(error.(message."Pr
2f40 6f 6a 65 63 74 69 6c 65 20 70 72 6f 6a 65 63 74 73 20 63 6f 75 6c 64 20 6e 6f 74 20 62 65 20 6c ojectile.projects.could.not.be.l
2f60 6f 61 64 65 64 2e 22 29 29 29 0a 20 20 20 20 70 72 6f 6a 65 63 74 69 6c 65 2d 6b 6e 6f 77 6e 2d oaded."))).....projectile-known-
2f80 70 72 6f 6a 65 63 74 73 29 29 0a 0a 28 64 65 66 76 61 72 20 63 6f 6e 73 75 6c 74 2d 64 69 72 2d projects))..(defvar.consult-dir-
2fa0 2d 70 72 6f 6a 65 63 74 2d 6c 69 73 74 2d 68 61 73 68 20 6e 69 6c 0a 20 20 22 48 61 73 68 20 74 -project-list-hash.nil..."Hash.t
2fc0 6f 20 73 74 6f 72 65 20 74 68 65 20 6c 69 73 74 20 6f 66 20 70 72 6f 6a 65 63 74 73 2e 0a 0a 55 o.store.the.list.of.projects...U
2fe0 73 65 64 20 74 6f 20 61 76 6f 69 64 20 64 75 70 6c 69 63 61 74 69 6e 67 20 73 6f 75 72 63 65 20 sed.to.avoid.duplicating.source.
3000 65 6e 74 72 69 65 73 20 69 6e 0a 60 63 6f 6e 73 75 6c 74 2d 64 69 72 27 2e 22 29 0a 0a 28 64 65 entries.in.`consult-dir'.")..(de
3020 66 75 6e 20 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 2d 70 72 6f 6a 65 63 74 2d 6c 69 73 74 2d 6d 61 fun.consult-dir--project-list-ma
3040 6b 65 20 28 26 6f 70 74 69 6f 6e 61 6c 20 72 65 66 72 65 73 68 29 0a 20 20 22 4d 61 6b 65 20 68 ke.(&optional.refresh)..."Make.h
3060 61 73 68 20 74 61 62 6c 65 20 74 6f 20 73 74 6f 72 65 20 74 68 65 20 6c 69 73 74 20 6f 66 20 70 ash.table.to.store.the.list.of.p
3080 72 6f 6a 65 63 74 73 2e 0a 0a 54 68 65 20 74 61 62 6c 65 20 69 73 20 73 74 6f 72 65 64 20 69 6e rojects...The.table.is.stored.in
30a0 20 60 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 2d 70 72 6f 6a 65 63 74 2d 6c 69 73 74 2d 68 61 73 68 .`consult-dir--project-list-hash
30c0 27 2e 20 57 68 65 6e 0a 52 45 46 52 45 53 48 20 69 73 20 6e 6f 6e 2d 6e 69 6c 20 66 6f 72 63 65 '..When.REFRESH.is.non-nil.force
30e0 20 74 68 65 20 68 61 73 68 20 74 6f 20 62 65 20 72 65 62 75 69 6c 74 2e 22 0a 20 20 28 77 68 65 .the.hash.to.be.rebuilt."...(whe
3100 6e 20 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 70 72 6f 6a 65 63 74 2d 6c 69 73 74 2d 66 75 6e 63 74 n.consult-dir-project-list-funct
3120 69 6f 6e 0a 20 20 20 20 28 6c 65 74 2a 20 28 28 70 72 6f 6a 2d 6c 69 73 74 20 28 66 75 6e 63 61 ion.....(let*.((proj-list.(funca
3140 6c 6c 20 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 70 72 6f 6a 65 63 74 2d 6c 69 73 74 2d 66 75 6e 63 ll.consult-dir-project-list-func
3160 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 6a 2d 73 78 20 28 73 78 68 61 tion))............(proj-sx.(sxha
3180 73 68 20 70 72 6f 6a 2d 6c 69 73 74 29 29 29 0a 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 6f sh.proj-list))).......(unless.(o
31a0 72 20 72 65 66 72 65 73 68 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 71 75 r.refresh...................(equ
31c0 61 6c 20 70 72 6f 6a 2d 73 78 20 28 63 61 72 20 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 2d 70 72 6f al.proj-sx.(car.consult-dir--pro
31e0 6a 65 63 74 2d 6c 69 73 74 2d 68 61 73 68 29 29 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 71 20 ject-list-hash))).........(setq.
3200 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 2d 70 72 6f 6a 65 63 74 2d 6c 69 73 74 2d 68 61 73 68 0a 20 consult-dir--project-list-hash..
3220 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 20 70 72 6f 6a 2d 73 78 20 28 63 6f 6e 73 .............(cons.proj-sx.(cons
3240 75 6c 74 2d 2d 73 74 72 69 6e 67 2d 68 61 73 68 20 28 64 65 6c 71 20 6e 69 6c 20 70 72 6f 6a 2d ult--string-hash.(delq.nil.proj-
3260 6c 69 73 74 29 29 29 29 29 0a 20 20 20 20 20 20 28 63 64 72 20 63 6f 6e 73 75 6c 74 2d 64 69 72 list))))).......(cdr.consult-dir
3280 2d 2d 70 72 6f 6a 65 63 74 2d 6c 69 73 74 2d 68 61 73 68 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 --project-list-hash))))..(defun.
32a0 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 2d 70 72 6f 6a 65 63 74 2d 64 69 72 73 20 28 29 0a 20 20 22 consult-dir--project-dirs.()..."
32c0 52 65 74 75 72 6e 20 6c 69 73 74 20 6f 66 20 70 72 6f 6a 65 63 74 20 64 69 72 65 63 74 6f 72 69 Return.list.of.project.directori
32e0 65 73 2e 22 0a 20 20 28 77 68 65 6e 2d 6c 65 74 20 28 28 70 72 6f 6a 65 63 74 73 20 28 63 6f 6e es."...(when-let.((projects.(con
3300 73 75 6c 74 2d 64 69 72 2d 2d 70 72 6f 6a 65 63 74 2d 6c 69 73 74 2d 6d 61 6b 65 29 29 29 0a 20 sult-dir--project-list-make)))..
3320 20 20 20 28 68 61 73 68 2d 74 61 62 6c 65 2d 6b 65 79 73 20 70 72 6f 6a 65 63 74 73 29 29 29 0a ...(hash-table-keys.projects))).
3340 0a 28 64 65 66 75 6e 20 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 2d 72 65 63 65 6e 74 66 2d 64 69 72 .(defun.consult-dir--recentf-dir
3360 73 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 6c 69 73 74 20 6f 66 20 72 65 63 65 6e 74 66 20 64 s.()..."Return.list.of.recentf.d
3380 69 72 73 2e 0a 0a 45 6e 74 72 69 65 73 20 74 68 61 74 20 61 72 65 20 61 6c 73 6f 20 69 6e 20 74 irs...Entries.that.are.also.in.t
33a0 68 65 20 6c 69 73 74 20 6f 66 20 70 72 6f 6a 65 63 74 73 20 61 72 65 20 72 65 6d 6f 76 65 64 2e he.list.of.projects.are.removed.
33c0 22 0a 20 20 28 6c 65 74 2a 20 28 28 63 75 72 72 65 6e 74 2d 64 69 72 73 20 28 63 6f 6e 73 75 6c "...(let*.((current-dirs.(consul
33e0 74 2d 64 69 72 2d 2d 64 65 66 61 75 6c 74 2d 64 69 72 73 29 29 0a 20 20 20 20 20 20 20 20 20 28 t-dir--default-dirs))..........(
3400 70 72 6f 6a 2d 6c 69 73 74 2d 68 61 73 68 20 28 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 2d 70 72 6f proj-list-hash.(consult-dir--pro
3420 6a 65 63 74 2d 6c 69 73 74 2d 6d 61 6b 65 29 29 0a 20 20 20 20 20 20 20 20 20 28 69 6e 2d 6f 74 ject-list-make))..........(in-ot
3440 68 65 72 2d 73 6f 75 72 63 65 2d 70 20 28 6c 61 6d 62 64 61 20 28 64 69 72 29 20 28 6e 6f 74 20 her-source-p.(lambda.(dir).(not.
3460 28 6f 72 20 28 61 6e 64 20 70 72 6f 6a 2d 6c 69 73 74 2d 68 61 73 68 20 28 67 65 74 68 61 73 68 (or.(and.proj-list-hash.(gethash
3480 20 64 69 72 20 70 72 6f 6a 2d 6c 69 73 74 2d 68 61 73 68 29 29 0a 20 20 20 20 20 20 20 20 20 20 .dir.proj-list-hash))...........
34a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
34c0 20 20 20 20 28 6d 65 6d 62 65 72 20 64 69 72 20 63 75 72 72 65 6e 74 2d 64 69 72 73 29 29 29 29 ....(member.dir.current-dirs))))
34e0 29 0a 20 20 20 20 20 20 20 20 20 28 66 69 6c 65 2d 64 69 72 65 63 74 6f 72 79 2d 73 61 66 65 20 )..........(file-directory-safe.
3500 28 6c 61 6d 62 64 61 20 28 66 29 20 28 6f 72 20 28 61 6e 64 20 28 69 66 20 28 66 69 6c 65 2d 72 (lambda.(f).(or.(and.(if.(file-r
3520 65 6d 6f 74 65 2d 70 20 66 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 emote-p.f)......................
3540 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
3560 20 20 28 73 74 72 69 6e 67 2d 73 75 66 66 69 78 2d 70 20 22 2f 22 20 66 29 0a 20 20 20 20 20 20 ..(string-suffix-p."/".f).......
3580 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
35a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6c 65 2d 64 69 72 65 63 74 6f 72 79 2d 70 ...............(file-directory-p
35c0 20 66 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .f))............................
35e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6c 65 2d 6e 61 ........................(file-na
3600 6d 65 2d 61 73 2d 64 69 72 65 63 74 6f 72 79 20 66 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 me-as-directory.f)).............
3620 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
3640 20 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 64 69 72 65 63 74 6f 72 79 20 66 29 29 29 29 0a 20 20 20 ..(file-name-directory.f))))....
3660 20 20 20 20 20 20 3b 3b 20 54 72 79 69 6e 67 20 74 6f 20 61 62 62 72 65 76 69 61 74 65 20 72 65 ......;;.Trying.to.abbreviate.re
3680 6d 6f 74 65 20 72 65 63 65 6e 74 20 66 69 6c 65 20 6e 61 6d 65 73 20 63 61 6e 20 63 61 75 73 65 mote.recent.file.names.can.cause
36a0 20 54 52 41 4d 50 20 74 6f 0a 20 20 20 20 20 20 20 20 20 3b 3b 20 6f 70 65 6e 20 63 6f 6e 6e 65 .TRAMP.to..........;;.open.conne
36c0 63 74 69 6f 6e 73 2c 20 77 68 69 63 68 20 63 61 6e 20 62 65 20 73 6c 6f 77 20 61 6e 64 20 69 6e ctions,.which.can.be.slow.and.in
36e0 74 65 72 72 75 70 74 20 74 68 65 20 75 73 65 72 20 77 69 74 68 0a 20 20 20 20 20 20 20 20 20 3b terrupt.the.user.with..........;
3700 3b 20 70 72 6f 6d 70 74 73 2e 20 53 65 65 20 e2 80 98 74 72 61 6d 70 2d 66 69 6c 65 2d 6e 61 6d ;.prompts..See....tramp-file-nam
3720 65 2d 68 61 6e 64 6c 65 72 e2 80 99 2e 0a 20 20 20 20 20 20 20 20 20 28 61 62 62 72 65 76 69 61 e-handler..............(abbrevia
3740 74 65 2d 6c 6f 63 61 6c 2d 66 69 6c 65 2d 6e 61 6d 65 20 28 6c 61 6d 62 64 61 20 28 66 29 20 28 te-local-file-name.(lambda.(f).(
3760 69 66 20 28 66 69 6c 65 2d 72 65 6d 6f 74 65 2d 70 20 66 29 0a 20 20 20 20 20 20 20 20 20 20 20 if.(file-remote-p.f)............
3780 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
37a0 20 20 20 20 20 20 20 20 20 20 66 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..........f.....................
37c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 ...............................(
37e0 61 62 62 72 65 76 69 61 74 65 2d 66 69 6c 65 2d 6e 61 6d 65 20 66 29 29 29 29 29 0a 20 20 20 20 abbreviate-file-name.f))))).....
3800 28 74 68 72 65 61 64 2d 6c 61 73 74 20 72 65 63 65 6e 74 66 2d 6c 69 73 74 0a 20 20 20 20 20 20 (thread-last.recentf-list.......
3820 28 6d 61 70 63 61 72 20 66 69 6c 65 2d 64 69 72 65 63 74 6f 72 79 2d 73 61 66 65 29 0a 20 20 20 (mapcar.file-directory-safe)....
3840 20 20 20 28 64 65 6c 65 74 65 2d 64 75 70 73 29 0a 20 20 20 20 20 20 28 6d 61 70 63 61 72 20 61 ...(delete-dups).......(mapcar.a
3860 62 62 72 65 76 69 61 74 65 2d 6c 6f 63 61 6c 2d 66 69 6c 65 2d 6e 61 6d 65 29 0a 20 20 20 20 20 bbreviate-local-file-name)......
3880 20 28 73 65 71 2d 66 69 6c 74 65 72 20 69 6e 2d 6f 74 68 65 72 2d 73 6f 75 72 63 65 2d 70 29 29 .(seq-filter.in-other-source-p))
38a0 29 29 0a 0a 28 64 65 66 76 61 72 20 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 2d 73 6f 75 72 63 65 2d ))..(defvar.consult-dir--source-
38c0 72 65 63 65 6e 74 66 0a 20 20 60 28 3a 6e 61 6d 65 20 22 52 65 63 65 6e 74 66 20 64 69 72 73 22 recentf...`(:name."Recentf.dirs"
38e0 0a 20 20 20 20 3a 6e 61 72 72 6f 77 20 3f 72 0a 20 20 20 20 3a 63 61 74 65 67 6f 72 79 20 66 69 .....:narrow.?r.....:category.fi
3900 6c 65 0a 20 20 20 20 3a 66 61 63 65 20 63 6f 6e 73 75 6c 74 2d 66 69 6c 65 0a 20 20 20 20 3a 68 le.....:face.consult-file.....:h
3920 69 73 74 6f 72 79 20 66 69 6c 65 2d 6e 61 6d 65 2d 68 69 73 74 6f 72 79 0a 20 20 20 20 3a 65 6e istory.file-name-history.....:en
3940 61 62 6c 65 64 20 2c 28 6c 61 6d 62 64 61 20 28 29 20 72 65 63 65 6e 74 66 2d 6d 6f 64 65 29 0a abled.,(lambda.().recentf-mode).
3960 20 20 20 20 3a 69 74 65 6d 73 20 2c 23 27 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 2d 72 65 63 65 6e ....:items.,#'consult-dir--recen
3980 74 66 2d 64 69 72 73 29 0a 20 20 22 52 65 63 65 6e 74 66 20 64 69 72 65 63 74 6f 72 79 20 73 6f tf-dirs)..."Recentf.directory.so
39a0 75 72 63 65 20 66 6f 72 20 60 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 2d 70 69 63 6b 27 2e 22 29 0a urce.for.`consult-dir--pick'.").
39c0 0a 28 64 65 66 76 61 72 20 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 2d 73 6f 75 72 63 65 2d 62 6f 6f .(defvar.consult-dir--source-boo
39e0 6b 6d 61 72 6b 0a 20 20 60 28 3a 6e 61 6d 65 20 22 42 6f 6f 6b 6d 61 72 6b 73 22 0a 20 20 20 20 kmark...`(:name."Bookmarks".....
3a00 3a 6e 61 72 72 6f 77 20 3f 6d 0a 20 20 20 20 3a 63 61 74 65 67 6f 72 79 20 62 6f 6f 6b 6d 61 72 :narrow.?m.....:category.bookmar
3a20 6b 0a 20 20 20 20 3a 66 61 63 65 20 63 6f 6e 73 75 6c 74 2d 66 69 6c 65 0a 20 20 20 20 3a 68 69 k.....:face.consult-file.....:hi
3a40 73 74 6f 72 79 20 62 6f 6f 6b 6d 61 72 6b 2d 68 69 73 74 6f 72 79 0a 20 20 20 20 3a 69 74 65 6d story.bookmark-history.....:item
3a60 73 20 2c 23 27 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 2d 62 6f 6f 6b 6d 61 72 6b 2d 64 69 72 73 29 s.,#'consult-dir--bookmark-dirs)
3a80 0a 20 20 22 42 6f 6f 6b 6d 61 72 6b 20 64 69 72 65 63 74 6f 72 79 20 73 6f 75 72 63 65 20 66 6f ..."Bookmark.directory.source.fo
3aa0 72 20 60 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 2d 70 69 63 6b 27 2e 22 29 0a 0a 28 64 65 66 76 61 r.`consult-dir--pick'.")..(defva
3ac0 72 20 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 2d 73 6f 75 72 63 65 2d 64 65 66 61 75 6c 74 0a 20 20 r.consult-dir--source-default...
3ae0 60 28 3a 6e 61 6d 65 20 22 54 68 69 73 20 64 69 72 65 63 74 6f 72 79 2f 70 72 6f 6a 65 63 74 22 `(:name."This.directory/project"
3b00 0a 20 20 20 20 3a 6e 61 72 72 6f 77 20 3f 2e 0a 20 20 20 20 3a 63 61 74 65 67 6f 72 79 20 66 69 .....:narrow.?......:category.fi
3b20 6c 65 0a 20 20 20 20 3a 66 61 63 65 20 63 6f 6e 73 75 6c 74 2d 66 69 6c 65 0a 20 20 20 20 3a 68 le.....:face.consult-file.....:h
3b40 69 73 74 6f 72 79 20 66 69 6c 65 2d 6e 61 6d 65 2d 68 69 73 74 6f 72 79 0a 20 20 20 20 3a 69 74 istory.file-name-history.....:it
3b60 65 6d 73 20 2c 23 27 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 2d 64 65 66 61 75 6c 74 2d 64 69 72 73 ems.,#'consult-dir--default-dirs
3b80 29 0a 20 20 22 43 75 72 72 65 6e 74 20 70 72 6f 6a 65 63 74 20 64 69 72 65 63 74 6f 72 79 20 66 )..."Current.project.directory.f
3ba0 6f 72 20 60 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 2d 70 69 63 6b 27 2e 22 29 0a 0a 28 64 65 66 76 or.`consult-dir--pick'.")..(defv
3bc0 61 72 20 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 2d 73 6f 75 72 63 65 2d 70 72 6f 6a 65 63 74 0a 20 ar.consult-dir--source-project..
3be0 20 60 28 3a 6e 61 6d 65 20 22 50 72 6f 6a 65 63 74 73 22 0a 20 20 20 20 3a 6e 61 72 72 6f 77 20 .`(:name."Projects".....:narrow.
3c00 3f 70 0a 20 20 20 20 3a 63 61 74 65 67 6f 72 79 20 66 69 6c 65 0a 20 20 20 20 3a 66 61 63 65 20 ?p.....:category.file.....:face.
3c20 63 6f 6e 73 75 6c 74 2d 66 69 6c 65 0a 20 20 20 20 3a 68 69 73 74 6f 72 79 20 66 69 6c 65 2d 6e consult-file.....:history.file-n
3c40 61 6d 65 2d 68 69 73 74 6f 72 79 0a 20 20 20 20 3a 65 6e 61 62 6c 65 64 20 2c 28 6c 61 6d 62 64 ame-history.....:enabled.,(lambd
3c60 61 20 28 29 20 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 70 72 6f 6a 65 63 74 2d 6c 69 73 74 2d 66 75 a.().consult-dir-project-list-fu
3c80 6e 63 74 69 6f 6e 29 0a 20 20 20 20 3a 69 74 65 6d 73 20 2c 28 6c 61 6d 62 64 61 20 28 29 20 28 nction).....:items.,(lambda.().(
3ca0 6c 65 74 20 28 28 63 75 72 72 65 6e 74 2d 64 69 72 73 20 28 63 6f 6e 73 75 6c 74 2d 64 69 72 2d let.((current-dirs.(consult-dir-
3cc0 2d 64 65 66 61 75 6c 74 2d 64 69 72 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 -default-dirs)))................
3ce0 20 20 20 20 20 28 73 65 71 2d 66 69 6c 74 65 72 20 28 6c 61 6d 62 64 61 20 28 70 72 6f 6a 29 20 .....(seq-filter.(lambda.(proj).
3d00 28 6e 6f 74 20 28 6d 65 6d 62 65 72 20 70 72 6f 6a 20 63 75 72 72 65 6e 74 2d 64 69 72 73 29 29 (not.(member.proj.current-dirs))
3d20 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 )...............................
3d40 20 20 28 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 2d 70 72 6f 6a 65 63 74 2d 64 69 72 73 29 29 29 29 ..(consult-dir--project-dirs))))
3d60 29 0a 20 20 22 50 72 6f 6a 65 63 74 20 64 69 72 65 63 74 6f 72 79 20 73 6f 75 72 63 65 20 66 6f )..."Project.directory.source.fo
3d80 72 20 60 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 2d 70 69 63 6b 27 2e 22 29 0a 0a 28 64 65 66 76 61 r.`consult-dir--pick'.")..(defva
3da0 72 20 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 2d 73 6f 75 72 63 65 2d 74 72 61 6d 70 2d 6c 6f 63 61 r.consult-dir--source-tramp-loca
3dc0 6c 0a 20 20 60 28 3a 6e 61 6d 65 20 20 20 20 20 22 4c 6f 63 61 6c 22 0a 20 20 20 20 3a 6e 61 72 l...`(:name....."Local".....:nar
3de0 72 6f 77 20 20 20 3f 6c 0a 20 20 20 20 3a 63 61 74 65 67 6f 72 79 20 66 69 6c 65 0a 20 20 20 20 row...?l.....:category.file.....
3e00 3a 66 61 63 65 20 20 20 20 20 63 6f 6e 73 75 6c 74 2d 66 69 6c 65 0a 20 20 20 20 3a 68 69 73 74 :face.....consult-file.....:hist
3e20 6f 72 79 20 20 66 69 6c 65 2d 6e 61 6d 65 2d 68 69 73 74 6f 72 79 0a 20 20 20 20 3a 69 74 65 6d ory..file-name-history.....:item
3e40 73 20 20 20 20 2c 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 74 72 61 6d 70 2d 6c 6f 63 61 6c 2d 68 6f s....,consult-dir-tramp-local-ho
3e60 73 74 73 29 0a 20 20 22 4c 6f 63 61 6c 20 68 6f 73 74 20 63 61 6e 64 69 64 61 74 65 20 73 6f 75 sts)..."Local.host.candidate.sou
3e80 72 63 65 20 66 6f 72 20 60 63 6f 6e 73 75 6c 74 2d 64 69 72 27 2e 22 29 0a 0a 28 64 65 66 76 61 rce.for.`consult-dir'.")..(defva
3ea0 72 20 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 2d 73 6f 75 72 63 65 2d 74 72 61 6d 70 2d 73 73 68 0a r.consult-dir--source-tramp-ssh.
3ec0 20 20 60 28 3a 6e 61 6d 65 20 20 20 20 20 22 53 53 48 20 43 6f 6e 66 69 67 22 0a 20 20 20 20 3a ..`(:name....."SSH.Config".....:
3ee0 6e 61 72 72 6f 77 20 20 20 3f 73 0a 20 20 20 20 3a 63 61 74 65 67 6f 72 79 20 66 69 6c 65 0a 20 narrow...?s.....:category.file..
3f00 20 20 20 3a 66 61 63 65 20 20 20 20 20 63 6f 6e 73 75 6c 74 2d 66 69 6c 65 0a 20 20 20 20 3a 68 ...:face.....consult-file.....:h
3f20 69 73 74 6f 72 79 20 20 66 69 6c 65 2d 6e 61 6d 65 2d 68 69 73 74 6f 72 79 0a 20 20 20 20 3a 69 istory..file-name-history.....:i
3f40 74 65 6d 73 20 20 20 20 2c 23 27 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 2d 74 72 61 6d 70 2d 73 73 tems....,#'consult-dir--tramp-ss
3f60 68 2d 68 6f 73 74 73 29 0a 20 20 22 53 53 48 20 43 6f 6e 66 69 67 20 63 61 6e 64 69 61 64 61 74 h-hosts)..."SSH.Config.candiadat
3f80 65 20 73 6f 75 72 63 65 20 66 6f 72 20 60 63 6f 6e 73 75 6c 74 2d 64 69 72 27 2e 22 29 0a 0a 28 e.source.for.`consult-dir'.")..(
3fa0 64 65 66 75 6e 20 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 2d 70 69 63 6b 20 28 26 6f 70 74 69 6f 6e defun.consult-dir--pick.(&option
3fc0 61 6c 20 70 72 6f 6d 70 74 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 64 69 72 65 63 74 6f 72 79 al.prompt)..."Return.a.directory
3fe0 20 63 68 6f 73 65 6e 20 66 72 6f 6d 20 62 6f 6f 6b 6d 61 72 6b 73 20 61 6e 64 20 70 72 6f 6a 65 .chosen.from.bookmarks.and.proje
4000 63 74 73 2e 0a 0a 4f 70 74 69 6f 6e 61 6c 20 61 72 67 75 6d 65 6e 74 20 50 52 4f 4d 50 54 20 69 cts...Optional.argument.PROMPT.i
4020 73 20 74 68 65 20 70 72 6f 6d 70 74 2e 22 0a 20 20 28 6c 65 74 20 28 28 6d 61 74 63 68 20 28 63 s.the.prompt."...(let.((match.(c
4040 6f 6e 73 75 6c 74 2d 2d 6d 75 6c 74 69 20 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 73 6f 75 72 63 65 onsult--multi.consult-dir-source
4060 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 s...............................
4080 20 3a 70 72 6f 6d 70 74 20 28 6f 72 20 70 72 6f 6d 70 74 20 22 53 77 69 74 63 68 20 64 69 72 65 .:prompt.(or.prompt."Switch.dire
40a0 63 74 6f 72 79 3a 20 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ctory:.").......................
40c0 20 20 20 20 20 20 20 20 20 3a 73 6f 72 74 20 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 73 6f 72 74 2d .........:sort.consult-dir-sort-
40e0 63 61 6e 64 69 64 61 74 65 73 29 29 29 0a 20 20 20 20 28 70 63 61 73 65 20 28 70 6c 69 73 74 2d candidates))).....(pcase.(plist-
4100 67 65 74 20 28 63 64 72 20 6d 61 74 63 68 29 20 3a 63 61 74 65 67 6f 72 79 29 0a 20 20 20 20 20 get.(cdr.match).:category)......
4120 20 28 27 62 6f 6f 6b 6d 61 72 6b 20 28 62 6f 6f 6b 6d 61 72 6b 2d 67 65 74 2d 66 69 6c 65 6e 61 .('bookmark.(bookmark-get-filena
4140 6d 65 20 28 63 61 72 20 6d 61 74 63 68 29 29 29 0a 20 20 20 20 20 20 28 27 66 69 6c 65 20 28 63 me.(car.match))).......('file.(c
4160 61 72 20 6d 61 74 63 68 29 29 29 29 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 0a 28 64 ar.match)))))..;;;###autoload.(d
4180 65 66 75 6e 20 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 6a 75 6d 70 2d 66 69 6c 65 20 28 29 0a 20 20 efun.consult-dir-jump-file.()...
41a0 22 4a 75 6d 70 20 74 6f 20 66 69 6c 65 20 66 72 6f 6d 20 74 68 65 20 64 69 72 65 63 74 6f 72 79 "Jump.to.file.from.the.directory
41c0 20 69 6e 20 74 68 65 20 6d 69 6e 69 62 75 66 66 65 72 20 70 72 6f 6d 70 74 2e 22 0a 20 20 28 69 .in.the.minibuffer.prompt."...(i
41e0 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 6c 65 74 2a 20 28 28 6d 63 20 28 73 75 62 73 74 69 nteractive)...(let*.((mc.(substi
4200 74 75 74 65 2d 69 6e 2d 66 69 6c 65 2d 6e 61 6d 65 20 28 6d 69 6e 69 62 75 66 66 65 72 2d 63 6f tute-in-file-name.(minibuffer-co
4220 6e 74 65 6e 74 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 64 69 72 20 28 66 69 6c 65 2d 6e 61 ntents)))..........(dir.(file-na
4240 6d 65 2d 64 69 72 65 63 74 6f 72 79 20 6d 63 29 29 0a 20 20 20 20 20 20 20 20 20 28 73 65 61 72 me-directory.mc))..........(sear
4260 63 68 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 6e 6f 6e 64 69 72 65 63 74 6f 72 79 20 6d 63 29 29 29 ch.(file-name-nondirectory.mc)))
4280 0a 20 20 20 20 28 72 75 6e 2d 61 74 2d 74 69 6d 65 20 30 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 .....(run-at-time.0.nil.........
42a0 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 20 28 66 75 6e 63 61 6c 6c 20 63 6f 6e .........(lambda.().(funcall.con
42c0 73 75 6c 74 2d 64 69 72 2d 6a 75 6d 70 2d 66 69 6c 65 2d 63 6f 6d 6d 61 6e 64 0a 20 20 20 20 20 sult-dir-jump-file-command......
42e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 69 72 0a 20 20 20 20 20 20 20 20 20 ...................dir..........
4300 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 63 61 74 20 73 65 61 72 63 68 0a 20 20 ...............(concat.search...
4320 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 ..............................(u
4340 6e 6c 65 73 73 20 28 73 74 72 69 6e 67 2d 65 6d 70 74 79 2d 70 20 73 65 61 72 63 68 29 0a 20 20 nless.(string-empty-p.search)...
4360 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
4380 28 70 6c 69 73 74 2d 67 65 74 20 28 63 6f 6e 73 75 6c 74 2d 2d 61 73 79 6e 63 2d 73 70 6c 69 74 (plist-get.(consult--async-split
43a0 2d 73 74 79 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 -style).........................
43c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 69 6e 69 74 69 61 6c 29 29 29 .....................:initial)))
43e0 29 29 29 0a 20 20 20 20 28 61 62 6f 72 74 2d 72 65 63 75 72 73 69 76 65 2d 65 64 69 74 29 29 29 ))).....(abort-recursive-edit)))
4400 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 0a 28 64 65 66 75 6e 20 63 6f 6e 73 75 6c 74 2d ..;;;###autoload.(defun.consult-
4420 64 69 72 20 28 29 0a 20 20 20 20 22 43 68 6f 6f 73 65 20 61 20 64 69 72 65 63 74 6f 72 79 20 61 dir.()....."Choose.a.directory.a
4440 6e 64 20 61 63 74 20 6f 6e 20 69 74 2e 0a 0a 54 68 65 20 61 63 74 69 6f 6e 20 74 61 6b 65 6e 20 nd.act.on.it...The.action.taken.
4460 6f 6e 20 74 68 65 20 64 69 72 65 63 74 6f 72 79 20 69 73 20 74 68 65 20 76 61 6c 75 65 20 6f 66 on.the.directory.is.the.value.of
4480 0a 60 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 64 65 66 61 75 6c 74 2d 63 6f 6d 6d 61 6e 64 27 2e 20 .`consult-dir-default-command'..
44a0 54 68 65 20 64 65 66 61 75 6c 74 20 69 73 20 74 6f 20 63 61 6c 6c 0a 60 66 69 6e 64 2d 66 69 6c The.default.is.to.call.`find-fil
44c0 65 27 20 73 74 61 72 74 69 6e 67 20 61 74 20 74 68 69 73 20 64 69 72 65 63 74 6f 72 79 2e 0a 0a e'.starting.at.this.directory...
44e0 57 68 65 6e 20 63 61 6c 6c 65 64 20 66 72 6f 6d 20 74 68 65 20 6d 69 6e 69 62 75 66 66 65 72 2c When.called.from.the.minibuffer,
4500 20 69 6e 73 65 72 74 20 74 68 65 20 64 69 72 65 63 74 6f 72 79 20 69 6e 74 6f 20 74 68 65 0a 6d .insert.the.directory.into.the.m
4520 69 6e 69 62 75 66 66 65 72 20 70 72 6f 6d 70 74 20 69 6e 73 74 65 61 64 2e 20 45 78 69 73 74 69 inibuffer.prompt.instead..Existi
4540 6e 67 20 6d 69 6e 69 62 75 66 66 65 72 20 63 6f 6e 74 65 6e 74 73 20 77 69 6c 6c 20 62 65 0a 73 ng.minibuffer.contents.will.be.s
4560 68 61 64 6f 77 65 64 20 6f 72 20 64 65 6c 65 74 65 64 20 64 65 70 65 6e 64 69 6e 67 20 6f 6e 20 hadowed.or.deleted.depending.on.
4580 74 68 65 20 76 61 6c 75 65 20 6f 66 0a 60 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 73 68 61 64 6f 77 the.value.of.`consult-dir-shadow
45a0 2d 66 69 6c 65 6e 61 6d 65 73 27 2e 0a 0a 54 68 65 20 6c 69 73 74 20 6f 66 20 73 6f 75 72 63 65 -filenames'...The.list.of.source
45c0 73 20 66 6f 72 20 64 69 72 65 63 74 6f 72 79 20 70 61 74 68 73 20 69 73 0a 60 63 6f 6e 73 75 6c s.for.directory.paths.is.`consul
45e0 74 2d 64 69 72 2d 73 6f 75 72 63 65 73 27 2c 20 77 68 69 63 68 20 63 61 6e 20 62 65 20 63 75 73 t-dir-sources',.which.can.be.cus
4600 74 6f 6d 69 7a 65 64 2e 22 0a 20 20 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 20 20 tomized.".....(interactive).....
4620 28 69 66 20 28 6d 69 6e 69 62 75 66 66 65 72 70 29 0a 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 (if.(minibufferp).......(let*.((
4640 65 6e 61 62 6c 65 2d 72 65 63 75 72 73 69 76 65 2d 6d 69 6e 69 62 75 66 66 65 72 73 20 74 29 0a enable-recursive-minibuffers.t).
4660 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6c 65 2d 6e 61 6d 65 20 28 66 69 6c 65 2d 6e 61 .............(file-name.(file-na
4680 6d 65 2d 6e 6f 6e 64 69 72 65 63 74 6f 72 79 20 28 6d 69 6e 69 62 75 66 66 65 72 2d 63 6f 6e 74 me-nondirectory.(minibuffer-cont
46a0 65 6e 74 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 65 77 2d 64 69 72 20 28 63 ents)))..............(new-dir.(c
46c0 6f 6e 73 75 6c 74 2d 64 69 72 2d 2d 70 69 63 6b 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 onsult-dir--pick))..............
46e0 28 6e 65 77 2d 66 75 6c 6c 2d 6e 61 6d 65 20 28 63 6f 6e 63 61 74 20 28 66 69 6c 65 2d 6e 61 6d (new-full-name.(concat.(file-nam
4700 65 2d 61 73 2d 64 69 72 65 63 74 6f 72 79 20 6e 65 77 2d 64 69 72 29 0a 20 20 20 20 20 20 20 20 e-as-directory.new-dir).........
4720 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 69 6c 65 ............................file
4740 2d 6e 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 6e 65 77 2d 64 69 72 0a 20 -name))).........(when.new-dir..
4760 20 20 20 20 20 20 20 20 20 28 69 66 20 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 73 68 61 64 6f 77 2d .........(if.consult-dir-shadow-
4780 66 69 6c 65 6e 61 6d 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 filenames...............(insert.
47a0 22 2f 22 20 6e 65 77 2d 66 75 6c 6c 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 "/".new-full-name).............(
47c0 64 65 6c 65 74 65 2d 6d 69 6e 69 62 75 66 66 65 72 2d 63 6f 6e 74 65 6e 74 73 29 0a 20 20 20 20 delete-minibuffer-contents).....
47e0 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 6e 65 77 2d 66 75 6c 6c 2d 6e 61 6d 65 29 29 29 ........(insert.new-full-name)))
4800 29 0a 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 6e 65 77 2d 64 69 72 20 28 63 6f 6e 73 75 6c 74 ).......(let*.((new-dir.(consult
4820 2d 64 69 72 2d 2d 70 69 63 6b 20 22 49 6e 20 64 69 72 65 63 74 6f 72 79 3a 20 22 29 29 0a 20 20 -dir--pick."In.directory:."))...
4840 20 20 20 20 20 20 20 20 20 20 20 28 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 20 6e 65 ...........(default-directory.ne
4860 77 2d 64 69 72 29 29 0a 20 20 20 20 20 20 20 20 28 63 61 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 w-dir)).........(call-interactiv
4880 65 6c 79 20 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 64 65 66 61 75 6c 74 2d 63 6f 6d 6d 61 6e 64 29 ely.consult-dir-default-command)
48a0 29 29 29 0a 0a 28 70 72 6f 76 69 64 65 20 27 63 6f 6e 73 75 6c 74 2d 64 69 72 29 0a 3b 3b 3b 20 )))..(provide.'consult-dir).;;;.
48c0 63 6f 6e 73 75 6c 74 2d 64 69 72 2e 65 6c 20 65 6e 64 73 20 68 65 72 65 0a 00 00 00 00 00 00 00 consult-dir.el.ends.here........
48e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4900 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4920 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4940 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4960 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4980 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
49a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
49c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
49e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4a00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4a20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4a40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4a60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4a80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4aa0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4ac0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4ae0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4b00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4b20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4b40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4b60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4b80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4ba0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4bc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4be0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4c00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4c20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4c40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4c60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4c80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4ca0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4cc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4ce0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4d00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4d20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4d40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4d60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4d80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4da0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4dc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4de0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4e00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4e20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4e40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4e60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4e80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4ea0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4ec0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4ee0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4f00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4f20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4f40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4f60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4f80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4fa0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4fc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
4fe0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
generated by cgit v1.2.3 (git 2.25.1) at 2025-10-26 20:01:41 +0000