/ BCI NET 2 / BCI NET 2.iso / archives / programming / source / a2.0bemacs-src.lha / Emacs-19.25 / lisp / finder.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6b 77 7a 68 40 68 61 |piled by| kwzh@ha|
|00000020| 6c 2e 67 6e 75 2e 61 69 | 2e 6d 69 74 2e 65 64 75 |l.gnu.ai|.mit.edu|
|00000030| 20 6f 6e 20 57 65 64 20 | 4d 61 79 20 31 31 20 30 | on Wed |May 11 0|
|00000040| 30 3a 31 33 3a 31 32 20 | 31 39 39 34 0a 3b 3b 3b |0:13:12 |1994.;;;|
|00000050| 20 66 72 6f 6d 20 66 69 | 6c 65 20 2f 67 64 2f 67 | from fi|le /gd/g|
|00000060| 6e 75 2f 65 6d 61 63 73 | 2f 31 39 2e 30 2f 6c 69 |nu/emacs|/19.0/li|
|00000070| 73 70 2f 66 69 6e 64 65 | 72 2e 65 6c 0a 3b 3b 3b |sp/finde|r.el.;;;|
|00000080| 20 65 6d 61 63 73 20 76 | 65 72 73 69 6f 6e 20 31 | emacs v|ersion 1|
|00000090| 39 2e 32 32 2e 39 33 2e | 33 2e 0a 3b 3b 3b 20 62 |9.22.93.|3..;;; b|
|000000a0| 79 74 65 63 6f 6d 70 20 | 76 65 72 73 69 6f 6e 20 |ytecomp |version |
|000000b0| 46 53 46 20 32 2e 31 30 | 0a 3b 3b 3b 20 6f 70 74 |FSF 2.10|.;;; opt|
|000000c0| 69 6d 69 7a 61 74 69 6f | 6e 20 69 73 20 6f 6e 2e |imizatio|n is on.|
|000000d0| 0a 3b 3b 3b 20 74 68 69 | 73 20 66 69 6c 65 20 75 |.;;; thi|s file u|
|000000e0| 73 65 73 20 6f 70 63 6f | 64 65 73 20 77 68 69 63 |ses opco|des whic|
|000000f0| 68 20 64 6f 20 6e 6f 74 | 20 65 78 69 73 74 20 69 |h do not| exist i|
|00000100| 6e 20 45 6d 61 63 73 20 | 31 38 2e 0a 0a 28 69 66 |n Emacs |18...(if|
|00000110| 20 28 61 6e 64 20 28 62 | 6f 75 6e 64 70 20 27 65 | (and (b|oundp 'e|
|00000120| 6d 61 63 73 2d 76 65 72 | 73 69 6f 6e 29 0a 09 20 |macs-ver|sion).. |
|00000130| 28 6f 72 20 28 61 6e 64 | 20 28 62 6f 75 6e 64 70 |(or (and| (boundp|
|00000140| 20 27 65 70 6f 63 68 3a | 3a 76 65 72 73 69 6f 6e | 'epoch:|:version|
|00000150| 29 20 65 70 6f 63 68 3a | 3a 76 65 72 73 69 6f 6e |) epoch:|:version|
|00000160| 29 0a 09 20 20 20 20 20 | 28 73 74 72 69 6e 67 2d |)..     |(string-|
|00000170| 6c 65 73 73 70 20 65 6d | 61 63 73 2d 76 65 72 73 |lessp em|acs-vers|
|00000180| 69 6f 6e 20 22 31 39 22 | 29 29 29 0a 20 20 20 20 |ion "19"|))).    |
|00000190| 28 65 72 72 6f 72 20 22 | 60 2f 67 64 2f 67 6e 75 |(error "|`/gd/gnu|
|000001a0| 2f 65 6d 61 63 73 2f 31 | 39 2e 30 2f 6c 69 73 70 |/emacs/1|9.0/lisp|
|000001b0| 2f 66 69 6e 64 65 72 2e | 65 6c 27 20 77 61 73 20 |/finder.|el' was |
|000001c0| 63 6f 6d 70 69 6c 65 64 | 20 66 6f 72 20 45 6d 61 |compiled| for Ema|
|000001d0| 63 73 20 31 39 22 29 29 | 0a 0a 28 62 79 74 65 2d |cs 19"))|..(byte-|
|000001e0| 63 6f 64 65 20 22 c0 c1 | 21 88 c0 c2 21 88 c0 c3 |code "..|!...!...|
|000001f0| 21 88 c4 c5 21 84 14 00 | c6 15 c4 c7 21 84 1d 00 |!...!...|....!...|
|00000200| c8 16 07 c9 20 16 07 ca | 0e 07 cb cc 23 88 ca 0e |.... ...|....#...|
|00000210| 07 cd ce 23 88 ca 0e 07 | cf d0 23 88 ca 0e 07 d1 |...#....|..#.....|
|00000220| d2 23 87 22 20 5b 72 65 | 71 75 69 72 65 20 6c 69 |.#." [re|quire li|
|00000230| 73 70 2d 6d 6e 74 20 66 | 69 6e 64 65 72 2d 69 6e |sp-mnt f|inder-in|
|00000240| 66 20 70 69 63 74 75 72 | 65 20 62 6f 75 6e 64 70 |f pictur|e boundp|
|00000250| 20 66 69 6e 64 65 72 2d | 6b 6e 6f 77 6e 2d 6b 65 | finder-|known-ke|
|00000260| 79 77 6f 72 64 73 20 28 | 28 61 62 62 72 65 76 20 |ywords (|(abbrev |
|00000270| 2e 20 22 61 62 62 72 65 | 76 69 61 74 69 6f 6e 20 |. "abbre|viation |
|00000280| 68 61 6e 64 6c 69 6e 67 | 2c 20 74 79 70 69 6e 67 |handling|, typing|
|00000290| 20 73 68 6f 72 74 63 75 | 74 73 2c 20 6d 61 63 72 | shortcu|ts, macr|
|000002a0| 6f 73 22 29 20 28 62 69 | 62 20 2e 20 22 63 6f 64 |os") (bi|b . "cod|
|000002b0| 65 20 72 65 6c 61 74 65 | 64 20 74 6f 20 74 68 65 |e relate|d to the|
|000002c0| 20 60 62 69 62 27 20 62 | 69 62 6c 69 6f 67 72 61 | `bib' b|ibliogra|
|000002d0| 70 68 79 20 70 72 6f 63 | 65 73 73 6f 72 22 29 20 |phy proc|essor") |
|000002e0| 28 63 20 2e 20 22 43 20 | 61 6e 64 20 43 2b 2b 20 |(c . "C |and C++ |
|000002f0| 6c 61 6e 67 75 61 67 65 | 20 73 75 70 70 6f 72 74 |language| support|
|00000300| 22 29 20 28 63 61 6c 65 | 6e 64 61 72 20 2e 20 22 |") (cale|ndar . "|
|00000310| 63 61 6c 65 6e 64 61 72 | 20 61 6e 64 20 74 69 6d |calendar| and tim|
|00000320| 65 20 6d 61 6e 61 67 65 | 6d 65 6e 74 20 73 75 70 |e manage|ment sup|
|00000330| 70 6f 72 74 22 29 20 28 | 63 6f 6d 6d 20 2e 20 22 |port") (|comm . "|
|00000340| 63 6f 6d 6d 75 6e 69 63 | 61 74 69 6f 6e 73 2c 20 |communic|ations, |
|00000350| 6e 65 74 77 6f 72 6b 69 | 6e 67 2c 20 72 65 6d 6f |networki|ng, remo|
|00000360| 74 65 20 61 63 63 65 73 | 73 20 74 6f 20 66 69 6c |te acces|s to fil|
|00000370| 65 73 22 29 20 28 64 61 | 74 61 20 2e 20 22 73 75 |es") (da|ta . "su|
|00000380| 70 70 6f 72 74 20 65 64 | 69 74 69 6e 67 20 66 69 |pport ed|iting fi|
|00000390| 6c 65 73 20 6f 66 20 64 | 61 74 61 22 29 20 28 64 |les of d|ata") (d|
|000003a0| 6f 63 73 20 2e 20 22 73 | 75 70 70 6f 72 74 20 66 |ocs . "s|upport f|
|000003b0| 6f 72 20 45 6d 61 63 73 | 20 64 6f 63 75 6d 65 6e |or Emacs| documen|
|000003c0| 74 61 74 69 6f 6e 22 29 | 20 28 65 6d 75 6c 61 74 |tation")| (emulat|
|000003d0| 69 6f 6e 73 20 2e 20 22 | 65 6d 75 6c 61 74 69 6f |ions . "|emulatio|
|000003e0| 6e 73 20 6f 66 20 6f 74 | 68 65 72 20 65 64 69 74 |ns of ot|her edit|
|000003f0| 6f 72 73 22 29 20 28 65 | 78 74 65 6e 73 69 6f 6e |ors") (e|xtension|
|00000400| 73 20 2e 20 22 45 6d 61 | 63 73 20 4c 69 73 70 20 |s . "Ema|cs Lisp |
|00000410| 6c 61 6e 67 75 61 67 65 | 20 65 78 74 65 6e 73 69 |language| extensi|
|00000420| 6f 6e 73 22 29 20 28 66 | 61 63 65 73 20 2e 20 22 |ons") (f|aces . "|
|00000430| 73 75 70 70 6f 72 74 20 | 66 6f 72 20 6d 75 6c 74 |support |for mult|
|00000440| 69 70 6c 65 20 66 6f 6e | 74 73 22 29 20 28 67 61 |iple fon|ts") (ga|
|00000450| 6d 65 73 20 2e 20 22 67 | 61 6d 65 73 2c 20 6a 6f |mes . "g|ames, jo|
|00000460| 6b 65 73 20 61 6e 64 20 | 61 6d 75 73 65 6d 65 6e |kes and |amusemen|
|00000470| 74 73 22 29 20 28 68 61 | 72 64 77 61 72 65 20 2e |ts") (ha|rdware .|
|00000480| 20 22 73 75 70 70 6f 72 | 74 20 66 6f 72 20 69 6e | "suppor|t for in|
|00000490| 74 65 72 66 61 63 69 6e | 67 20 77 69 74 68 20 65 |terfacin|g with e|
|000004a0| 78 6f 74 69 63 20 68 61 | 72 64 77 61 72 65 22 29 |xotic ha|rdware")|
|000004b0| 20 28 68 65 6c 70 20 2e | 20 22 73 75 70 70 6f 72 | (help .| "suppor|
|000004c0| 74 20 66 6f 72 20 6f 6e | 2d 6c 69 6e 65 20 68 65 |t for on|-line he|
|000004d0| 6c 70 20 73 79 73 74 65 | 6d 73 22 29 20 28 69 31 |lp syste|ms") (i1|
|000004e0| 38 6e 20 2e 20 22 69 6e | 74 65 72 6e 61 74 69 6f |8n . "in|ternatio|
|000004f0| 6e 61 6c 69 7a 61 74 69 | 6f 6e 20 61 6e 64 20 61 |nalizati|on and a|
|00000500| 6c 74 65 72 6e 61 74 65 | 20 63 68 61 72 61 63 74 |lternate| charact|
|00000510| 65 72 2d 73 65 74 20 73 | 75 70 70 6f 72 74 22 29 |er-set s|upport")|
|00000520| 20 28 69 6e 74 65 72 6e | 61 6c 20 2e 20 22 63 6f | (intern|al . "co|
|00000530| 64 65 20 66 6f 72 20 45 | 6d 61 63 73 20 69 6e 74 |de for E|macs int|
|00000540| 65 72 6e 61 6c 73 2c 20 | 62 75 69 6c 64 20 70 72 |ernals, |build pr|
|00000550| 6f 63 65 73 73 2c 20 64 | 65 66 61 75 6c 74 73 22 |ocess, d|efaults"|
|00000560| 29 20 28 6c 61 6e 67 75 | 61 67 65 73 20 2e 20 22 |) (langu|ages . "|
|00000570| 73 70 65 63 69 61 6c 69 | 7a 65 64 20 6d 6f 64 65 |speciali|zed mode|
|00000580| 73 20 66 6f 72 20 65 64 | 69 74 69 6e 67 20 70 72 |s for ed|iting pr|
|00000590| 6f 67 72 61 6d 6d 69 6e | 67 20 6c 61 6e 67 75 61 |ogrammin|g langua|
|000005a0| 67 65 73 22 29 20 28 6c | 69 73 70 20 2e 20 22 4c |ges") (l|isp . "L|
|000005b0| 69 73 70 20 73 75 70 70 | 6f 72 74 2c 20 69 6e 63 |isp supp|ort, inc|
|000005c0| 6c 75 64 69 6e 67 20 45 | 6d 61 63 73 20 4c 69 73 |luding E|macs Lis|
|000005d0| 70 22 29 20 28 6c 6f 63 | 61 6c 20 2e 20 22 63 6f |p") (loc|al . "co|
|000005e0| 64 65 20 6c 6f 63 61 6c | 20 74 6f 20 79 6f 75 72 |de local| to your|
|000005f0| 20 73 69 74 65 22 29 20 | 28 6d 61 69 6e 74 20 2e | site") |(maint .|
|00000600| 20 22 6d 61 69 6e 74 65 | 6e 61 6e 63 65 20 61 69 | "mainte|nance ai|
|00000610| 64 73 20 66 6f 72 20 74 | 68 65 20 45 6d 61 63 73 |ds for t|he Emacs|
|00000620| 20 64 65 76 65 6c 6f 70 | 6d 65 6e 74 20 67 72 6f | develop|ment gro|
|00000630| 75 70 22 29 20 28 6d 61 | 69 6c 20 2e 20 22 6d 6f |up") (ma|il . "mo|
|00000640| 64 65 73 20 66 6f 72 20 | 65 6c 65 63 74 72 6f 6e |des for |electron|
|00000650| 69 63 2d 6d 61 69 6c 20 | 68 61 6e 64 6c 69 6e 67 |ic-mail |handling|
|00000660| 22 29 20 28 6d 61 74 63 | 68 69 6e 67 20 2e 20 22 |") (matc|hing . "|
|00000670| 76 61 72 69 6f 75 73 20 | 73 6f 72 74 73 20 6f 66 |various |sorts of|
|00000680| 20 73 65 61 72 63 68 69 | 6e 67 20 61 6e 64 20 6d | searchi|ng and m|
|00000690| 61 74 63 68 69 6e 67 22 | 29 20 28 6d 6f 75 73 65 |atching"|) (mouse|
|000006a0| 20 2e 20 22 6d 6f 75 73 | 65 20 73 75 70 70 6f 72 | . "mous|e suppor|
|000006b0| 74 22 29 20 28 6e 65 77 | 73 20 2e 20 22 73 75 70 |t") (new|s . "sup|
|000006c0| 70 6f 72 74 20 66 6f 72 | 20 6e 65 74 6e 65 77 73 |port for| netnews|
|000006d0| 20 72 65 61 64 69 6e 67 | 20 61 6e 64 20 70 6f 73 | reading| and pos|
|000006e0| 74 69 6e 67 22 29 20 28 | 70 72 6f 63 65 73 73 65 |ting") (|processe|
|000006f0| 73 20 2e 20 22 70 72 6f | 63 65 73 73 2c 20 73 75 |s . "pro|cess, su|
|00000700| 62 73 68 65 6c 6c 2c 20 | 63 6f 6d 70 69 6c 61 74 |bshell, |compilat|
|00000710| 69 6f 6e 2c 20 61 6e 64 | 20 6a 6f 62 20 63 6f 6e |ion, and| job con|
|00000720| 74 72 6f 6c 20 73 75 70 | 70 6f 72 74 22 29 20 28 |trol sup|port") (|
|00000730| 74 65 72 6d 69 6e 61 6c | 73 20 2e 20 22 73 75 70 |terminal|s . "sup|
|00000740| 70 6f 72 74 20 66 6f 72 | 20 74 65 72 6d 69 6e 61 |port for| termina|
|00000750| 6c 20 74 79 70 65 73 22 | 29 20 28 74 65 78 20 2e |l types"|) (tex .|
|00000760| 20 22 63 6f 64 65 20 72 | 65 6c 61 74 65 64 20 74 | "code r|elated t|
|00000770| 6f 20 74 68 65 20 54 65 | 58 20 66 6f 72 6d 61 74 |o the Te|X format|
|00000780| 74 65 72 22 29 20 28 74 | 6f 6f 6c 73 20 2e 20 22 |ter") (t|ools . "|
|00000790| 70 72 6f 67 72 61 6d 6d | 69 6e 67 20 74 6f 6f 6c |programm|ing tool|
|000007a0| 73 22 29 20 28 75 6e 69 | 78 20 2e 20 22 66 72 6f |s") (uni|x . "fro|
|000007b0| 6e 74 2d 65 6e 64 73 2f | 61 73 73 69 73 74 61 6e |nt-ends/|assistan|
|000007c0| 74 73 20 66 6f 72 2c 20 | 6f 72 20 65 6d 75 6c 61 |ts for, |or emula|
|000007d0| 74 6f 72 73 20 6f 66 2c | 20 55 4e 49 58 20 66 65 |tors of,| UNIX fe|
|000007e0| 61 74 75 72 65 73 22 29 | 20 28 76 6d 73 20 2e 20 |atures")| (vms . |
|000007f0| 22 73 75 70 70 6f 72 74 | 20 63 6f 64 65 20 66 6f |"support| code fo|
|00000800| 72 20 76 6d 73 22 29 20 | 28 77 70 20 2e 20 22 77 |r vms") |(wp . "w|
|00000810| 6f 72 64 20 70 72 6f 63 | 65 73 73 69 6e 67 22 29 |ord proc|essing")|
|00000820| 29 20 66 69 6e 64 65 72 | 2d 6d 6f 64 65 2d 6d 61 |) finder|-mode-ma|
|00000830| 70 20 6e 69 6c 20 6d 61 | 6b 65 2d 73 70 61 72 73 |p nil ma|ke-spars|
|00000840| 65 2d 6b 65 79 6d 61 70 | 20 64 65 66 69 6e 65 2d |e-keymap| define-|
|00000850| 6b 65 79 20 22 20 22 20 | 66 69 6e 64 65 72 2d 73 |key " " |finder-s|
|00000860| 65 6c 65 63 74 20 22 3f | 22 20 66 69 6e 64 65 72 |elect "?|" finder|
|00000870| 2d 73 75 6d 6d 61 72 79 | 20 22 71 22 20 66 69 6e |-summary| "q" fin|
|00000880| 64 65 72 2d 65 78 69 74 | 20 22 66 22 20 66 69 6e |der-exit| "f" fin|
|00000890| 64 65 72 2d 6c 69 73 74 | 2d 6b 65 79 77 6f 72 64 |der-list|-keyword|
|000008a0| 73 5d 20 34 29 0a 28 64 | 65 66 76 61 72 20 66 69 |s] 4).(d|efvar fi|
|000008b0| 6e 64 65 72 2d 70 61 63 | 6b 61 67 65 2d 69 6e 66 |nder-pac|kage-inf|
|000008c0| 6f 20 6e 69 6c 20 22 5c | 0a 41 73 73 6f 63 20 6c |o nil "\|.Assoc l|
|000008d0| 69 73 74 20 6d 61 70 70 | 69 6e 67 20 66 69 6c 65 |ist mapp|ing file|
|000008e0| 20 6e 61 6d 65 73 20 74 | 6f 20 64 65 73 63 72 69 | names t|o descri|
|000008f0| 70 74 69 6f 6e 20 26 20 | 6b 65 79 77 6f 72 64 20 |ption & |keyword |
|00000900| 6c 69 73 74 73 2e 22 29 | 0a 28 64 65 66 61 6c 69 |lists.")|.(defali|
|00000910| 61 73 20 27 66 69 6e 64 | 65 72 2d 63 6f 6d 70 69 |as 'find|er-compi|
|00000920| 6c 65 2d 6b 65 79 77 6f | 72 64 73 20 23 5b 28 26 |le-keywo|rds #[(&|
|00000930| 72 65 73 74 20 64 69 72 | 73 29 20 22 8a c0 19 c2 |rest dir|s) "....|
|00000940| c3 21 88 c4 20 88 c5 63 | 88 c6 63 88 c7 63 88 c8 |.!.. ..c|..c..c..|
|00000950| 63 88 c9 63 88 ca 63 88 | cb cc 0e 0d 86 25 00 0e |c..c..c.|.....%..|
|00000960| 0e 5c 22 88 cf 63 88 d0 | d1 21 88 d2 20 88 d3 20 |.\"..c..|.!.. .. |
|00000970| 2a 87 22 20 5b 6e 69 6c | 20 70 72 6f 63 65 73 73 |*." [nil| process|
|00000980| 65 64 20 66 69 6e 64 2d | 66 69 6c 65 20 22 66 69 |ed find-|file "fi|
|00000990| 6e 64 65 72 2d 69 6e 66 | 2e 65 6c 22 20 65 72 61 |nder-inf|.el" era|
|000009a0| 73 65 2d 62 75 66 66 65 | 72 20 22 3b 3b 3b 20 66 |se-buffe|r ";;; f|
|000009b0| 69 6e 64 65 72 2d 69 6e | 66 2e 65 6c 20 2d 2d 2d |inder-in|f.el ---|
|000009c0| 20 6b 65 79 77 6f 72 64 | 2d 74 6f 2d 70 61 63 6b | keyword|-to-pack|
|000009d0| 61 67 65 20 6d 61 70 70 | 69 6e 67 5c 6e 22 20 22 |age mapp|ing\n" "|
|000009e0| 3b 3b 20 4b 65 79 77 6f | 72 64 73 3a 20 68 65 6c |;; Keywo|rds: hel|
|000009f0| 70 5c 6e 22 20 22 3b 3b | 3b 20 43 6f 6d 6d 65 6e |p\n" ";;|; Commen|
|00000a00| 74 61 72 79 3a 5c 6e 22 | 20 22 3b 3b 20 44 6f 6e |tary:\n"| ";; Don|
|00000a10| 27 74 20 65 64 69 74 20 | 74 68 69 73 20 66 69 6c |'t edit |this fil|
|00000a20| 65 2e 20 20 49 74 27 73 | 20 67 65 6e 65 72 61 74 |e.  It's| generat|
|00000a30| 65 64 20 62 79 20 66 69 | 6e 64 65 72 2e 65 6c 5c |ed by fi|nder.el\|
|00000a40| 6e 5c 6e 22 20 22 3b 3b | 3b 20 43 6f 64 65 3a 5c |n\n" ";;|; Code:\|
|00000a50| 6e 22 20 22 5c 6e 28 73 | 65 74 71 20 66 69 6e 64 |n" "\n(s|etq find|
|00000a60| 65 72 2d 70 61 63 6b 61 | 67 65 2d 69 6e 66 6f 20 |er-packa|ge-info |
|00000a70| 27 28 5c 6e 22 20 6d 61 | 70 63 61 72 20 23 5b 28 |'(\n" ma|pcar #[(|
|00000a80| 64 29 20 22 c0 c1 c2 0b | 86 08 00 c4 21 5c 22 87 |d) "....|....!\".|
|00000a90| 22 20 5b 6d 61 70 63 61 | 72 20 23 5b 28 66 29 20 |" [mapca|r #[(f) |
|00000aa0| 22 c0 c1 5c 6e 5c 22 85 | 66 00 5c 6e 0b 9d 3f 85 |"..\n\".|f.\n..?.|
|00000ab0| 66 00 c4 89 89 1d 1e 06 | 1e 07 5c 6e 0b 42 13 8a |f.......|..\n.B..|
|00000ac0| c8 c9 21 71 88 ca 70 21 | 88 cb 20 88 cc cd 0e 0e |..!q..p!|.. .....|
|00000ad0| 86 2f 00 cf 21 5c 6e 50 | 21 88 d0 20 16 07 d1 20 |./..!\nP|!.. ... |
|00000ae0| 15 29 d2 d3 5c 6e 5c 22 | 63 88 d4 0e 07 70 5c 22 |.)..\n\"|c....p\"|
|00000af0| 88 d5 63 88 60 16 06 0d | 83 59 00 d2 d6 0d 5c 22 |..c.`...|.Y....\"|
|00000b00| 82 5a 00 d7 d8 b1 02 88 | d9 0e 06 60 da db 24 2b |.Z......|...`..$+|
|00000b10| 87 22 20 5b 73 74 72 69 | 6e 67 2d 6d 61 74 63 68 |." [stri|ng-match|
|00000b20| 20 22 5e 5b 5e 3d 5d 2e | 2a 5c 5c 2e 65 6c 24 22 | "^[^=].|*\\.el$"|
|00000b30| 20 66 20 70 72 6f 63 65 | 73 73 65 64 20 6e 69 6c | f proce|ssed nil|
|00000b40| 20 6b 65 79 77 6f 72 64 | 73 20 6b 65 79 73 74 61 | keyword|s keysta|
|00000b50| 72 74 20 73 75 6d 6d 61 | 72 79 20 67 65 74 2d 62 |rt summa|ry get-b|
|00000b60| 75 66 66 65 72 2d 63 72 | 65 61 74 65 20 22 2a 66 |uffer-cr|eate "*f|
|00000b70| 69 6e 64 65 72 2d 73 63 | 72 61 74 63 68 2a 22 20 |inder-sc|ratch*" |
|00000b80| 62 75 66 66 65 72 2d 64 | 69 73 61 62 6c 65 2d 75 |buffer-d|isable-u|
|00000b90| 6e 64 6f 20 65 72 61 73 | 65 2d 62 75 66 66 65 72 |ndo eras|e-buffer|
|00000ba0| 20 69 6e 73 65 72 74 2d | 66 69 6c 65 2d 63 6f 6e | insert-|file-con|
|00000bb0| 74 65 6e 74 73 20 66 69 | 6c 65 2d 6e 61 6d 65 2d |tents fi|le-name-|
|00000bc0| 61 73 2d 64 69 72 65 63 | 74 6f 72 79 20 64 20 22 |as-direc|tory d "|
|00000bd0| 2e 22 20 6c 6d 2d 73 79 | 6e 6f 70 73 69 73 20 6c |." lm-sy|nopsis l|
|00000be0| 6d 2d 6b 65 79 77 6f 72 | 64 73 20 66 6f 72 6d 61 |m-keywor|ds forma|
|00000bf0| 74 20 22 20 20 20 20 28 | 5c 22 25 73 5c 22 5c 6e |t "    (|\"%s\"\n|
|00000c00| 20 20 20 20 20 20 20 20 | 22 20 70 72 69 6e 31 20 |        |" prin1 |
|00000c10| 22 5c 6e 20 20 20 20 20 | 20 20 20 22 20 22 28 25 |"\n     |   " "(%|
|00000c20| 73 29 22 20 22 6e 69 6c | 22 20 22 29 5c 6e 22 20 |s)" "nil|" ")\n" |
|00000c30| 73 75 62 73 74 2d 63 68 | 61 72 2d 69 6e 2d 72 65 |subst-ch|ar-in-re|
|00000c40| 67 69 6f 6e 20 34 34 20 | 33 32 5d 20 35 5d 20 64 |gion 44 |32] 5] d|
|00000c50| 69 72 65 63 74 6f 72 79 | 2d 66 69 6c 65 73 20 64 |irectory|-files d|
|00000c60| 20 22 2e 22 5d 20 34 5d | 20 64 69 72 73 20 6c 6f | "."] 4]| dirs lo|
|00000c70| 61 64 2d 70 61 74 68 20 | 22 29 29 5c 6e 5c 6e 28 |ad-path |"))\n\n(|
|00000c80| 70 72 6f 76 69 64 65 20 | 27 66 69 6e 64 65 72 2d |provide |'finder-|
|00000c90| 69 6e 66 29 5c 6e 5c 6e | 3b 3b 3b 20 66 69 6e 64 |inf)\n\n|;;; find|
|00000ca0| 65 72 2d 69 6e 66 2e 65 | 6c 20 65 6e 64 73 20 68 |er-inf.e|l ends h|
|00000cb0| 65 72 65 5c 6e 22 20 6b | 69 6c 6c 2d 62 75 66 66 |ere\n" k|ill-buff|
|00000cc0| 65 72 20 22 2a 66 69 6e | 64 65 72 2d 73 63 72 61 |er "*fin|der-scra|
|00000cd0| 74 63 68 2a 22 20 65 76 | 61 6c 2d 63 75 72 72 65 |tch*" ev|al-curre|
|00000ce0| 6e 74 2d 62 75 66 66 65 | 72 20 62 61 73 69 63 2d |nt-buffe|r basic-|
|00000cf0| 73 61 76 65 2d 62 75 66 | 66 65 72 5d 20 33 20 22 |save-buf|fer] 3 "|
|00000d00| 5c 0a 52 65 67 65 6e 65 | 72 61 74 65 20 74 68 65 |\.Regene|rate the|
|00000d10| 20 6b 65 79 77 6f 72 64 | 73 20 61 73 73 6f 63 69 | keyword|s associ|
|00000d20| 61 74 69 6f 6e 20 6c 69 | 73 74 20 69 6e 74 6f 20 |ation li|st into |
|00000d30| 74 68 65 20 66 69 6c 65 | 20 60 66 69 6e 64 65 72 |the file| `finder|
|00000d40| 2d 69 6e 66 2e 65 6c 27 | 2e 0a 4f 70 74 69 6f 6e |-inf.el'|..Option|
|00000d50| 61 6c 20 61 72 67 75 6d | 65 6e 74 73 20 61 72 65 |al argum|ents are|
|00000d60| 20 61 20 6c 69 73 74 20 | 6f 66 20 45 6d 61 63 73 | a list |of Emacs|
|00000d70| 20 4c 69 73 70 20 64 69 | 72 65 63 74 6f 72 69 65 | Lisp di|rectorie|
|00000d80| 73 20 74 6f 20 63 6f 6d | 70 69 6c 65 20 66 72 6f |s to com|pile fro|
|00000d90| 6d 3b 20 6e 6f 0a 61 72 | 67 75 6d 65 6e 74 73 20 |m; no.ar|guments |
|00000da0| 63 6f 6d 70 69 6c 65 73 | 20 66 72 6f 6d 20 60 6c |compiles| from `l|
|00000db0| 6f 61 64 2d 70 61 74 68 | 27 2e 22 5d 29 0a 28 64 |oad-path|'."]).(d|
|00000dc0| 65 66 61 6c 69 61 73 20 | 27 66 69 6e 64 65 72 2d |efalias |'finder-|
|00000dd0| 6c 69 73 74 2d 6b 65 79 | 77 6f 72 64 73 20 23 5b |list-key|words #[|
|00000de0| 6e 69 6c 20 22 c0 11 c2 | 20 88 c3 c4 0d 5c 22 88 |nil "...| ....\".|
|00000df0| 65 62 88 60 16 06 c7 11 | c8 c0 21 88 c9 20 88 ca |eb.`....|..!.. ..|
|00000e00| 20 87 22 20 5b 6e 69 6c | 20 62 75 66 66 65 72 2d | ." [nil| buffer-|
|00000e10| 72 65 61 64 2d 6f 6e 6c | 79 20 65 72 61 73 65 2d |read-onl|y erase-|
|00000e20| 62 75 66 66 65 72 20 6d | 61 70 63 61 72 20 23 5b |buffer m|apcar #[|
|00000e30| 28 61 73 73 6f 63 29 20 | 22 08 40 19 c2 09 21 63 |(assoc) |".@...!c|
|00000e40| 88 c3 c4 08 41 c5 50 5c | 22 88 c2 09 21 09 29 42 |....A.P\|"...!.)B|
|00000e50| 87 22 20 5b 61 73 73 6f | 63 20 6b 65 79 77 6f 72 |." [asso|c keywor|
|00000e60| 64 20 73 79 6d 62 6f 6c | 2d 6e 61 6d 65 20 69 6e |d symbol|-name in|
|00000e70| 73 65 72 74 2d 61 74 2d | 63 6f 6c 75 6d 6e 20 31 |sert-at-|column 1|
|00000e80| 34 20 22 5c 6e 22 5d 20 | 34 5d 20 66 69 6e 64 65 |4 "\n"] |4] finde|
|00000e90| 72 2d 6b 6e 6f 77 6e 2d | 6b 65 79 77 6f 72 64 73 |r-known-|keywords|
|00000ea0| 20 66 69 6e 64 65 72 2d | 68 65 61 64 6d 61 72 6b | finder-|headmark|
|00000eb0| 20 74 20 73 65 74 2d 62 | 75 66 66 65 72 2d 6d 6f | t set-b|uffer-mo|
|00000ec0| 64 69 66 69 65 64 2d 70 | 20 62 61 6c 61 6e 63 65 |dified-p| balance|
|00000ed0| 2d 77 69 6e 64 6f 77 73 | 20 66 69 6e 64 65 72 2d |-windows| finder-|
|00000ee0| 73 75 6d 6d 61 72 79 5d | 20 33 20 22 5c 0a 44 69 |summary]| 3 "\.Di|
|00000ef0| 73 70 6c 61 79 20 64 65 | 73 63 72 69 70 74 69 6f |splay de|scriptio|
|00000f00| 6e 73 20 6f 66 20 74 68 | 65 20 6b 65 79 77 6f 72 |ns of th|e keywor|
|00000f10| 64 73 20 69 6e 20 74 68 | 65 20 46 69 6e 64 65 72 |ds in th|e Finder|
|00000f20| 20 62 75 66 66 65 72 2e | 22 20 6e 69 6c 5d 29 0a | buffer.|" nil]).|
|00000f30| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 c1 c2 5c |(byte-co|de "...\|
|00000f40| 22 88 c0 c3 c4 5c 22 88 | c0 c5 c6 5c 22 88 c0 c7 |"....\".|...\"...|
|00000f50| c8 5c 22 88 c0 c9 ca 5c | 22 87 22 20 5b 64 65 66 |.\"....\|"." [def|
|00000f60| 61 6c 69 61 73 20 66 69 | 6e 64 65 72 2d 6c 69 73 |alias fi|nder-lis|
|00000f70| 74 2d 6d 61 74 63 68 65 | 73 20 23 5b 28 6b 65 79 |t-matche|s #[(key|
|00000f80| 29 20 22 c0 11 c2 20 88 | c3 5c 66 21 1d c6 5c 66 |) "... .|.\f!..\f|
|00000f90| c7 b1 03 88 60 16 08 c9 | ca 0e 0b 5c 22 88 65 62 |....`...|...\".eb|
|00000fa0| 88 c0 79 88 cc 11 cd c0 | 21 88 ce 20 88 cf 20 29 |..y.....|!.. .. )|
|00000fb0| 87 22 20 5b 6e 69 6c 20 | 62 75 66 66 65 72 2d 72 |." [nil |buffer-r|
|00000fc0| 65 61 64 2d 6f 6e 6c 79 | 20 65 72 61 73 65 2d 62 |ead-only| erase-b|
|00000fd0| 75 66 66 65 72 20 69 6e | 74 65 72 6e 20 6b 65 79 |uffer in|tern key|
|00000fe0| 20 69 64 20 22 54 68 65 | 20 66 6f 6c 6c 6f 77 69 | id "The| followi|
|00000ff0| 6e 67 20 70 61 63 6b 61 | 67 65 73 20 6d 61 74 63 |ng packa|ges matc|
|00001000| 68 20 74 68 65 20 6b 65 | 79 77 6f 72 64 20 60 22 |h the ke|yword `"|
|00001010| 20 22 27 3a 5c 6e 5c 6e | 22 20 66 69 6e 64 65 72 | "':\n\n|" finder|
|00001020| 2d 68 65 61 64 6d 61 72 | 6b 20 6d 61 70 63 61 72 |-headmar|k mapcar|
|00001030| 20 23 5b 28 78 29 20 22 | 08 09 41 41 40 3e 85 15 | #[(x) "|..AA@>..|
|00001040| 00 09 40 63 88 c2 c3 09 | 41 40 c4 50 5c 22 87 22 |..@c....|A@.P\"."|
|00001050| 20 5b 69 64 20 78 20 69 | 6e 73 65 72 74 2d 61 74 | [id x i|nsert-at|
|00001060| 2d 63 6f 6c 75 6d 6e 20 | 31 36 20 22 5c 6e 22 5d |-column |16 "\n"]|
|00001070| 20 34 5d 20 66 69 6e 64 | 65 72 2d 70 61 63 6b 61 | 4] find|er-packa|
|00001080| 67 65 2d 69 6e 66 6f 20 | 74 20 73 65 74 2d 62 75 |ge-info |t set-bu|
|00001090| 66 66 65 72 2d 6d 6f 64 | 69 66 69 65 64 2d 70 20 |ffer-mod|ified-p |
|000010a0| 73 68 72 69 6e 6b 2d 77 | 69 6e 64 6f 77 2d 69 66 |shrink-w|indow-if|
|000010b0| 2d 6c 61 72 67 65 72 2d | 74 68 61 6e 2d 62 75 66 |-larger-|than-buf|
|000010c0| 66 65 72 20 66 69 6e 64 | 65 72 2d 73 75 6d 6d 61 |fer find|er-summa|
|000010d0| 72 79 5d 20 33 5d 20 66 | 69 6e 64 65 72 2d 66 69 |ry] 3] f|inder-fi|
|000010e0| 6e 64 2d 6c 69 62 72 61 | 72 79 20 23 5b 28 66 69 |nd-libra|ry #[(fi|
|000010f0| 6c 65 29 20 22 c0 09 21 | 83 08 00 09 87 5c 6e c3 |le) "..!|.....\n.|
|00001100| 1c 89 1d 83 40 00 5c 66 | 84 40 00 c6 c7 09 c8 50 |....@.\f|.@.....P|
|00001110| 0d 40 5c 22 21 83 29 00 | c7 09 0d 40 5c 22 14 82 |.@\"!.).|...@\"..|
|00001120| 39 00 c6 c7 09 0d 40 5c | 22 21 83 39 00 c7 09 0d |9.....@\|"!.9....|
|00001130| 40 5c 22 14 0d 41 89 15 | 84 10 00 5c 66 2a 87 22 |@\"..A..|...\f*."|
|00001140| 20 5b 66 69 6c 65 2d 6e | 61 6d 65 2d 61 62 73 6f | [file-n|ame-abso|
|00001150| 6c 75 74 65 2d 70 20 66 | 69 6c 65 20 6c 6f 61 64 |lute-p f|ile load|
|00001160| 2d 70 61 74 68 20 6e 69 | 6c 20 66 6f 75 6e 64 20 |-path ni|l found |
|00001170| 64 69 72 73 20 66 69 6c | 65 2d 65 78 69 73 74 73 |dirs fil|e-exists|
|00001180| 2d 70 20 65 78 70 61 6e | 64 2d 66 69 6c 65 2d 6e |-p expan|d-file-n|
|00001190| 61 6d 65 20 22 2e 65 6c | 22 5d 20 35 5d 20 66 69 |ame ".el|"] 5] fi|
|000011a0| 6e 64 65 72 2d 63 6f 6d | 6d 65 6e 74 61 72 79 20 |nder-com|mentary |
|000011b0| 23 5b 28 66 69 6c 65 29 | 20 22 c0 c1 5c 6e 21 21 |#[(file)| "..\n!!|
|000011c0| 89 1b 84 0e 00 c4 c5 21 | 88 c6 c7 21 88 c8 16 09 |.......!|...!....|
|000011d0| ca 20 88 0b 63 88 65 62 | 88 cb 20 88 64 62 88 cb |. ..c.eb|.. .db..|
|000011e0| 20 88 65 62 88 cc cd c8 | ce 23 83 3b 00 cf d0 c8 | .eb....|.#.;....|
|000011f0| 89 23 88 82 2a 00 65 62 | 88 ce 16 09 d1 c8 21 88 |.#..*.eb|......!.|
|00001200| d2 20 88 d3 20 29 87 22 | 20 5b 6c 6d 2d 63 6f 6d |. .. )."| [lm-com|
|00001210| 6d 65 6e 74 61 72 79 20 | 66 69 6e 64 65 72 2d 66 |mentary |finder-f|
|00001220| 69 6e 64 2d 6c 69 62 72 | 61 72 79 20 66 69 6c 65 |ind-libr|ary file|
|00001230| 20 73 74 72 20 65 72 72 | 6f 72 20 22 43 61 6e 27 | str err|or "Can'|
|00001240| 74 20 66 69 6e 64 20 61 | 6e 79 20 43 6f 6d 6d 65 |t find a|ny Comme|
|00001250| 6e 74 61 72 79 20 73 65 | 63 74 69 6f 6e 2e 22 20 |ntary se|ction." |
|00001260| 70 6f 70 2d 74 6f 2d 62 | 75 66 66 65 72 20 22 2a |pop-to-b|uffer "*|
|00001270| 46 69 6e 64 65 72 2a 22 | 20 6e 69 6c 20 62 75 66 |Finder*"| nil buf|
|00001280| 66 65 72 2d 72 65 61 64 | 2d 6f 6e 6c 79 20 65 72 |fer-read|-only er|
|00001290| 61 73 65 2d 62 75 66 66 | 65 72 20 64 65 6c 65 74 |ase-buff|er delet|
|000012a0| 65 2d 62 6c 61 6e 6b 2d | 6c 69 6e 65 73 20 72 65 |e-blank-|lines re|
|000012b0| 2d 73 65 61 72 63 68 2d | 66 6f 72 77 61 72 64 20 |-search-|forward |
|000012c0| 22 5e 3b 2b 20 3f 22 20 | 74 20 72 65 70 6c 61 63 |"^;+ ?" |t replac|
|000012d0| 65 2d 6d 61 74 63 68 20 | 22 22 20 73 65 74 2d 62 |e-match |"" set-b|
|000012e0| 75 66 66 65 72 2d 6d 6f | 64 69 66 69 65 64 2d 70 |uffer-mo|dified-p|
|000012f0| 20 73 68 72 69 6e 6b 2d | 77 69 6e 64 6f 77 2d 69 | shrink-|window-i|
|00001300| 66 2d 6c 61 72 67 65 72 | 2d 74 68 61 6e 2d 62 75 |f-larger|-than-bu|
|00001310| 66 66 65 72 20 66 69 6e | 64 65 72 2d 73 75 6d 6d |ffer fin|der-summ|
|00001320| 61 72 79 5d 20 35 20 6e | 69 6c 20 6e 69 6c 5d 20 |ary] 5 n|il nil] |
|00001330| 66 69 6e 64 65 72 2d 63 | 75 72 72 65 6e 74 2d 69 |finder-c|urrent-i|
|00001340| 74 65 6d 20 23 5b 6e 69 | 6c 20 22 08 83 0e 00 60 |tem #[ni|l "....`|
|00001350| 08 57 83 0e 00 c1 c2 21 | 87 8a c3 79 88 c4 20 29 |.W.....!|...y.. )|
|00001360| 87 22 20 5b 66 69 6e 64 | 65 72 2d 68 65 61 64 6d |." [find|er-headm|
|00001370| 61 72 6b 20 65 72 72 6f | 72 20 22 4e 6f 20 6b 65 |ark erro|r "No ke|
|00001380| 79 77 6f 72 64 20 6f 72 | 20 66 69 6c 65 6e 61 6d |yword or| filenam|
|00001390| 65 20 6f 6e 20 74 68 69 | 73 20 6c 69 6e 65 22 20 |e on thi|s line" |
|000013a0| 30 20 63 75 72 72 65 6e | 74 2d 77 6f 72 64 5d 20 |0 curren|t-word] |
|000013b0| 32 5d 20 66 69 6e 64 65 | 72 2d 73 65 6c 65 63 74 |2] finde|r-select|
|000013c0| 20 23 5b 6e 69 6c 20 22 | c0 20 19 c2 c3 09 5c 22 | #[nil "|. ....\"|
|000013d0| 83 10 00 c4 09 21 82 13 | 00 c5 09 21 29 87 22 20 |.....!..|...!)." |
|000013e0| 5b 66 69 6e 64 65 72 2d | 63 75 72 72 65 6e 74 2d |[finder-|current-|
|000013f0| 69 74 65 6d 20 6b 65 79 | 20 73 74 72 69 6e 67 2d |item key| string-|
|00001400| 6d 61 74 63 68 20 22 5c | 5c 2e 65 6c 24 22 20 66 |match "\|\.el$" f|
|00001410| 69 6e 64 65 72 2d 63 6f | 6d 6d 65 6e 74 61 72 79 |inder-co|mmentary|
|00001420| 20 66 69 6e 64 65 72 2d | 6c 69 73 74 2d 6d 61 74 | finder-|list-mat|
|00001430| 63 68 65 73 5d 20 33 20 | 6e 69 6c 20 6e 69 6c 5d |ches] 3 |nil nil]|
|00001440| 5d 20 33 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |] 3).(de|falias '|
|00001450| 66 69 6e 64 65 72 2d 62 | 79 2d 6b 65 79 77 6f 72 |finder-b|y-keywor|
|00001460| 64 20 23 5b 6e 69 6c 20 | 22 c0 20 88 c1 20 87 22 |d #[nil |". .. ."|
|00001470| 20 5b 66 69 6e 64 65 72 | 2d 6d 6f 64 65 20 66 69 | [finder|-mode fi|
|00001480| 6e 64 65 72 2d 6c 69 73 | 74 2d 6b 65 79 77 6f 72 |nder-lis|t-keywor|
|00001490| 64 73 5d 20 31 20 22 5c | 0a 46 69 6e 64 20 70 61 |ds] 1 "\|.Find pa|
|000014a0| 63 6b 61 67 65 73 20 6d | 61 74 63 68 69 6e 67 20 |ckages m|atching |
|000014b0| 61 20 67 69 76 65 6e 20 | 6b 65 79 77 6f 72 64 2e |a given |keyword.|
|000014c0| 22 20 6e 69 6c 5d 29 0a | 28 64 65 66 61 6c 69 61 |" nil]).|(defalia|
|000014d0| 73 20 27 66 69 6e 64 65 | 72 2d 6d 6f 64 65 20 23 |s 'finde|r-mode #|
|000014e0| 5b 6e 69 6c 20 22 c0 c1 | 21 88 c2 13 c4 20 88 c5 |[nil "..|!.... ..|
|000014f0| 0e 06 21 88 c7 0e 08 21 | 88 c9 16 5c 6e cb 16 5c |..!....!|...\n..\|
|00001500| 66 cd ce 21 88 c2 89 16 | 0e 87 22 20 5b 70 6f 70 |f..!....|.." [pop|
|00001510| 2d 74 6f 2d 62 75 66 66 | 65 72 20 22 2a 46 69 6e |-to-buff|er "*Fin|
|00001520| 64 65 72 2a 22 20 6e 69 | 6c 20 62 75 66 66 65 72 |der*" ni|l buffer|
|00001530| 2d 72 65 61 64 2d 6f 6e | 6c 79 20 65 72 61 73 65 |-read-on|ly erase|
|00001540| 2d 62 75 66 66 65 72 20 | 75 73 65 2d 6c 6f 63 61 |-buffer |use-loca|
|00001550| 6c 2d 6d 61 70 20 66 69 | 6e 64 65 72 2d 6d 6f 64 |l-map fi|nder-mod|
|00001560| 65 2d 6d 61 70 20 73 65 | 74 2d 73 79 6e 74 61 78 |e-map se|t-syntax|
|00001570| 2d 74 61 62 6c 65 20 65 | 6d 61 63 73 2d 6c 69 73 |-table e|macs-lis|
|00001580| 70 2d 6d 6f 64 65 2d 73 | 79 6e 74 61 78 2d 74 61 |p-mode-s|yntax-ta|
|00001590| 62 6c 65 20 22 46 69 6e | 64 65 72 22 20 6d 6f 64 |ble "Fin|der" mod|
|000015a0| 65 2d 6e 61 6d 65 20 66 | 69 6e 64 65 72 2d 6d 6f |e-name f|inder-mo|
|000015b0| 64 65 20 6d 61 6a 6f 72 | 2d 6d 6f 64 65 20 6d 61 |de major|-mode ma|
|000015c0| 6b 65 2d 6c 6f 63 61 6c | 2d 76 61 72 69 61 62 6c |ke-local|-variabl|
|000015d0| 65 20 66 69 6e 64 65 72 | 2d 68 65 61 64 6d 61 72 |e finder|-headmar|
|000015e0| 6b 5d 20 32 20 22 5c 0a | 4d 61 6a 6f 72 20 6d 6f |k] 2 "\.|Major mo|
|000015f0| 64 65 20 66 6f 72 20 62 | 72 6f 77 73 69 6e 67 20 |de for b|rowsing |
|00001600| 70 61 63 6b 61 67 65 20 | 64 6f 63 75 6d 65 6e 74 |package |document|
|00001610| 61 74 69 6f 6e 2e 0a 5c | 5c 3c 66 69 6e 64 65 72 |ation..\|\<finder|
|00001620| 2d 6d 6f 64 65 2d 6d 61 | 70 3e 0a 5c 5c 5b 66 69 |-mode-ma|p>.\\[fi|
|00001630| 6e 64 65 72 2d 73 65 6c | 65 63 74 5d 09 6d 6f 72 |nder-sel|ect].mor|
|00001640| 65 20 68 65 6c 70 20 66 | 6f 72 20 74 68 65 20 69 |e help f|or the i|
|00001650| 74 65 6d 20 6f 6e 20 74 | 68 65 20 63 75 72 72 65 |tem on t|he curre|
|00001660| 6e 74 20 6c 69 6e 65 0a | 5c 5c 5b 66 69 6e 64 65 |nt line.|\\[finde|
|00001670| 72 2d 65 78 69 74 5d 09 | 65 78 69 74 20 46 69 6e |r-exit].|exit Fin|
|00001680| 64 65 72 20 6d 6f 64 65 | 20 61 6e 64 20 6b 69 6c |der mode| and kil|
|00001690| 6c 20 74 68 65 20 46 69 | 6e 64 65 72 20 62 75 66 |l the Fi|nder buf|
|000016a0| 66 65 72 2e 0a 22 20 6e | 69 6c 5d 29 0a 28 64 65 |fer.." n|il]).(de|
|000016b0| 66 61 6c 69 61 73 20 27 | 66 69 6e 64 65 72 2d 73 |falias '|finder-s|
|000016c0| 75 6d 6d 61 72 79 20 23 | 5b 6e 69 6c 20 22 c0 c1 |ummary #|[nil "..|
|000016d0| c2 21 21 87 22 20 5b 6d | 65 73 73 61 67 65 20 73 |.!!." [m|essage s|
|000016e0| 75 62 73 74 69 74 75 74 | 65 2d 63 6f 6d 6d 61 6e |ubstitut|e-comman|
|000016f0| 64 2d 6b 65 79 73 20 22 | 5c 5c 3c 66 69 6e 64 65 |d-keys "|\\<finde|
|00001700| 72 2d 6d 6f 64 65 2d 6d | 61 70 3e 5c 5c 5b 66 69 |r-mode-m|ap>\\[fi|
|00001710| 6e 64 65 72 2d 73 65 6c | 65 63 74 5d 20 3d 20 73 |nder-sel|ect] = s|
|00001720| 65 6c 65 63 74 2c 20 5c | 5c 5b 66 69 6e 64 65 72 |elect, \|\[finder|
|00001730| 2d 6c 69 73 74 2d 6b 65 | 79 77 6f 72 64 73 5d 20 |-list-ke|ywords] |
|00001740| 3d 20 62 61 63 6b 20 74 | 6f 20 66 69 6e 64 65 72 |= back t|o finder|
|00001750| 2c 20 5c 5c 5b 66 69 6e | 64 65 72 2d 65 78 69 74 |, \\[fin|der-exit|
|00001760| 5d 20 3d 20 71 75 69 74 | 2c 20 5c 5c 5b 66 69 6e |] = quit|, \\[fin|
|00001770| 64 65 72 2d 73 75 6d 6d | 61 72 79 5d 20 3d 20 68 |der-summ|ary] = h|
|00001780| 65 6c 70 22 5d 20 33 20 | 22 5c 0a 53 75 6d 6d 61 |elp"] 3 |"\.Summa|
|00001790| 72 69 7a 65 20 62 61 73 | 69 63 20 46 69 6e 64 65 |rize bas|ic Finde|
|000017a0| 72 20 63 6f 6d 6d 61 6e | 64 73 2e 22 20 6e 69 6c |r comman|ds." nil|
|000017b0| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 66 69 |]).(defa|lias 'fi|
|000017c0| 6e 64 65 72 2d 65 78 69 | 74 20 23 5b 6e 69 6c 20 |nder-exi|t #[nil |
|000017d0| 22 c0 20 88 c1 c2 21 87 | 22 20 5b 64 65 6c 65 74 |". ...!.|" [delet|
|000017e0| 65 2d 77 69 6e 64 6f 77 | 20 6b 69 6c 6c 2d 62 75 |e-window| kill-bu|
|000017f0| 66 66 65 72 20 22 2a 46 | 69 6e 64 65 72 2a 22 5d |ffer "*F|inder*"]|
|00001800| 20 32 20 22 5c 0a 45 78 | 69 74 20 46 69 6e 64 65 | 2 "\.Ex|it Finde|
|00001810| 72 20 6d 6f 64 65 20 61 | 6e 64 20 6b 69 6c 6c 20 |r mode a|nd kill |
|00001820| 74 68 65 20 62 75 66 66 | 65 72 22 20 6e 69 6c 5d |the buff|er" nil]|
|00001830| 29 0a 28 70 72 6f 76 69 | 64 65 20 28 71 75 6f 74 |).(provi|de (quot|
|00001840| 65 20 66 69 6e 64 65 72 | 29 29 0a                |e finder|)).     |
+--------+-------------------------+-------------------------+--------+--------+