/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / emacs-19.16 / lisp / hippie.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 6a 69 6d 62 40 67 65 |piled by| jimb@ge|
|00000020| 65 63 68 2e 67 6e 75 2e | 61 69 2e 6d 69 74 2e 65 |ech.gnu.|ai.mit.e|
|00000030| 64 75 20 6f 6e 20 4d 6f | 6e 20 4a 75 6c 20 20 35 |du on Mo|n Jul  5|
|00000040| 20 32 33 3a 31 38 3a 35 | 33 20 31 39 39 33 0a 3b | 23:18:5|3 1993.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 67 64 |;; from |file /gd|
|00000060| 2f 67 6e 75 2f 65 6d 61 | 63 73 2f 31 39 2e 30 2f |/gnu/ema|cs/19.0/|
|00000070| 6c 69 73 70 2f 68 69 70 | 70 69 65 2e 65 6c 0a 3b |lisp/hip|pie.el.;|
|00000080| 3b 3b 20 65 6d 61 63 73 | 20 76 65 72 73 69 6f 6e |;; emacs| version|
|00000090| 20 31 39 2e 31 35 2e 31 | 36 2e 0a 3b 3b 3b 20 62 | 19.15.1|6..;;; 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 | 54 68 69 73 20 66 69 6c |(error "|This fil|
|000001a0| 65 20 77 61 73 20 63 6f | 6d 70 69 6c 65 64 20 66 |e was co|mpiled f|
|000001b0| 6f 72 20 45 6d 61 63 73 | 20 31 39 22 29 29 0a 0a |or Emacs| 19"))..|
|000001c0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 c1 21 84 |(byte-co|de "..!.|
|000001d0| 08 00 c2 11 c0 c3 21 84 | 10 00 c4 13 c0 c5 21 84 |......!.|......!.|
|000001e0| 18 00 c4 15 c0 c6 21 84 | 21 00 c4 16 06 c0 c7 21 |......!.|!......!|
|000001f0| 84 2a 00 c4 16 07 c0 c8 | 21 84 33 00 c4 16 08 c0 |.*......|!.3.....|
|00000200| c9 21 84 3c 00 c4 16 09 | c0 ca 21 84 45 00 c4 16 |.!.<....|..!.E...|
|00000210| 5c 6e c0 cb 21 84 4e 00 | c4 16 0b c4 87 22 20 5b |\n..!.N.|....." [|
|00000220| 62 6f 75 6e 64 70 20 68 | 65 2d 6e 75 6d 20 2d 31 |boundp h|e-num -1|
|00000230| 20 68 65 2d 73 74 72 69 | 6e 67 2d 62 65 67 20 6e | he-stri|ng-beg n|
|00000240| 69 6c 20 68 65 2d 73 74 | 72 69 6e 67 2d 65 6e 64 |il he-st|ring-end|
|00000250| 20 68 65 2d 73 65 61 72 | 63 68 2d 73 74 72 69 6e | he-sear|ch-strin|
|00000260| 67 20 68 65 2d 65 78 70 | 61 6e 64 2d 6c 69 73 74 |g he-exp|and-list|
|00000270| 20 68 65 2d 74 72 69 65 | 64 2d 74 61 62 6c 65 20 | he-trie|d-table |
|00000280| 68 65 2d 73 65 61 72 63 | 68 2d 6c 6f 63 20 68 65 |he-searc|h-loc he|
|00000290| 2d 73 65 61 72 63 68 2d | 62 77 20 68 65 2d 73 65 |-search-|bw he-se|
|000002a0| 61 72 63 68 2d 62 75 66 | 73 5d 20 32 29 0a 28 64 |arch-buf|s] 2).(d|
|000002b0| 65 66 76 61 72 20 68 69 | 70 70 69 65 2d 65 78 70 |efvar hi|ppie-exp|
|000002c0| 61 6e 64 2d 74 72 79 2d | 66 75 6e 63 74 69 6f 6e |and-try-|function|
|000002d0| 73 2d 6c 69 73 74 20 28 | 71 75 6f 74 65 20 28 74 |s-list (|quote (t|
|000002e0| 72 79 2d 63 6f 6d 70 6c | 65 74 65 2d 66 69 6c 65 |ry-compl|ete-file|
|000002f0| 2d 6e 61 6d 65 20 74 72 | 79 2d 65 78 70 61 6e 64 |-name tr|y-expand|
|00000300| 2d 61 6c 6c 2d 61 62 62 | 72 65 76 73 20 74 72 79 |-all-abb|revs try|
|00000310| 2d 65 78 70 61 6e 64 2d | 6c 69 6e 65 20 74 72 79 |-expand-|line try|
|00000320| 2d 65 78 70 61 6e 64 2d | 64 61 62 62 72 65 76 20 |-expand-|dabbrev |
|00000330| 74 72 79 2d 65 78 70 61 | 6e 64 2d 64 61 62 62 72 |try-expa|nd-dabbr|
|00000340| 65 76 2d 61 6c 6c 2d 62 | 75 66 66 65 72 73 20 74 |ev-all-b|uffers t|
|00000350| 72 79 2d 63 6f 6d 70 6c | 65 74 65 2d 6c 69 73 70 |ry-compl|ete-lisp|
|00000360| 2d 73 79 6d 62 6f 6c 29 | 29 20 22 5c 0a 54 68 65 |-symbol)|) "\.The|
|00000370| 20 6c 69 73 74 20 6f 66 | 20 65 78 70 61 6e 73 69 | list of| expansi|
|00000380| 6f 6e 20 66 75 6e 63 74 | 69 6f 6e 73 20 74 72 69 |on funct|ions tri|
|00000390| 65 64 20 69 6e 20 6f 72 | 64 65 72 20 62 79 20 60 |ed in or|der by `|
|000003a0| 68 69 70 70 69 65 2d 65 | 78 70 61 6e 64 27 2e 0a |hippie-e|xpand'..|
|000003b0| 54 6f 20 63 68 61 6e 67 | 65 20 74 68 65 20 62 65 |To chang|e the be|
|000003c0| 68 61 76 69 6f 72 20 6f | 66 20 60 68 69 70 70 69 |havior o|f `hippi|
|000003d0| 65 2d 65 78 70 61 6e 64 | 27 2c 20 72 65 6d 6f 76 |e-expand|', remov|
|000003e0| 65 2c 20 63 68 61 6e 67 | 65 20 74 68 65 20 6f 72 |e, chang|e the or|
|000003f0| 64 65 72 20 6f 66 2c 0a | 6f 72 20 69 6e 73 65 72 |der of,.|or inser|
|00000400| 74 20 66 75 6e 63 74 69 | 6f 6e 73 20 69 6e 20 74 |t functi|ons in t|
|00000410| 68 69 73 20 6c 69 73 74 | 2e 22 29 0a 28 64 65 66 |his list|.").(def|
|00000420| 76 61 72 20 68 69 70 70 | 69 65 2d 65 78 70 61 6e |var hipp|ie-expan|
|00000430| 64 2d 76 65 72 62 6f 73 | 65 20 74 20 22 5c 0a 2a |d-verbos|e t "\.*|
|00000440| 4e 6f 6e 2d 6e 69 6c 20 | 6d 61 6b 65 73 20 60 68 |Non-nil |makes `h|
|00000450| 69 70 70 69 65 2d 65 78 | 70 61 6e 64 27 20 6f 75 |ippie-ex|pand' ou|
|00000460| 74 70 75 74 20 77 68 69 | 63 68 20 66 75 6e 63 74 |tput whi|ch funct|
|00000470| 69 6f 6e 20 69 74 20 69 | 73 20 74 72 79 69 6e 67 |ion it i|s trying|
|00000480| 2e 22 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 68 |.").(def|alias 'h|
|00000490| 69 70 70 69 65 2d 65 78 | 70 61 6e 64 20 23 5b 28 |ippie-ex|pand #[(|
|000004a0| 61 72 67 29 20 22 08 83 | 0f 00 08 a8 83 90 00 08 |arg) "..|........|
|000004b0| c1 56 83 90 00 5c 6e c3 | 55 86 19 00 0c 0d 9a 3f |.V...\n.|U......?|
|000004c0| 89 1e 06 83 24 00 c3 12 | c7 16 08 08 83 33 00 0e |....$...|.....3..|
|000004d0| 06 84 35 00 c9 20 88 82 | 35 00 c1 10 5c 6e 08 5c |..5.. ..|5...\n.\|
|000004e0| 5c c1 5d 89 1e 5c 6e 0e | 0b 47 59 84 5c 5c 00 cc |\.]..\n.|.GY.\\..|
|000004f0| 0e 5c 6e 0e 0b 38 5c 6e | 0e 5c 6e 55 43 5c 22 84 |.\n..8\n|.\nUC\".|
|00000500| 5c 5c 00 0e 5c 6e 54 89 | 16 5c 6e 82 3d 00 0e 5c |\\..\nT.|.\n.=..\|
|00000510| 6e 12 29 5c 6e 0e 0b 47 | 59 83 7f 00 c3 12 0e 06 |n.)\n..G|Y.......|
|00000520| 83 76 00 cd ce 21 88 82 | 7a 00 cd cf 21 88 d0 20 |.v...!..|z...!.. |
|00000530| 82 8e 00 0e 11 85 8e 00 | cd d2 d3 5c 6e 0e 0b 38 |........|...\n..8|
|00000540| 21 50 21 29 87 5c 6e c1 | 59 85 a3 00 c3 12 c9 20 |!P!).\n.|Y...... |
|00000550| 88 0e 11 85 a3 00 cd d4 | 21 87 22 20 5b 61 72 67 |........|!." [arg|
|00000560| 20 30 20 68 65 2d 6e 75 | 6d 20 2d 31 20 74 68 69 | 0 he-nu|m -1 thi|
|00000570| 73 2d 63 6f 6d 6d 61 6e | 64 20 6c 61 73 74 2d 63 |s-comman|d last-c|
|00000580| 6f 6d 6d 61 6e 64 20 66 | 69 72 73 74 20 6e 69 6c |ommand f|irst nil|
|00000590| 20 68 65 2d 74 72 69 65 | 64 2d 74 61 62 6c 65 20 | he-trie|d-table |
|000005a0| 68 65 2d 72 65 73 65 74 | 2d 73 74 72 69 6e 67 20 |he-reset|-string |
|000005b0| 69 20 68 69 70 70 69 65 | 2d 65 78 70 61 6e 64 2d |i hippie|-expand-|
|000005c0| 74 72 79 2d 66 75 6e 63 | 74 69 6f 6e 73 2d 6c 69 |try-func|tions-li|
|000005d0| 73 74 20 61 70 70 6c 79 | 20 6d 65 73 73 61 67 65 |st apply| message|
|000005e0| 20 22 4e 6f 20 65 78 70 | 61 6e 73 69 6f 6e 20 66 | "No exp|ansion f|
|000005f0| 6f 75 6e 64 22 20 22 4e | 6f 20 66 75 72 74 68 65 |ound" "N|o furthe|
|00000600| 72 20 65 78 70 61 6e 73 | 69 6f 6e 73 20 66 6f 75 |r expans|ions fou|
|00000610| 6e 64 22 20 64 69 6e 67 | 20 68 69 70 70 69 65 2d |nd" ding| hippie-|
|00000620| 65 78 70 61 6e 64 2d 76 | 65 72 62 6f 73 65 20 22 |expand-v|erbose "|
|00000630| 55 73 69 6e 67 20 22 20 | 70 72 69 6e 31 2d 74 6f |Using " |prin1-to|
|00000640| 2d 73 74 72 69 6e 67 20 | 22 55 6e 64 6f 69 6e 67 |-string |"Undoing|
|00000650| 20 65 78 70 61 6e 73 69 | 6f 6e 73 22 5d 20 36 20 | expansi|ons"] 6 |
|00000660| 22 5c 0a 54 72 79 20 74 | 6f 20 65 78 70 61 6e 64 |"\.Try t|o expand|
|00000670| 20 74 65 78 74 20 62 65 | 66 6f 72 65 20 70 6f 69 | text be|fore poi|
|00000680| 6e 74 2c 20 75 73 69 6e | 67 20 6d 75 6c 74 69 70 |nt, usin|g multip|
|00000690| 6c 65 20 6d 65 74 68 6f | 64 73 2e 0a 54 68 65 20 |le metho|ds..The |
|000006a0| 65 78 70 61 6e 73 69 6f | 6e 20 66 75 6e 63 74 69 |expansio|n functi|
|000006b0| 6f 6e 73 20 69 6e 20 60 | 68 69 70 70 69 65 2d 65 |ons in `|hippie-e|
|000006c0| 78 70 61 6e 64 2d 74 72 | 79 2d 66 75 6e 63 74 69 |xpand-tr|y-functi|
|000006d0| 6f 6e 73 2d 6c 69 73 74 | 27 20 61 72 65 0a 74 72 |ons-list|' are.tr|
|000006e0| 69 65 64 20 69 6e 20 6f | 72 64 65 72 2c 20 75 6e |ied in o|rder, un|
|000006f0| 74 69 6c 20 61 20 70 6f | 73 73 69 62 6c 65 20 65 |til a po|ssible e|
|00000700| 78 70 61 6e 73 69 6f 6e | 20 69 73 20 66 6f 75 6e |xpansion| is foun|
|00000710| 64 2e 20 20 52 65 70 65 | 61 74 65 64 0a 61 70 70 |d.  Repe|ated.app|
|00000720| 6c 69 63 61 74 69 6f 6e | 20 6f 66 20 60 68 69 70 |lication| of `hip|
|00000730| 70 69 65 2d 65 78 70 61 | 6e 64 27 20 69 6e 73 65 |pie-expa|nd' inse|
|00000740| 72 74 73 20 73 75 63 63 | 65 73 73 69 76 65 6c 79 |rts succ|essively|
|00000750| 20 70 6f 73 73 69 62 6c | 65 0a 65 78 70 61 6e 73 | possibl|e.expans|
|00000760| 69 6f 6e 73 2e 20 20 0a | 57 69 74 68 20 61 20 70 |ions.  .|With a p|
|00000770| 6f 73 69 74 69 76 65 20 | 6e 75 6d 65 72 69 63 20 |ositive |numeric |
|00000780| 61 72 67 75 6d 65 6e 74 | 2c 20 6a 75 6d 70 73 20 |argument|, jumps |
|00000790| 64 69 72 65 63 74 6c 79 | 20 74 6f 20 74 68 65 20 |directly| to the |
|000007a0| 41 52 47 20 6e 65 78 74 | 0a 66 75 6e 63 74 69 6f |ARG next|.functio|
|000007b0| 6e 20 69 6e 20 74 68 69 | 73 20 6c 69 73 74 2e 20 |n in thi|s list. |
|000007c0| 20 57 69 74 68 20 61 20 | 6e 65 67 61 74 69 76 65 | With a |negative|
|000007d0| 20 61 72 67 75 6d 65 6e | 74 20 6f 72 20 6a 75 73 | argumen|t or jus|
|000007e0| 74 20 5c 5c 5b 75 6e 69 | 76 65 72 73 61 6c 2d 61 |t \\[uni|versal-a|
|000007f0| 72 67 75 6d 65 6e 74 5d | 2c 20 0a 75 6e 64 6f 65 |rgument]|, .undoe|
|00000800| 73 20 74 68 65 20 65 78 | 70 61 6e 73 69 6f 6e 2e |s the ex|pansion.|
|00000810| 22 20 22 50 22 5d 29 0a | 28 62 79 74 65 2d 63 6f |" "P"]).|(byte-co|
|00000820| 64 65 20 22 c0 c1 c2 5c | 22 88 c0 c3 c4 5c 22 88 |de "...\|"....\".|
|00000830| c0 c5 c6 5c 22 88 c0 c7 | c8 5c 22 88 c0 c9 ca 5c |...\"...|.\"....\|
|00000840| 22 88 c0 cb cc 5c 22 87 | 22 20 5b 64 65 66 61 6c |"....\".|" [defal|
|00000850| 69 61 73 20 68 65 2d 69 | 6e 69 74 2d 73 74 72 69 |ias he-i|nit-stri|
|00000860| 6e 67 20 23 5b 28 62 65 | 67 20 65 6e 64 29 20 22 |ng #[(be|g end) "|
|00000870| 08 11 5c 6e 13 08 5c 6e | 7b 89 14 87 22 20 5b 62 |..\n..\n|{..." [b|
|00000880| 65 67 20 68 65 2d 73 74 | 72 69 6e 67 2d 62 65 67 |eg he-st|ring-beg|
|00000890| 20 65 6e 64 20 68 65 2d | 73 74 72 69 6e 67 2d 65 | end he-|string-e|
|000008a0| 6e 64 20 68 65 2d 73 65 | 61 72 63 68 2d 73 74 72 |nd he-se|arch-str|
|000008b0| 69 6e 67 5d 20 32 5d 20 | 68 65 2d 72 65 73 65 74 |ing] 2] |he-reset|
|000008c0| 2d 73 74 72 69 6e 67 20 | 23 5b 6e 69 6c 20 22 08 |-string |#[nil ".|
|000008d0| 09 7c 88 5c 6e 63 88 60 | 89 11 87 22 20 5b 68 65 |.|.\nc.`|..." [he|
|000008e0| 2d 73 74 72 69 6e 67 2d | 62 65 67 20 68 65 2d 73 |-string-|beg he-s|
|000008f0| 74 72 69 6e 67 2d 65 6e | 64 20 68 65 2d 73 65 61 |tring-en|d he-sea|
|00000900| 72 63 68 2d 73 74 72 69 | 6e 67 5d 20 32 5d 20 68 |rch-stri|ng] 2] h|
|00000910| 65 2d 73 75 62 73 74 69 | 74 75 74 65 2d 73 74 72 |e-substi|tute-str|
|00000920| 69 6e 67 20 23 5b 28 73 | 74 72 20 26 6f 70 74 69 |ing #[(s|tr &opti|
|00000930| 6f 6e 61 6c 20 74 72 61 | 6e 73 2d 63 61 73 65 29 |onal tra|ns-case)|
|00000940| 20 22 08 85 10 00 09 85 | 10 00 5c 6e 85 10 00 c3 | "......|..\n....|
|00000950| 0c 0d 5c 22 18 c6 20 88 | 0e 07 62 88 c8 0d 21 88 |..\".. .|..b...!.|
|00000960| c9 08 83 26 00 0c 97 82 | 27 00 0c 08 3f ca 23 88 |...&....|'...?.#.|
|00000970| 60 89 16 0b 29 87 22 20 | 5b 74 72 61 6e 73 2d 63 |`...)." |[trans-c|
|00000980| 61 73 65 20 63 61 73 65 | 2d 72 65 70 6c 61 63 65 |ase case|-replace|
|00000990| 20 63 61 73 65 2d 66 6f | 6c 64 2d 73 65 61 72 63 | case-fo|ld-searc|
|000009a0| 68 20 68 65 2d 74 72 61 | 6e 73 66 65 72 2d 63 61 |h he-tra|nsfer-ca|
|000009b0| 73 65 2d 6f 6b 20 73 74 | 72 20 68 65 2d 73 65 61 |se-ok st|r he-sea|
|000009c0| 72 63 68 2d 73 74 72 69 | 6e 67 20 68 65 2d 72 65 |rch-stri|ng he-re|
|000009d0| 73 65 74 2d 73 74 72 69 | 6e 67 20 68 65 2d 73 74 |set-stri|ng he-st|
|000009e0| 72 69 6e 67 2d 62 65 67 | 20 73 65 61 72 63 68 2d |ring-beg| search-|
|000009f0| 66 6f 72 77 61 72 64 20 | 72 65 70 6c 61 63 65 2d |forward |replace-|
|00000a00| 6d 61 74 63 68 20 6c 69 | 74 65 72 61 6c 20 68 65 |match li|teral he|
|00000a10| 2d 73 74 72 69 6e 67 2d | 65 6e 64 5d 20 34 5d 20 |-string-|end] 4] |
|00000a20| 68 65 2d 6f 72 64 69 6e | 61 72 79 2d 63 61 73 65 |he-ordin|ary-case|
|00000a30| 2d 70 20 23 5b 28 73 74 | 72 29 20 22 08 89 97 98 |-p #[(st|r) "....|
|00000a40| 86 13 00 08 89 96 98 86 | 13 00 08 c1 08 21 98 87 |........|.....!..|
|00000a50| 22 20 5b 73 74 72 20 63 | 61 70 69 74 61 6c 69 7a |" [str c|apitaliz|
|00000a60| 65 5d 20 33 5d 20 68 65 | 2d 74 72 61 6e 73 66 65 |e] 3] he|-transfe|
|00000a70| 72 2d 63 61 73 65 2d 6f | 6b 20 23 5b 28 74 6f 2d |r-case-o|k #[(to-|
|00000a80| 73 74 72 20 66 72 6f 6d | 2d 73 74 72 29 20 22 08 |str from|-str) ".|
|00000a90| 09 c2 08 47 4f 98 3f 85 | 14 00 c3 09 21 85 14 00 |...GO.?.|....!...|
|00000aa0| c3 08 21 87 22 20 5b 66 | 72 6f 6d 2d 73 74 72 20 |..!." [f|rom-str |
|00000ab0| 74 6f 2d 73 74 72 20 30 | 20 68 65 2d 6f 72 64 69 |to-str 0| he-ordi|
|00000ac0| 6e 61 72 79 2d 63 61 73 | 65 2d 70 5d 20 34 5d 20 |nary-cas|e-p] 4] |
|00000ad0| 68 65 2d 73 74 72 69 6e | 67 2d 6d 65 6d 62 65 72 |he-strin|g-member|
|00000ae0| 20 23 5b 28 73 74 72 20 | 6c 73 74 29 20 22 08 83 | #[(str |lst) "..|
|00000af0| 23 00 09 83 15 00 5c 6e | 83 15 00 08 40 97 0b 97 |#.....\n|....@...|
|00000b00| 98 82 19 00 08 40 0b 98 | 84 23 00 08 41 89 10 84 |.....@..|.#..A...|
|00000b10| 04 00 08 87 22 20 5b 6c | 73 74 20 63 61 73 65 2d |...." [l|st case-|
|00000b20| 66 6f 6c 64 2d 73 65 61 | 72 63 68 20 63 61 73 65 |fold-sea|rch case|
|00000b30| 2d 72 65 70 6c 61 63 65 | 20 73 74 72 5d 20 33 5d |-replace| str] 3]|
|00000b40| 5d 20 33 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |] 3).(de|falias '|
|00000b50| 6d 61 6b 65 2d 68 69 70 | 70 69 65 2d 65 78 70 61 |make-hip|pie-expa|
|00000b60| 6e 64 2d 66 75 6e 63 74 | 69 6f 6e 20 27 28 6d 61 |nd-funct|ion '(ma|
|00000b70| 63 72 6f 20 2e 20 23 5b | 28 74 72 79 2d 6c 69 73 |cro . #[|(try-lis|
|00000b80| 74 20 26 6f 70 74 69 6f | 6e 61 6c 20 76 65 72 62 |t &optio|nal verb|
|00000b90| 6f 73 65 29 20 22 c0 c1 | c2 c3 c4 c5 c6 0e 07 21 |ose) "..|.......!|
|00000ba0| c8 23 50 c9 ca cb 0e 07 | 44 cc 0e 0d 44 44 ce 45 |.#P.....|D...DD.E|
|00000bb0| af 05 44 87 22 20 5b 71 | 75 6f 74 65 20 6c 61 6d |..D." [q|uote lam|
|00000bc0| 62 64 61 20 28 61 72 67 | 29 20 22 54 72 79 20 74 |bda (arg|) "Try t|
|00000bd0| 6f 20 65 78 70 61 6e 64 | 20 74 65 78 74 20 62 65 |o expand| text be|
|00000be0| 66 6f 72 65 20 70 6f 69 | 6e 74 2c 20 75 73 69 6e |fore poi|nt, usin|
|00000bf0| 67 20 74 68 65 20 66 6f | 6c 6c 6f 77 69 6e 67 20 |g the fo|llowing |
|00000c00| 66 75 6e 63 74 69 6f 6e | 73 3a 20 5c 6e 22 20 6d |function|s: \n" m|
|00000c10| 61 70 63 6f 6e 63 61 74 | 20 70 72 69 6e 31 2d 74 |apconcat| prin1-t|
|00000c20| 6f 2d 73 74 72 69 6e 67 | 20 65 76 61 6c 20 74 72 |o-string| eval tr|
|00000c30| 79 2d 6c 69 73 74 20 22 | 2c 20 22 20 28 69 6e 74 |y-list "|, " (int|
|00000c40| 65 72 61 63 74 69 76 65 | 20 22 50 22 29 20 6c 65 |eractive| "P") le|
|00000c50| 74 20 68 69 70 70 69 65 | 2d 65 78 70 61 6e 64 2d |t hippie|-expand-|
|00000c60| 74 72 79 2d 66 75 6e 63 | 74 69 6f 6e 73 2d 6c 69 |try-func|tions-li|
|00000c70| 73 74 20 68 69 70 70 69 | 65 2d 65 78 70 61 6e 64 |st hippi|e-expand|
|00000c80| 2d 76 65 72 62 6f 73 65 | 20 76 65 72 62 6f 73 65 |-verbose| verbose|
|00000c90| 20 28 68 69 70 70 69 65 | 2d 65 78 70 61 6e 64 20 | (hippie|-expand |
|00000ca0| 61 72 67 29 5d 20 39 20 | 22 5c 0a 43 6f 6e 73 74 |arg)] 9 |"\.Const|
|00000cb0| 72 75 63 74 20 61 20 66 | 75 6e 63 74 69 6f 6e 20 |ruct a f|unction |
|00000cc0| 73 69 6d 69 6c 61 72 20 | 74 6f 20 60 68 69 70 70 |similar |to `hipp|
|00000cd0| 69 65 2d 65 78 70 61 6e | 64 27 2e 0a 4d 61 6b 65 |ie-expan|d'..Make|
|00000ce0| 20 69 74 20 75 73 65 20 | 74 68 65 20 65 78 70 61 | it use |the expa|
|00000cf0| 6e 73 69 6f 6e 20 66 75 | 6e 63 74 69 6f 6e 73 20 |nsion fu|nctions |
|00000d00| 69 6e 20 54 52 59 2d 4c | 49 53 54 2e 20 20 41 6e |in TRY-L|IST.  An|
|00000d10| 20 6f 70 74 69 6f 6e 61 | 6c 20 73 65 63 6f 6e 64 | optiona|l second|
|00000d20| 0a 61 72 67 75 6d 65 6e | 74 20 56 45 52 42 4f 53 |.argumen|t VERBOS|
|00000d30| 45 20 6e 6f 6e 2d 6e 69 | 6c 20 6d 61 6b 65 73 20 |E non-ni|l makes |
|00000d40| 74 68 65 20 66 75 6e 63 | 74 69 6f 6e 20 76 65 72 |the func|tion ver|
|00000d50| 62 6f 73 65 2e 22 5d 29 | 29 0a 28 64 65 66 61 6c |bose."])|).(defal|
|00000d60| 69 61 73 20 27 74 72 79 | 2d 63 6f 6d 70 6c 65 74 |ias 'try|-complet|
|00000d70| 65 2d 66 69 6c 65 2d 6e | 61 6d 65 20 23 5b 28 6f |e-file-n|ame #[(o|
|00000d80| 6c 64 29 20 22 08 84 49 | 00 c1 c2 20 60 5c 22 88 |ld) "..I|... `\".|
|00000d90| c3 0c 21 c5 c6 0c 21 86 | 15 00 c7 21 1e 08 1e 09 |..!...!.|...!....|
|00000da0| ca 0e 09 0e 0b 5c 22 84 | 2a 00 0e 09 0e 0b 42 16 |.....\".|*.....B.|
|00000db0| 0b 0c c7 9a 84 45 00 cc | 0e 08 21 83 45 00 cd ce |.....E..|..!.E...|
|00000dc0| 0e 09 0e 08 5c 22 cf 5c | 22 16 10 82 48 00 d1 16 |....\".\|"...H...|
|00000dd0| 10 2a 0e 10 83 61 00 ca | 0e 10 40 0e 0b 5c 22 83 |.*...a..|..@..\".|
|00000de0| 61 00 0e 10 41 89 16 10 | 84 4e 00 0e 10 84 6b 00 |a...A...|.N....k.|
|00000df0| d2 20 88 d1 87 c6 0c 21 | 0e 10 40 50 1e 13 d4 0e |. .....!|..@P....|
|00000e00| 13 21 88 0e 10 40 0e 0b | 42 16 0b 0e 10 41 16 10 |.!...@..|B....A..|
|00000e10| 29 d5 87 22 20 5b 6f 6c | 64 20 68 65 2d 69 6e 69 |).." [ol|d he-ini|
|00000e20| 74 2d 73 74 72 69 6e 67 | 20 68 65 2d 66 69 6c 65 |t-string| he-file|
|00000e30| 2d 6e 61 6d 65 2d 62 65 | 67 20 66 69 6c 65 2d 6e |-name-be|g file-n|
|00000e40| 61 6d 65 2d 6e 6f 6e 64 | 69 72 65 63 74 6f 72 79 |ame-nond|irectory|
|00000e50| 20 68 65 2d 73 65 61 72 | 63 68 2d 73 74 72 69 6e | he-sear|ch-strin|
|00000e60| 67 20 65 78 70 61 6e 64 | 2d 66 69 6c 65 2d 6e 61 |g expand|-file-na|
|00000e70| 6d 65 20 66 69 6c 65 2d | 6e 61 6d 65 2d 64 69 72 |me file-|name-dir|
|00000e80| 65 63 74 6f 72 79 20 22 | 22 20 64 69 72 2d 70 61 |ectory "|" dir-pa|
|00000e90| 72 74 20 6e 61 6d 65 2d | 70 61 72 74 20 68 65 2d |rt name-|part he-|
|00000ea0| 73 74 72 69 6e 67 2d 6d | 65 6d 62 65 72 20 68 65 |string-m|ember he|
|00000eb0| 2d 74 72 69 65 64 2d 74 | 61 62 6c 65 20 66 69 6c |-tried-t|able fil|
|00000ec0| 65 2d 64 69 72 65 63 74 | 6f 72 79 2d 70 20 73 6f |e-direct|ory-p so|
|00000ed0| 72 74 20 66 69 6c 65 2d | 6e 61 6d 65 2d 61 6c 6c |rt file-|name-all|
|00000ee0| 2d 63 6f 6d 70 6c 65 74 | 69 6f 6e 73 20 73 74 72 |-complet|ions str|
|00000ef0| 69 6e 67 2d 6c 65 73 73 | 70 20 68 65 2d 65 78 70 |ing-less|p he-exp|
|00000f00| 61 6e 64 2d 6c 69 73 74 | 20 6e 69 6c 20 68 65 2d |and-list| nil he-|
|00000f10| 72 65 73 65 74 2d 73 74 | 72 69 6e 67 20 66 69 6c |reset-st|ring fil|
|00000f20| 65 6e 61 6d 65 20 68 65 | 2d 73 75 62 73 74 69 74 |ename he|-substit|
|00000f30| 75 74 65 2d 73 74 72 69 | 6e 67 20 74 5d 20 35 20 |ute-stri|ng t] 5 |
|00000f40| 22 5c 0a 54 72 79 20 74 | 6f 20 63 6f 6d 70 6c 65 |"\.Try t|o comple|
|00000f50| 74 65 20 74 65 78 74 20 | 61 73 20 61 20 66 69 6c |te text |as a fil|
|00000f60| 65 20 6e 61 6d 65 2e 0a | 54 68 65 20 61 72 67 75 |e name..|The argu|
|00000f70| 6d 65 6e 74 20 4f 4c 44 | 20 68 61 73 20 74 6f 20 |ment OLD| has to |
|00000f80| 62 65 20 6e 69 6c 20 74 | 68 65 20 66 69 72 73 74 |be nil t|he first|
|00000f90| 20 63 61 6c 6c 20 6f 66 | 20 74 68 69 73 20 66 75 | call of| this fu|
|00000fa0| 6e 63 74 69 6f 6e 2c 20 | 61 6e 64 20 74 0a 66 6f |nction, |and t.fo|
|00000fb0| 72 20 73 75 62 73 65 71 | 75 65 6e 74 20 63 61 6c |r subseq|uent cal|
|00000fc0| 6c 73 20 28 66 6f 72 20 | 66 75 72 74 68 65 72 20 |ls (for |further |
|00000fd0| 70 6f 73 73 69 62 6c 65 | 20 63 6f 6d 70 6c 65 74 |possible| complet|
|00000fe0| 69 6f 6e 73 20 6f 66 20 | 74 68 65 20 73 61 6d 65 |ions of |the same|
|00000ff0| 0a 73 74 72 69 6e 67 29 | 2e 20 20 49 74 20 72 65 |.string)|.  It re|
|00001000| 74 75 72 6e 73 20 74 20 | 69 66 20 61 20 6e 65 77 |turns t |if a new|
|00001010| 20 63 6f 6d 70 6c 65 74 | 69 6f 6e 20 69 73 20 66 | complet|ion is f|
|00001020| 6f 75 6e 64 2c 20 6e 69 | 6c 20 6f 74 68 65 72 77 |ound, ni|l otherw|
|00001030| 69 73 65 2e 22 5d 29 0a | 28 64 65 66 61 6c 69 61 |ise."]).|(defalia|
|00001040| 73 20 27 74 72 79 2d 63 | 6f 6d 70 6c 65 74 65 2d |s 'try-c|omplete-|
|00001050| 66 69 6c 65 2d 6e 61 6d | 65 2d 70 61 72 74 69 61 |file-nam|e-partia|
|00001060| 6c 6c 79 20 23 5b 28 6f | 6c 64 29 20 22 c0 19 5c |lly #[(o|ld) "..\|
|00001070| 6e 84 43 00 c3 c4 20 60 | 5c 22 88 c5 0e 06 21 c7 |n.C... `|\"....!.|
|00001080| c8 0e 06 21 86 19 00 c9 | 21 1e 5c 6e 1e 0b 0e 06 |...!....|!.\n....|
|00001090| c9 9a 84 33 00 cc 0e 5c | 6e 21 83 33 00 cd 0e 0b |...3...\|n!.3....|
|000010a0| 0e 5c 6e 5c 22 11 09 ce | 3d 84 40 00 09 0e 0b 98 |.\n\"...|=.@.....|
|000010b0| 83 42 00 c0 11 2a 09 84 | 4e 00 cf 20 88 c0 82 63 |.B...*..|N.. ...c|
|000010c0| 00 c8 0e 06 21 09 50 1e | 10 d1 0e 10 21 88 09 0e |....!.P.|....!...|
|000010d0| 12 42 16 12 29 ce 29 87 | 22 20 5b 6e 69 6c 20 65 |.B..).).|" [nil e|
|000010e0| 78 70 61 6e 73 69 6f 6e | 20 6f 6c 64 20 68 65 2d |xpansion| old he-|
|000010f0| 69 6e 69 74 2d 73 74 72 | 69 6e 67 20 68 65 2d 66 |init-str|ing he-f|
|00001100| 69 6c 65 2d 6e 61 6d 65 | 2d 62 65 67 20 66 69 6c |ile-name|-beg fil|
|00001110| 65 2d 6e 61 6d 65 2d 6e | 6f 6e 64 69 72 65 63 74 |e-name-n|ondirect|
|00001120| 6f 72 79 20 68 65 2d 73 | 65 61 72 63 68 2d 73 74 |ory he-s|earch-st|
|00001130| 72 69 6e 67 20 65 78 70 | 61 6e 64 2d 66 69 6c 65 |ring exp|and-file|
|00001140| 2d 6e 61 6d 65 20 66 69 | 6c 65 2d 6e 61 6d 65 2d |-name fi|le-name-|
|00001150| 64 69 72 65 63 74 6f 72 | 79 20 22 22 20 64 69 72 |director|y "" dir|
|00001160| 2d 70 61 72 74 20 6e 61 | 6d 65 2d 70 61 72 74 20 |-part na|me-part |
|00001170| 66 69 6c 65 2d 64 69 72 | 65 63 74 6f 72 79 2d 70 |file-dir|ectory-p|
|00001180| 20 66 69 6c 65 2d 6e 61 | 6d 65 2d 63 6f 6d 70 6c | file-na|me-compl|
|00001190| 65 74 69 6f 6e 20 74 20 | 68 65 2d 72 65 73 65 74 |etion t |he-reset|
|000011a0| 2d 73 74 72 69 6e 67 20 | 66 69 6c 65 6e 61 6d 65 |-string |filename|
|000011b0| 20 68 65 2d 73 75 62 73 | 74 69 74 75 74 65 2d 73 | he-subs|titute-s|
|000011c0| 74 72 69 6e 67 20 68 65 | 2d 74 72 69 65 64 2d 74 |tring he|-tried-t|
|000011d0| 61 62 6c 65 5d 20 34 20 | 22 5c 0a 54 72 79 20 74 |able] 4 |"\.Try t|
|000011e0| 6f 20 63 6f 6d 70 6c 65 | 74 65 20 74 65 78 74 20 |o comple|te text |
|000011f0| 61 73 20 61 20 66 69 6c | 65 20 6e 61 6d 65 2c 20 |as a fil|e name, |
|00001200| 61 73 20 6d 61 6e 79 20 | 63 68 61 72 61 63 74 65 |as many |characte|
|00001210| 72 73 20 61 73 20 75 6e | 69 71 75 65 2e 0a 54 68 |rs as un|ique..Th|
|00001220| 65 20 61 72 67 75 6d 65 | 6e 74 20 4f 4c 44 20 68 |e argume|nt OLD h|
|00001230| 61 73 20 74 6f 20 62 65 | 20 6e 69 6c 20 74 68 65 |as to be| nil the|
|00001240| 20 66 69 72 73 74 20 63 | 61 6c 6c 20 6f 66 20 74 | first c|all of t|
|00001250| 68 69 73 20 66 75 6e 63 | 74 69 6f 6e 2e 20 20 49 |his func|tion.  I|
|00001260| 74 0a 72 65 74 75 72 6e | 73 20 74 20 69 66 20 61 |t.return|s t if a|
|00001270| 20 75 6e 69 71 75 65 2c | 20 70 6f 73 73 69 62 6c | unique,| possibl|
|00001280| 79 20 70 61 72 74 69 61 | 6c 2c 20 63 6f 6d 70 6c |y partia|l, compl|
|00001290| 65 74 69 6f 6e 20 69 73 | 20 66 6f 75 6e 64 2c 20 |etion is| found, |
|000012a0| 6e 69 6c 20 0a 6f 74 68 | 65 72 77 69 73 65 2e 22 |nil .oth|erwise."|
|000012b0| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 28 71 75 |]).(defa|lias (qu|
|000012c0| 6f 74 65 20 68 65 2d 66 | 69 6c 65 2d 6e 61 6d 65 |ote he-f|ile-name|
|000012d0| 2d 62 65 67 29 20 23 5b | 6e 69 6c 20 22 c0 19 8a |-beg) #[|nil "...|
|000012e0| 09 c2 78 88 60 2a 87 22 | 20 5b 22 2d 61 2d 7a 41 |..x.`*."| ["-a-zA|
|000012f0| 2d 5a 30 2d 39 5f 2e 2f | 7e 5e 23 24 22 20 73 6b |-Z0-9_./|~^#$" sk|
|00001300| 69 70 73 20 6e 69 6c 5d | 20 32 5d 29 0a 28 64 65 |ips nil]| 2]).(de|
|00001310| 66 61 6c 69 61 73 20 27 | 74 72 79 2d 63 6f 6d 70 |falias '|try-comp|
|00001320| 6c 65 74 65 2d 6c 69 73 | 70 2d 73 79 6d 62 6f 6c |lete-lis|p-symbol|
|00001330| 20 23 5b 28 6f 6c 64 29 | 20 22 08 84 27 00 c1 c2 | #[(old)| "..'...|
|00001340| 20 60 5c 22 88 c3 0c 0d | 5c 22 84 15 00 0c 0d 42 | `\"....|\".....B|
|00001350| 15 0c c6 9a 3f 85 25 00 | c7 c8 0c 0e 09 ca 23 cb |....?.%.|......#.|
|00001360| 5c 22 16 0c 0e 0c 83 3e | 00 c3 0e 0c 40 0d 5c 22 |\".....>|....@.\"|
|00001370| 83 3e 00 0e 0c 41 89 16 | 0c 84 2c 00 0e 0c 84 48 |.>...A..|..,....H|
|00001380| 00 cd 20 88 ce 87 cf 0e | 0c 40 21 88 0e 0c 40 0d |.. .....|.@!...@.|
|00001390| 42 15 0e 0c 41 16 0c d0 | 87 22 20 5b 6f 6c 64 20 |B...A...|." [old |
|000013a0| 68 65 2d 69 6e 69 74 2d | 73 74 72 69 6e 67 20 68 |he-init-|string h|
|000013b0| 65 2d 6c 69 73 70 2d 73 | 79 6d 62 6f 6c 2d 62 65 |e-lisp-s|ymbol-be|
|000013c0| 67 20 68 65 2d 73 74 72 | 69 6e 67 2d 6d 65 6d 62 |g he-str|ing-memb|
|000013d0| 65 72 20 68 65 2d 73 65 | 61 72 63 68 2d 73 74 72 |er he-se|arch-str|
|000013e0| 69 6e 67 20 68 65 2d 74 | 72 69 65 64 2d 74 61 62 |ing he-t|ried-tab|
|000013f0| 6c 65 20 22 22 20 73 6f | 72 74 20 61 6c 6c 2d 63 |le "" so|rt all-c|
|00001400| 6f 6d 70 6c 65 74 69 6f | 6e 73 20 6f 62 61 72 72 |ompletio|ns obarr|
|00001410| 61 79 20 23 5b 28 73 79 | 6d 29 20 22 c0 09 21 86 |ay #[(sy|m) "..!.|
|00001420| 0f 00 c2 09 21 86 0f 00 | c3 09 21 87 22 20 5b 62 |....!...|..!." [b|
|00001430| 6f 75 6e 64 70 20 73 79 | 6d 20 66 62 6f 75 6e 64 |oundp sy|m fbound|
|00001440| 70 20 73 79 6d 62 6f 6c | 2d 70 6c 69 73 74 5d 20 |p symbol|-plist] |
|00001450| 32 5d 20 73 74 72 69 6e | 67 2d 6c 65 73 73 70 20 |2] strin|g-lessp |
|00001460| 68 65 2d 65 78 70 61 6e | 64 2d 6c 69 73 74 20 68 |he-expan|d-list h|
|00001470| 65 2d 72 65 73 65 74 2d | 73 74 72 69 6e 67 20 6e |e-reset-|string n|
|00001480| 69 6c 20 68 65 2d 73 75 | 62 73 74 69 74 75 74 65 |il he-su|bstitute|
|00001490| 2d 73 74 72 69 6e 67 20 | 74 5d 20 36 20 22 5c 0a |-string |t] 6 "\.|
|000014a0| 54 72 79 20 74 6f 20 63 | 6f 6d 70 6c 65 74 65 20 |Try to c|omplete |
|000014b0| 77 6f 72 64 20 61 73 20 | 61 6e 20 45 6d 61 63 73 |word as |an Emacs|
|000014c0| 20 4c 69 73 70 20 73 79 | 6d 62 6f 6c 2e 0a 54 68 | Lisp sy|mbol..Th|
|000014d0| 65 20 61 72 67 75 6d 65 | 6e 74 20 4f 4c 44 20 68 |e argume|nt OLD h|
|000014e0| 61 73 20 74 6f 20 62 65 | 20 6e 69 6c 20 74 68 65 |as to be| nil the|
|000014f0| 20 66 69 72 73 74 20 63 | 61 6c 6c 20 6f 66 20 74 | first c|all of t|
|00001500| 68 69 73 20 66 75 6e 63 | 74 69 6f 6e 2c 20 61 6e |his func|tion, an|
|00001510| 64 20 74 0a 66 6f 72 20 | 73 75 62 73 65 71 75 65 |d t.for |subseque|
|00001520| 6e 74 20 63 61 6c 6c 73 | 20 28 66 6f 72 20 66 75 |nt calls| (for fu|
|00001530| 72 74 68 65 72 20 70 6f | 73 73 69 62 6c 65 20 63 |rther po|ssible c|
|00001540| 6f 6d 70 6c 65 74 69 6f | 6e 73 20 6f 66 20 74 68 |ompletio|ns of th|
|00001550| 65 20 73 61 6d 65 0a 73 | 74 72 69 6e 67 29 2e 20 |e same.s|tring). |
|00001560| 20 49 74 20 72 65 74 75 | 72 6e 73 20 74 20 69 66 | It retu|rns t if|
|00001570| 20 61 20 6e 65 77 20 63 | 6f 6d 70 6c 65 74 69 6f | a new c|ompletio|
|00001580| 6e 20 69 73 20 66 6f 75 | 6e 64 2c 20 6e 69 6c 20 |n is fou|nd, nil |
|00001590| 6f 74 68 65 72 77 69 73 | 65 2e 22 5d 29 0a 28 64 |otherwis|e."]).(d|
|000015a0| 65 66 61 6c 69 61 73 20 | 27 74 72 79 2d 63 6f 6d |efalias |'try-com|
|000015b0| 70 6c 65 74 65 2d 6c 69 | 73 70 2d 73 79 6d 62 6f |plete-li|sp-symbo|
|000015c0| 6c 2d 70 61 72 74 69 61 | 6c 6c 79 20 23 5b 28 6f |l-partia|lly #[(o|
|000015d0| 6c 64 29 20 22 c0 19 5c | 6e 84 27 00 c3 c4 20 60 |ld) "..\|n.'... `|
|000015e0| 5c 22 88 0d c6 98 84 19 | 00 c7 0d 0e 08 c9 23 11 |\"......|......#.|
|000015f0| 09 ca 3d 84 25 00 09 0d | 98 83 27 00 c0 11 09 84 |..=.%...|..'.....|
|00001600| 32 00 cb 20 88 c0 82 3d | 00 cc 09 21 88 09 0e 0d |2.. ...=|...!....|
|00001610| 42 16 0d ca 29 87 22 20 | 5b 6e 69 6c 20 65 78 70 |B...)." |[nil exp|
|00001620| 61 6e 73 69 6f 6e 20 6f | 6c 64 20 68 65 2d 69 6e |ansion o|ld he-in|
|00001630| 69 74 2d 73 74 72 69 6e | 67 20 68 65 2d 6c 69 73 |it-strin|g he-lis|
|00001640| 70 2d 73 79 6d 62 6f 6c | 2d 62 65 67 20 68 65 2d |p-symbol|-beg he-|
|00001650| 73 65 61 72 63 68 2d 73 | 74 72 69 6e 67 20 22 22 |search-s|tring ""|
|00001660| 20 74 72 79 2d 63 6f 6d | 70 6c 65 74 69 6f 6e 20 | try-com|pletion |
|00001670| 6f 62 61 72 72 61 79 20 | 23 5b 28 73 79 6d 29 20 |obarray |#[(sym) |
|00001680| 22 c0 09 21 86 0f 00 c2 | 09 21 86 0f 00 c3 09 21 |"..!....|.!.....!|
|00001690| 87 22 20 5b 62 6f 75 6e | 64 70 20 73 79 6d 20 66 |." [boun|dp sym f|
|000016a0| 62 6f 75 6e 64 70 20 73 | 79 6d 62 6f 6c 2d 70 6c |boundp s|ymbol-pl|
|000016b0| 69 73 74 5d 20 32 5d 20 | 74 20 68 65 2d 72 65 73 |ist] 2] |t he-res|
|000016c0| 65 74 2d 73 74 72 69 6e | 67 20 68 65 2d 73 75 62 |et-strin|g he-sub|
|000016d0| 73 74 69 74 75 74 65 2d | 73 74 72 69 6e 67 20 68 |stitute-|string h|
|000016e0| 65 2d 74 72 69 65 64 2d | 74 61 62 6c 65 5d 20 34 |e-tried-|table] 4|
|000016f0| 20 22 5c 0a 54 72 79 20 | 74 6f 20 63 6f 6d 70 6c | "\.Try |to compl|
|00001700| 65 74 65 20 61 73 20 61 | 6e 20 45 6d 61 63 73 20 |ete as a|n Emacs |
|00001710| 4c 69 73 70 20 73 79 6d | 62 6f 6c 2c 20 61 73 20 |Lisp sym|bol, as |
|00001720| 6d 61 6e 79 20 63 68 61 | 72 61 63 74 65 72 73 20 |many cha|racters |
|00001730| 61 73 20 75 6e 69 71 75 | 65 2e 0a 54 68 65 20 61 |as uniqu|e..The a|
|00001740| 72 67 75 6d 65 6e 74 20 | 4f 4c 44 20 68 61 73 20 |rgument |OLD has |
|00001750| 74 6f 20 62 65 20 6e 69 | 6c 20 74 68 65 20 66 69 |to be ni|l the fi|
|00001760| 72 73 74 20 63 61 6c 6c | 20 6f 66 20 74 68 69 73 |rst call| of this|
|00001770| 20 66 75 6e 63 74 69 6f | 6e 2e 20 20 49 74 0a 72 | functio|n.  It.r|
|00001780| 65 74 75 72 6e 73 20 74 | 20 69 66 20 61 20 75 6e |eturns t| if a un|
|00001790| 69 71 75 65 2c 20 70 6f | 73 73 69 62 6c 79 20 70 |ique, po|ssibly p|
|000017a0| 61 72 74 69 61 6c 2c 20 | 63 6f 6d 70 6c 65 74 69 |artial, |completi|
|000017b0| 6f 6e 20 69 73 20 66 6f | 75 6e 64 2c 20 6e 69 6c |on is fo|und, nil|
|000017c0| 20 0a 6f 74 68 65 72 77 | 69 73 65 2e 22 5d 29 0a | .otherw|ise."]).|
|000017d0| 28 64 65 66 61 6c 69 61 | 73 20 28 71 75 6f 74 65 |(defalia|s (quote|
|000017e0| 20 68 65 2d 6c 69 73 70 | 2d 73 79 6d 62 6f 6c 2d | he-lisp|-symbol-|
|000017f0| 62 65 67 29 20 23 5b 6e | 69 6c 20 22 c0 19 8a 09 |beg) #[n|il "....|
|00001800| c2 78 88 60 2a 87 22 20 | 5b 22 2d 61 2d 7a 41 2d |.x.`*." |["-a-zA-|
|00001810| 5a 30 2d 39 5f 2e 22 20 | 73 6b 69 70 73 20 6e 69 |Z0-9_." |skips ni|
|00001820| 6c 5d 20 32 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |l] 2]).(|defalias|
|00001830| 20 27 74 72 79 2d 65 78 | 70 61 6e 64 2d 6c 69 6e | 'try-ex|pand-lin|
|00001840| 65 20 23 5b 28 6f 6c 64 | 29 20 22 c0 c1 70 21 85 |e #[(old|) "..p!.|
|00001850| 08 00 5c 6e 1b 1c 0d 84 | 1c 00 c6 c7 0b 21 60 5c |..\n....|.....!`\|
|00001860| 22 88 0e 08 16 09 ca 16 | 0b 0e 0c cd 9a 84 57 00 |".......|......W.|
|00001870| 8a 0e 0b 83 43 00 0e 09 | 62 88 ce 0e 0c 0b ca 23 |....C...|b......#|
|00001880| 14 cf 20 16 09 0c 84 43 | 00 0e 10 16 09 c0 16 0b |.. ....C|........|
|00001890| 0c 84 56 00 0e 09 62 88 | ce 0e 0c 0b c0 23 14 cf |..V...b.|.....#..|
|000018a0| 20 16 09 29 0c 84 62 00 | d1 20 88 c0 82 6e 00 d2 | ..)..b.|. ...n..|
|000018b0| 0c ca 5c 22 88 0c 0e 13 | 42 16 13 ca 2a 87 22 20 |..\"....|B...*." |
|000018c0| 5b 6e 69 6c 20 67 65 74 | 2d 62 75 66 66 65 72 2d |[nil get|-buffer-|
|000018d0| 70 72 6f 63 65 73 73 20 | 73 68 65 6c 6c 2d 70 72 |process |shell-pr|
|000018e0| 6f 6d 70 74 2d 70 61 74 | 74 65 72 6e 20 73 74 72 |ompt-pat|tern str|
|000018f0| 69 70 2d 70 72 6f 6d 70 | 74 20 65 78 70 61 6e 73 |ip-promp|t expans|
|00001900| 69 6f 6e 20 6f 6c 64 20 | 68 65 2d 69 6e 69 74 2d |ion old |he-init-|
|00001910| 73 74 72 69 6e 67 20 68 | 65 2d 6c 69 6e 65 2d 62 |string h|e-line-b|
|00001920| 65 67 20 68 65 2d 73 74 | 72 69 6e 67 2d 62 65 67 |eg he-st|ring-beg|
|00001930| 20 68 65 2d 73 65 61 72 | 63 68 2d 6c 6f 63 20 74 | he-sear|ch-loc t|
|00001940| 20 68 65 2d 73 65 61 72 | 63 68 2d 62 77 20 68 65 | he-sear|ch-bw he|
|00001950| 2d 73 65 61 72 63 68 2d | 73 74 72 69 6e 67 20 22 |-search-|string "|
|00001960| 22 20 68 65 2d 6c 69 6e | 65 2d 73 65 61 72 63 68 |" he-lin|e-search|
|00001970| 20 70 6f 69 6e 74 2d 6d | 61 72 6b 65 72 20 68 65 | point-m|arker he|
|00001980| 2d 73 74 72 69 6e 67 2d | 65 6e 64 20 68 65 2d 72 |-string-|end he-r|
|00001990| 65 73 65 74 2d 73 74 72 | 69 6e 67 20 68 65 2d 73 |eset-str|ing he-s|
|000019a0| 75 62 73 74 69 74 75 74 | 65 2d 73 74 72 69 6e 67 |ubstitut|e-string|
|000019b0| 20 68 65 2d 74 72 69 65 | 64 2d 74 61 62 6c 65 5d | he-trie|d-table]|
|000019c0| 20 34 20 22 5c 0a 54 72 | 79 20 74 6f 20 63 6f 6d | 4 "\.Tr|y to com|
|000019d0| 70 6c 65 74 65 20 74 68 | 65 20 63 75 72 72 65 6e |plete th|e curren|
|000019e0| 74 20 6c 69 6e 65 20 74 | 6f 20 61 6e 20 65 6e 74 |t line t|o an ent|
|000019f0| 69 72 65 20 6c 69 6e 65 | 20 69 6e 20 74 68 65 20 |ire line| in the |
|00001a00| 62 75 66 66 65 72 2e 0a | 54 68 65 20 61 72 67 75 |buffer..|The argu|
|00001a10| 6d 65 6e 74 20 4f 4c 44 | 20 68 61 73 20 74 6f 20 |ment OLD| has to |
|00001a20| 62 65 20 6e 69 6c 20 74 | 68 65 20 66 69 72 73 74 |be nil t|he first|
|00001a30| 20 63 61 6c 6c 20 6f 66 | 20 74 68 69 73 20 66 75 | call of| this fu|
|00001a40| 6e 63 74 69 6f 6e 2c 20 | 61 6e 64 20 74 0a 66 6f |nction, |and t.fo|
|00001a50| 72 20 73 75 62 73 65 71 | 75 65 6e 74 20 63 61 6c |r subseq|uent cal|
|00001a60| 6c 73 20 28 66 6f 72 20 | 66 75 72 74 68 65 72 20 |ls (for |further |
|00001a70| 70 6f 73 73 69 62 6c 65 | 20 63 6f 6d 70 6c 65 74 |possible| complet|
|00001a80| 69 6f 6e 73 20 6f 66 20 | 74 68 65 20 73 61 6d 65 |ions of |the same|
|00001a90| 0a 73 74 72 69 6e 67 29 | 2e 20 20 49 74 20 72 65 |.string)|.  It re|
|00001aa0| 74 75 72 6e 73 20 74 20 | 69 66 20 61 20 6e 65 77 |turns t |if a new|
|00001ab0| 20 63 6f 6d 70 6c 65 74 | 69 6f 6e 20 69 73 20 66 | complet|ion is f|
|00001ac0| 6f 75 6e 64 2c 20 6e 69 | 6c 20 6f 74 68 65 72 77 |ound, ni|l otherw|
|00001ad0| 69 73 65 2e 22 5d 29 0a | 28 64 65 66 61 6c 69 61 |ise."]).|(defalia|
|00001ae0| 73 20 27 74 72 79 2d 65 | 78 70 61 6e 64 2d 6c 69 |s 'try-e|xpand-li|
|00001af0| 6e 65 2d 61 6c 6c 2d 62 | 75 66 66 65 72 73 20 23 |ne-all-b|uffers #|
|00001b00| 5b 28 6f 6c 64 29 20 22 | c0 c1 70 21 85 08 00 5c |[(old) "|..p!...\|
|00001b10| 6e 70 1b 1c 1d 0e 06 84 | 1f 00 c7 c8 0c 21 60 5c |np......|.....!`\|
|00001b20| 22 88 c9 16 5c 6e cb 20 | 16 0c 0e 0d ce 9a 84 6b |"...\n. |.......k|
|00001b30| 00 0e 0c 83 6b 00 0d 84 | 6b 00 0e 0c 40 71 88 70 |....k...|k...@q.p|
|00001b40| 0b 3d 84 52 00 0e 0f d0 | 3d 84 52 00 8a 0e 5c 6e |.=.R....|=.R...\n|
|00001b50| 62 88 d1 0e 0d 0c c0 23 | 15 d2 20 16 5c 6e 29 0d |b......#|.. .\n).|
|00001b60| 83 5f 00 0d 0e 13 42 16 | 13 82 26 00 c9 16 5c 6e |._....B.|..&...\n|
|00001b70| 0e 0c 41 89 16 0c 84 2b | 00 0b 71 88 0d 84 79 00 |..A....+|..q...y.|
|00001b80| d4 20 88 c0 82 7f 00 d5 | 0d d6 5c 22 88 d6 2b 87 |. ......|..\"..+.|
|00001b90| 22 20 5b 6e 69 6c 20 67 | 65 74 2d 62 75 66 66 65 |" [nil g|et-buffe|
|00001ba0| 72 2d 70 72 6f 63 65 73 | 73 20 73 68 65 6c 6c 2d |r-proces|s shell-|
|00001bb0| 70 72 6f 6d 70 74 2d 70 | 61 74 74 65 72 6e 20 62 |prompt-p|attern b|
|00001bc0| 75 66 20 73 74 72 69 70 | 2d 70 72 6f 6d 70 74 20 |uf strip|-prompt |
|00001bd0| 65 78 70 61 6e 73 69 6f | 6e 20 6f 6c 64 20 68 65 |expansio|n old he|
|00001be0| 2d 69 6e 69 74 2d 73 74 | 72 69 6e 67 20 68 65 2d |-init-st|ring he-|
|00001bf0| 6c 69 6e 65 2d 62 65 67 | 20 30 20 68 65 2d 73 65 |line-beg| 0 he-se|
|00001c00| 61 72 63 68 2d 6c 6f 63 | 20 62 75 66 66 65 72 2d |arch-loc| buffer-|
|00001c10| 6c 69 73 74 20 68 65 2d | 73 65 61 72 63 68 2d 62 |list he-|search-b|
|00001c20| 75 66 73 20 68 65 2d 73 | 65 61 72 63 68 2d 73 74 |ufs he-s|earch-st|
|00001c30| 72 69 6e 67 20 22 22 20 | 6d 61 6a 6f 72 2d 6d 6f |ring "" |major-mo|
|00001c40| 64 65 20 64 69 72 65 64 | 2d 6d 6f 64 65 20 68 65 |de dired|-mode he|
|00001c50| 2d 6c 69 6e 65 2d 73 65 | 61 72 63 68 20 70 6f 69 |-line-se|arch poi|
|00001c60| 6e 74 2d 6d 61 72 6b 65 | 72 20 68 65 2d 74 72 69 |nt-marke|r he-tri|
|00001c70| 65 64 2d 74 61 62 6c 65 | 20 68 65 2d 72 65 73 65 |ed-table| he-rese|
|00001c80| 74 2d 73 74 72 69 6e 67 | 20 68 65 2d 73 75 62 73 |t-string| he-subs|
|00001c90| 74 69 74 75 74 65 2d 73 | 74 72 69 6e 67 20 74 5d |titute-s|tring t]|
|00001ca0| 20 35 20 22 5c 0a 54 72 | 79 20 74 6f 20 63 6f 6d | 5 "\.Tr|y to com|
|00001cb0| 70 6c 65 74 65 20 74 68 | 65 20 63 75 72 72 65 6e |plete th|e curren|
|00001cc0| 74 20 6c 69 6e 65 2c 20 | 73 65 61 72 63 68 69 6e |t line, |searchin|
|00001cd0| 67 20 61 6c 6c 20 6f 74 | 68 65 72 20 62 75 66 66 |g all ot|her buff|
|00001ce0| 65 72 73 2e 0a 54 68 65 | 20 61 72 67 75 6d 65 6e |ers..The| argumen|
|00001cf0| 74 20 4f 4c 44 20 68 61 | 73 20 74 6f 20 62 65 20 |t OLD ha|s to be |
|00001d00| 6e 69 6c 20 74 68 65 20 | 66 69 72 73 74 20 63 61 |nil the |first ca|
|00001d10| 6c 6c 20 6f 66 20 74 68 | 69 73 20 66 75 6e 63 74 |ll of th|is funct|
|00001d20| 69 6f 6e 2c 20 61 6e 64 | 20 74 0a 66 6f 72 20 73 |ion, and| t.for s|
|00001d30| 75 62 73 65 71 75 65 6e | 74 20 63 61 6c 6c 73 20 |ubsequen|t calls |
|00001d40| 28 66 6f 72 20 66 75 72 | 74 68 65 72 20 70 6f 73 |(for fur|ther pos|
|00001d50| 73 69 62 6c 65 20 63 6f | 6d 70 6c 65 74 69 6f 6e |sible co|mpletion|
|00001d60| 73 20 6f 66 20 74 68 65 | 20 73 61 6d 65 0a 73 74 |s of the| same.st|
|00001d70| 72 69 6e 67 29 2e 20 20 | 49 74 20 72 65 74 75 72 |ring).  |It retur|
|00001d80| 6e 73 20 74 20 69 66 20 | 61 20 6e 65 77 20 63 6f |ns t if |a new co|
|00001d90| 6d 70 6c 65 74 69 6f 6e | 20 69 73 20 66 6f 75 6e |mpletion| is foun|
|00001da0| 64 2c 20 6e 69 6c 20 6f | 74 68 65 72 77 69 73 65 |d, nil o|therwise|
|00001db0| 2e 22 5d 29 0a 28 62 79 | 74 65 2d 63 6f 64 65 20 |."]).(by|te-code |
|00001dc0| 22 c0 c1 c2 5c 22 88 c0 | c3 c4 5c 22 88 c0 c5 c6 |"...\"..|..\"....|
|00001dd0| 5c 22 87 22 20 5b 64 65 | 66 61 6c 69 61 73 20 68 |\"." [de|falias h|
|00001de0| 65 2d 6c 69 6e 65 2d 73 | 65 61 72 63 68 20 23 5b |e-line-s|earch #[|
|00001df0| 28 73 74 72 20 73 74 72 | 69 70 2d 70 72 6f 6d 70 |(str str|ip-promp|
|00001e00| 74 20 72 65 76 65 72 73 | 65 29 20 22 c0 19 09 84 |t revers|e) "....|
|00001e10| 36 00 5c 6e 83 16 00 c3 | c4 0d 0e 06 5c 22 c0 c7 |6.\n....|....\"..|
|00001e20| 23 82 1f 00 c8 c4 0d 0e | 06 5c 22 c0 c7 23 83 36 |#.......|.\"..#.6|
|00001e30| 00 c9 94 c9 95 7b 11 ca | 09 0e 0b 5c 22 83 02 00 |.....{..|...\"...|
|00001e40| c0 89 11 83 06 00 09 29 | 87 22 20 5b 6e 69 6c 20 |.......)|." [nil |
|00001e50| 72 65 73 75 6c 74 20 72 | 65 76 65 72 73 65 20 72 |result r|everse r|
|00001e60| 65 2d 73 65 61 72 63 68 | 2d 62 61 63 6b 77 61 72 |e-search|-backwar|
|00001e70| 64 20 68 65 2d 6c 69 6e | 65 2d 73 65 61 72 63 68 |d he-lin|e-search|
|00001e80| 2d 72 65 67 65 78 70 20 | 73 74 72 20 73 74 72 69 |-regexp |str stri|
|00001e90| 70 2d 70 72 6f 6d 70 74 | 20 74 20 72 65 2d 73 65 |p-prompt| t re-se|
|00001ea0| 61 72 63 68 2d 66 6f 72 | 77 61 72 64 20 32 20 68 |arch-for|ward 2 h|
|00001eb0| 65 2d 73 74 72 69 6e 67 | 2d 6d 65 6d 62 65 72 20 |e-string|-member |
|00001ec0| 68 65 2d 74 72 69 65 64 | 2d 74 61 62 6c 65 5d 20 |he-tried|-table] |
|00001ed0| 35 5d 20 68 65 2d 6c 69 | 6e 65 2d 62 65 67 20 23 |5] he-li|ne-beg #|
|00001ee0| 5b 28 73 74 72 69 70 2d | 70 72 6f 6d 70 74 29 20 |[(strip-|prompt) |
|00001ef0| 22 8a c0 7f 88 c1 c2 c3 | 0c 5c 22 8a c5 79 88 60 |".......|.\"..y.`|
|00001f00| 29 c6 23 83 19 00 c7 94 | 82 1d 00 c5 79 88 60 29 |).#.....|....y.`)|
|00001f10| 87 22 20 5b 6e 69 6c 20 | 72 65 2d 73 65 61 72 63 |." [nil |re-searc|
|00001f20| 68 2d 62 61 63 6b 77 61 | 72 64 20 68 65 2d 6c 69 |h-backwa|rd he-li|
|00001f30| 6e 65 2d 73 65 61 72 63 | 68 2d 72 65 67 65 78 70 |ne-searc|h-regexp|
|00001f40| 20 22 22 20 73 74 72 69 | 70 2d 70 72 6f 6d 70 74 | "" stri|p-prompt|
|00001f50| 20 30 20 74 20 32 5d 20 | 34 5d 20 68 65 2d 6c 69 | 0 t 2] |4] he-li|
|00001f60| 6e 65 2d 73 65 61 72 63 | 68 2d 72 65 67 65 78 70 |ne-searc|h-regexp|
|00001f70| 20 23 5b 28 70 61 74 20 | 73 74 72 69 70 2d 70 72 | #[(pat |strip-pr|
|00001f80| 6f 6d 70 74 29 20 22 08 | 83 0e 00 c1 5c 6e c3 c4 |ompt) ".|....\n..|
|00001f90| 0d 21 c6 b0 05 87 c7 c4 | 0d 21 c6 51 87 22 20 5b |.!......|.!.Q." [|
|00001fa0| 73 74 72 69 70 2d 70 72 | 6f 6d 70 74 20 22 5c 5c |strip-pr|ompt "\\|
|00001fb0| 28 22 20 73 68 65 6c 6c | 2d 70 72 6f 6d 70 74 2d |(" shell|-prompt-|
|00001fc0| 70 61 74 74 65 72 6e 20 | 22 5c 5c 7c 5e 5c 5c 73 |pattern |"\\|^\\s|
|00001fd0| 2d 2a 5c 5c 29 5c 5c 28 | 22 20 72 65 67 65 78 70 |-*\\)\\(|" regexp|
|00001fe0| 2d 71 75 6f 74 65 20 70 | 61 74 20 22 5b 5e 5c 6e |-quote p|at "[^\n|
|00001ff0| 5d 2a 5b 5e 20 09 5c 6e | 5d 5c 5c 29 22 20 22 5e |]*[^ .\n|]\\)" "^|
|00002000| 5c 5c 28 5c 5c 73 2d 2a | 5c 5c 29 5c 5c 28 22 5d |\\(\\s-*|\\)\\("]|
|00002010| 20 35 5d 5d 20 33 29 0a | 28 64 65 66 61 6c 69 61 | 5]] 3).|(defalia|
|00002020| 73 20 27 74 72 79 2d 65 | 78 70 61 6e 64 2d 61 6c |s 'try-e|xpand-al|
|00002030| 6c 2d 61 62 62 72 65 76 | 73 20 23 5b 28 6f 6c 64 |l-abbrev|s #[(old|
|00002040| 29 20 22 08 84 1b 00 c1 | c2 20 60 5c 22 88 0b c4 |) ".....|. `\"...|
|00002050| 9a 3f 85 19 00 c5 c6 c7 | c8 0e 09 5c 22 5c 22 16 |.?......|...\"\".|
|00002060| 5c 6e 0e 5c 6e 83 39 00 | 0e 5c 6e 40 83 30 00 cb |\n.\n.9.|.\n@.0..|
|00002070| 0e 5c 6e 40 0e 0c 5c 22 | 83 39 00 0e 5c 6e 41 89 |.\n@..\"|.9..\nA.|
|00002080| 16 5c 6e 84 20 00 0e 5c | 6e 84 43 00 cd 20 88 ce |.\n. ..\|n.C.. ..|
|00002090| 87 cf 0e 5c 6e 40 21 88 | 0e 5c 6e 40 0e 0c 42 16 |...\n@!.|.\n@..B.|
|000020a0| 0c 0e 5c 6e 41 16 5c 6e | d0 87 22 20 5b 6f 6c 64 |..\nA.\n|.." [old|
|000020b0| 20 68 65 2d 69 6e 69 74 | 2d 73 74 72 69 6e 67 20 | he-init|-string |
|000020c0| 68 65 2d 64 61 62 62 72 | 65 76 2d 62 65 67 20 68 |he-dabbr|ev-beg h|
|000020d0| 65 2d 73 65 61 72 63 68 | 2d 73 74 72 69 6e 67 20 |e-search|-string |
|000020e0| 22 22 20 6d 61 70 63 61 | 72 20 23 5b 28 73 79 6d |"" mapca|r #[(sym|
|000020f0| 29 20 22 c0 09 c2 0b 21 | 5c 22 87 22 20 5b 61 62 |) "....!|\"." [ab|
|00002100| 62 72 65 76 2d 65 78 70 | 61 6e 73 69 6f 6e 20 68 |brev-exp|ansion h|
|00002110| 65 2d 73 65 61 72 63 68 | 2d 73 74 72 69 6e 67 20 |e-search|-string |
|00002120| 65 76 61 6c 20 73 79 6d | 5d 20 34 5d 20 61 70 70 |eval sym|] 4] app|
|00002130| 65 6e 64 20 28 6c 6f 63 | 61 6c 2d 61 62 62 72 65 |end (loc|al-abbre|
|00002140| 76 2d 74 61 62 6c 65 20 | 67 6c 6f 62 61 6c 2d 61 |v-table |global-a|
|00002150| 62 62 72 65 76 2d 74 61 | 62 6c 65 29 20 61 62 62 |bbrev-ta|ble) abb|
|00002160| 72 65 76 2d 74 61 62 6c | 65 2d 6e 61 6d 65 2d 6c |rev-tabl|e-name-l|
|00002170| 69 73 74 20 68 65 2d 65 | 78 70 61 6e 64 2d 6c 69 |ist he-e|xpand-li|
|00002180| 73 74 20 68 65 2d 73 74 | 72 69 6e 67 2d 6d 65 6d |st he-st|ring-mem|
|00002190| 62 65 72 20 68 65 2d 74 | 72 69 65 64 2d 74 61 62 |ber he-t|ried-tab|
|000021a0| 6c 65 20 68 65 2d 72 65 | 73 65 74 2d 73 74 72 69 |le he-re|set-stri|
|000021b0| 6e 67 20 6e 69 6c 20 68 | 65 2d 73 75 62 73 74 69 |ng nil h|e-substi|
|000021c0| 74 75 74 65 2d 73 74 72 | 69 6e 67 20 74 5d 20 36 |tute-str|ing t] 6|
|000021d0| 20 22 5c 0a 54 72 79 20 | 74 6f 20 65 78 70 61 6e | "\.Try |to expan|
|000021e0| 64 20 77 6f 72 64 20 62 | 65 66 6f 72 65 20 70 6f |d word b|efore po|
|000021f0| 69 6e 74 20 61 63 63 6f | 72 64 69 6e 67 20 74 6f |int acco|rding to|
|00002200| 20 61 6c 6c 20 61 62 62 | 72 65 76 20 74 61 62 6c | all abb|rev tabl|
|00002210| 65 73 2e 0a 54 68 65 20 | 61 72 67 75 6d 65 6e 74 |es..The |argument|
|00002220| 20 4f 4c 44 20 68 61 73 | 20 74 6f 20 62 65 20 6e | OLD has| to be n|
|00002230| 69 6c 20 74 68 65 20 66 | 69 72 73 74 20 63 61 6c |il the f|irst cal|
|00002240| 6c 20 6f 66 20 74 68 69 | 73 20 66 75 6e 63 74 69 |l of thi|s functi|
|00002250| 6f 6e 2c 20 61 6e 64 20 | 74 0a 66 6f 72 20 73 75 |on, and |t.for su|
|00002260| 62 73 65 71 75 65 6e 74 | 20 63 61 6c 6c 73 20 28 |bsequent| calls (|
|00002270| 66 6f 72 20 66 75 72 74 | 68 65 72 20 70 6f 73 73 |for furt|her poss|
|00002280| 69 62 6c 65 20 65 78 70 | 61 6e 73 69 6f 6e 73 20 |ible exp|ansions |
|00002290| 6f 66 20 74 68 65 20 73 | 61 6d 65 0a 73 74 72 69 |of the s|ame.stri|
|000022a0| 6e 67 29 2e 20 20 49 74 | 20 72 65 74 75 72 6e 73 |ng).  It| returns|
|000022b0| 20 74 20 69 66 20 61 20 | 6e 65 77 20 65 78 70 61 | t if a |new expa|
|000022c0| 6e 73 69 6f 6e 20 69 73 | 20 66 6f 75 6e 64 2c 20 |nsion is| found, |
|000022d0| 6e 69 6c 20 6f 74 68 65 | 72 77 69 73 65 2e 22 5d |nil othe|rwise."]|
|000022e0| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 74 72 79 |).(defal|ias 'try|
|000022f0| 2d 65 78 70 61 6e 64 2d | 64 61 62 62 72 65 76 20 |-expand-|dabbrev |
|00002300| 23 5b 28 6f 6c 64 29 20 | 22 c0 19 5c 6e 84 12 00 |#[(old) |"..\n...|
|00002310| c3 c4 20 60 5c 22 88 0d | 16 06 c7 16 08 0e 09 ca |.. `\"..|........|
|00002320| 9a 84 4b 00 8a 0e 08 83 | 38 00 0e 06 62 88 cb 0e |..K.....|8...b...|
|00002330| 09 c7 5c 22 11 cc 20 16 | 06 09 84 38 00 0e 0d 16 |..\".. .|...8....|
|00002340| 06 c0 16 08 09 84 4a 00 | 0e 06 62 88 cb 0e 09 c0 |......J.|..b.....|
|00002350| 5c 22 11 cc 20 16 06 29 | 09 84 56 00 ce 20 88 c0 |\".. ..)|..V.. ..|
|00002360| 82 62 00 cf 09 c7 5c 22 | 88 09 0e 10 42 16 10 c7 |.b....\"|....B...|
|00002370| 29 87 22 20 5b 6e 69 6c | 20 65 78 70 61 6e 73 69 |)." [nil| expansi|
|00002380| 6f 6e 20 6f 6c 64 20 68 | 65 2d 69 6e 69 74 2d 73 |on old h|e-init-s|
|00002390| 74 72 69 6e 67 20 68 65 | 2d 64 61 62 62 72 65 76 |tring he|-dabbrev|
|000023a0| 2d 62 65 67 20 68 65 2d | 73 74 72 69 6e 67 2d 62 |-beg he-|string-b|
|000023b0| 65 67 20 68 65 2d 73 65 | 61 72 63 68 2d 6c 6f 63 |eg he-se|arch-loc|
|000023c0| 20 74 20 68 65 2d 73 65 | 61 72 63 68 2d 62 77 20 | t he-se|arch-bw |
|000023d0| 68 65 2d 73 65 61 72 63 | 68 2d 73 74 72 69 6e 67 |he-searc|h-string|
|000023e0| 20 22 22 20 68 65 2d 64 | 61 62 2d 73 65 61 72 63 | "" he-d|ab-searc|
|000023f0| 68 20 70 6f 69 6e 74 2d | 6d 61 72 6b 65 72 20 68 |h point-|marker h|
|00002400| 65 2d 73 74 72 69 6e 67 | 2d 65 6e 64 20 68 65 2d |e-string|-end he-|
|00002410| 72 65 73 65 74 2d 73 74 | 72 69 6e 67 20 68 65 2d |reset-st|ring he-|
|00002420| 73 75 62 73 74 69 74 75 | 74 65 2d 73 74 72 69 6e |substitu|te-strin|
|00002430| 67 20 68 65 2d 74 72 69 | 65 64 2d 74 61 62 6c 65 |g he-tri|ed-table|
|00002440| 5d 20 33 20 22 5c 0a 54 | 72 79 20 74 6f 20 65 78 |] 3 "\.T|ry to ex|
|00002450| 70 61 6e 64 20 77 6f 72 | 64 20 5c 22 64 79 6e 61 |pand wor|d \"dyna|
|00002460| 6d 69 63 61 6c 6c 79 5c | 22 2c 20 73 65 61 72 63 |mically\|", searc|
|00002470| 68 69 6e 67 20 74 68 65 | 20 63 75 72 72 65 6e 74 |hing the| current|
|00002480| 20 62 75 66 66 65 72 2e | 0a 54 68 65 20 61 72 67 | buffer.|.The arg|
|00002490| 75 6d 65 6e 74 20 4f 4c | 44 20 68 61 73 20 74 6f |ument OL|D has to|
|000024a0| 20 62 65 20 6e 69 6c 20 | 74 68 65 20 66 69 72 73 | be nil |the firs|
|000024b0| 74 20 63 61 6c 6c 20 6f | 66 20 74 68 69 73 20 66 |t call o|f this f|
|000024c0| 75 6e 63 74 69 6f 6e 2c | 20 61 6e 64 20 74 0a 66 |unction,| and t.f|
|000024d0| 6f 72 20 73 75 62 73 65 | 71 75 65 6e 74 20 63 61 |or subse|quent ca|
|000024e0| 6c 6c 73 20 28 66 6f 72 | 20 66 75 72 74 68 65 72 |lls (for| further|
|000024f0| 20 70 6f 73 73 69 62 6c | 65 20 65 78 70 61 6e 73 | possibl|e expans|
|00002500| 69 6f 6e 73 20 6f 66 20 | 74 68 65 20 73 61 6d 65 |ions of |the same|
|00002510| 0a 73 74 72 69 6e 67 29 | 2e 20 20 49 74 20 72 65 |.string)|.  It re|
|00002520| 74 75 72 6e 73 20 74 20 | 69 66 20 61 20 6e 65 77 |turns t |if a new|
|00002530| 20 65 78 70 61 6e 73 69 | 6f 6e 20 69 73 20 66 6f | expansi|on is fo|
|00002540| 75 6e 64 2c 20 6e 69 6c | 20 6f 74 68 65 72 77 69 |und, nil| otherwi|
|00002550| 73 65 2e 22 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |se."]).(|defalias|
|00002560| 20 27 74 72 79 2d 65 78 | 70 61 6e 64 2d 64 61 62 | 'try-ex|pand-dab|
|00002570| 62 72 65 76 2d 61 6c 6c | 2d 62 75 66 66 65 72 73 |brev-all|-buffers|
|00002580| 20 23 5b 28 6f 6c 64 29 | 20 22 c0 70 19 1a 0b 84 | #[(old)| ".p....|
|00002590| 15 00 c4 c5 20 60 5c 22 | 88 c6 16 07 c8 20 16 09 |.... `\"|..... ..|
|000025a0| 0e 5c 6e cb 9a 84 60 00 | 0e 09 83 60 00 5c 6e 84 |.\n...`.|...`.\n.|
|000025b0| 60 00 0e 09 40 71 88 70 | 09 3d 84 47 00 0e 0c cd |`...@q.p|.=.G....|
|000025c0| 3d 84 47 00 8a 0e 07 62 | 88 ce 0e 5c 6e c0 5c 22 |=.G....b|...\n.\"|
|000025d0| 12 cf 20 16 07 29 5c 6e | 83 54 00 5c 6e 0e 10 42 |.. ..)\n|.T.\n..B|
|000025e0| 16 10 82 1c 00 c6 16 07 | 0e 09 41 89 16 09 84 21 |........|..A....!|
|000025f0| 00 09 71 88 5c 6e 84 6e | 00 d1 20 88 c0 82 74 00 |..q.\n.n|.. ...t.|
|00002600| d2 5c 6e d3 5c 22 88 d3 | 2a 87 22 20 5b 6e 69 6c |.\n.\"..|*." [nil|
|00002610| 20 62 75 66 20 65 78 70 | 61 6e 73 69 6f 6e 20 6f | buf exp|ansion o|
|00002620| 6c 64 20 68 65 2d 69 6e | 69 74 2d 73 74 72 69 6e |ld he-in|it-strin|
|00002630| 67 20 68 65 2d 64 61 62 | 62 72 65 76 2d 62 65 67 |g he-dab|brev-beg|
|00002640| 20 30 20 68 65 2d 73 65 | 61 72 63 68 2d 6c 6f 63 | 0 he-se|arch-loc|
|00002650| 20 62 75 66 66 65 72 2d | 6c 69 73 74 20 68 65 2d | buffer-|list he-|
|00002660| 73 65 61 72 63 68 2d 62 | 75 66 73 20 68 65 2d 73 |search-b|ufs he-s|
|00002670| 65 61 72 63 68 2d 73 74 | 72 69 6e 67 20 22 22 20 |earch-st|ring "" |
|00002680| 6d 61 6a 6f 72 2d 6d 6f | 64 65 20 64 69 72 65 64 |major-mo|de dired|
|00002690| 2d 6d 6f 64 65 20 68 65 | 2d 64 61 62 2d 73 65 61 |-mode he|-dab-sea|
|000026a0| 72 63 68 20 70 6f 69 6e | 74 2d 6d 61 72 6b 65 72 |rch poin|t-marker|
|000026b0| 20 68 65 2d 74 72 69 65 | 64 2d 74 61 62 6c 65 20 | he-trie|d-table |
|000026c0| 68 65 2d 72 65 73 65 74 | 2d 73 74 72 69 6e 67 20 |he-reset|-string |
|000026d0| 68 65 2d 73 75 62 73 74 | 69 74 75 74 65 2d 73 74 |he-subst|itute-st|
|000026e0| 72 69 6e 67 20 74 5d 20 | 34 20 22 5c 0a 54 72 69 |ring t] |4 "\.Tri|
|000026f0| 65 73 20 74 6f 20 65 78 | 70 61 6e 64 20 77 6f 72 |es to ex|pand wor|
|00002700| 64 20 5c 22 64 79 6e 61 | 6d 69 63 61 6c 6c 79 5c |d \"dyna|mically\|
|00002710| 22 2c 20 73 65 61 72 63 | 68 69 6e 67 20 61 6c 6c |", searc|hing all|
|00002720| 20 6f 74 68 65 72 20 62 | 75 66 66 65 72 73 2e 0a | other b|uffers..|
|00002730| 54 68 65 20 61 72 67 75 | 6d 65 6e 74 20 4f 4c 44 |The argu|ment OLD|
|00002740| 20 68 61 73 20 74 6f 20 | 62 65 20 6e 69 6c 20 74 | has to |be nil t|
|00002750| 68 65 20 66 69 72 73 74 | 20 63 61 6c 6c 20 6f 66 |he first| call of|
|00002760| 20 74 68 69 73 20 66 75 | 6e 63 74 69 6f 6e 2c 20 | this fu|nction, |
|00002770| 61 6e 64 20 74 0a 66 6f | 72 20 73 75 62 73 65 71 |and t.fo|r subseq|
|00002780| 75 65 6e 74 20 63 61 6c | 6c 73 20 28 66 6f 72 20 |uent cal|ls (for |
|00002790| 66 75 72 74 68 65 72 20 | 70 6f 73 73 69 62 6c 65 |further |possible|
|000027a0| 20 65 78 70 61 6e 73 69 | 6f 6e 73 20 6f 66 20 74 | expansi|ons of t|
|000027b0| 68 65 20 73 61 6d 65 0a | 73 74 72 69 6e 67 29 2e |he same.|string).|
|000027c0| 20 20 49 74 20 72 65 74 | 75 72 6e 73 20 74 20 69 |  It ret|urns t i|
|000027d0| 66 20 61 20 6e 65 77 20 | 65 78 70 61 6e 73 69 6f |f a new |expansio|
|000027e0| 6e 20 69 73 20 66 6f 75 | 6e 64 2c 20 6e 69 6c 20 |n is fou|nd, nil |
|000027f0| 6f 74 68 65 72 77 69 73 | 65 2e 22 5d 29 0a 28 62 |otherwis|e."]).(b|
|00002800| 79 74 65 2d 63 6f 64 65 | 20 22 c0 c1 c2 5c 22 88 |yte-code| "...\".|
|00002810| c0 c3 c4 5c 22 88 c0 c5 | c6 5c 22 87 22 20 5b 64 |...\"...|.\"." [d|
|00002820| 65 66 61 6c 69 61 73 20 | 68 65 2d 64 61 62 2d 73 |efalias |he-dab-s|
|00002830| 65 61 72 63 68 2d 72 65 | 67 65 78 70 20 23 5b 28 |earch-re|gexp #[(|
|00002840| 70 61 74 29 20 22 c0 c1 | 5c 6e 21 c3 51 87 22 20 |pat) "..|\n!.Q." |
|00002850| 5b 22 5c 5c 62 22 20 72 | 65 67 65 78 70 2d 71 75 |["\\b" r|egexp-qu|
|00002860| 6f 74 65 20 70 61 74 20 | 22 5c 5c 28 5c 5c 73 77 |ote pat |"\\(\\sw|
|00002870| 5c 5c 7c 5c 5c 73 5f 5c | 5c 29 2b 22 5d 20 33 5d |\\|\\s_\|\)+"] 3]|
|00002880| 20 68 65 2d 64 61 62 2d | 73 65 61 72 63 68 20 23 | he-dab-|search #|
|00002890| 5b 28 70 61 74 74 65 72 | 6e 20 72 65 76 65 72 73 |[(patter|n revers|
|000028a0| 65 29 20 22 c0 19 09 84 | 32 00 5c 6e 83 14 00 c3 |e) "....|2.\n....|
|000028b0| c4 0d 21 c0 c6 23 82 1b | 00 c7 c4 0d 21 c0 c6 23 |..!..#..|....!..#|
|000028c0| 83 32 00 c8 94 c8 95 7b | 11 c9 09 0e 5c 6e 5c 22 |.2.....{|....\n\"|
|000028d0| 83 02 00 c0 89 11 83 06 | 00 09 29 87 22 20 5b 6e |........|..)." [n|
|000028e0| 69 6c 20 72 65 73 75 6c | 74 20 72 65 76 65 72 73 |il resul|t revers|
|000028f0| 65 20 72 65 2d 73 65 61 | 72 63 68 2d 62 61 63 6b |e re-sea|rch-back|
|00002900| 77 61 72 64 20 68 65 2d | 64 61 62 2d 73 65 61 72 |ward he-|dab-sear|
|00002910| 63 68 2d 72 65 67 65 78 | 70 20 70 61 74 74 65 72 |ch-regex|p patter|
|00002920| 6e 20 74 20 72 65 2d 73 | 65 61 72 63 68 2d 66 6f |n t re-s|earch-fo|
|00002930| 72 77 61 72 64 20 30 20 | 68 65 2d 73 74 72 69 6e |rward 0 |he-strin|
|00002940| 67 2d 6d 65 6d 62 65 72 | 20 68 65 2d 74 72 69 65 |g-member| he-trie|
|00002950| 64 2d 74 61 62 6c 65 5d | 20 35 5d 20 68 65 2d 64 |d-table]| 5] he-d|
|00002960| 61 62 62 72 65 76 2d 62 | 65 67 20 23 5b 6e 69 6c |abbrev-b|eg #[nil|
|00002970| 20 22 c0 19 8a 09 c2 78 | 88 c3 c2 77 88 60 2a 87 | ".....x|...w.`*.|
|00002980| 22 20 5b 22 2d 61 2d 7a | 41 2d 5a 30 2d 39 5f 2e |" ["-a-z|A-Z0-9_.|
|00002990| 22 20 73 6b 69 70 73 20 | 6e 69 6c 20 22 2d 5f 2e |" skips |nil "-_.|
|000029a0| 22 5d 20 32 5d 5d 20 33 | 29 0a                   |"] 2]] 3|).      |
+--------+-------------------------+-------------------------+--------+--------+