/ BCI NET 2 / BCI NET 2.iso / archives / programming / source / a2.0bemacs-src.lha / Emacs-19.25 / lisp / tempo.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 33 34 20 | 31 39 39 34 0a 3b 3b 3b |0:13:34 |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 74 65 6d 70 6f | 2e 65 6c 0a 3b 3b 3b 20 |sp/tempo|.el.;;; |
|00000080| 65 6d 61 63 73 20 76 65 | 72 73 69 6f 6e 20 31 39 |emacs ve|rsion 19|
|00000090| 2e 32 32 2e 39 33 2e 33 | 2e 0a 3b 3b 3b 20 62 79 |.22.93.3|..;;; by|
|000000a0| 74 65 63 6f 6d 70 20 76 | 65 72 73 69 6f 6e 20 46 |tecomp v|ersion F|
|000000b0| 53 46 20 32 2e 31 30 0a | 3b 3b 3b 20 6f 70 74 69 |SF 2.10.|;;; opti|
|000000c0| 6d 69 7a 61 74 69 6f 6e | 20 69 73 20 6f 6e 2e 0a |mization| is on..|
|000000d0| 3b 3b 3b 20 74 68 69 73 | 20 66 69 6c 65 20 75 73 |;;; this| file us|
|000000e0| 65 73 20 6f 70 63 6f 64 | 65 73 20 77 68 69 63 68 |es opcod|es which|
|000000f0| 20 64 6f 20 6e 6f 74 20 | 65 78 69 73 74 20 69 6e | do not |exist in|
|00000100| 20 45 6d 61 63 73 20 31 | 38 2e 0a 0a 28 69 66 20 | Emacs 1|8...(if |
|00000110| 28 61 6e 64 20 28 62 6f | 75 6e 64 70 20 27 65 6d |(and (bo|undp 'em|
|00000120| 61 63 73 2d 76 65 72 73 | 69 6f 6e 29 0a 09 20 28 |acs-vers|ion).. (|
|00000130| 6f 72 20 28 61 6e 64 20 | 28 62 6f 75 6e 64 70 20 |or (and |(boundp |
|00000140| 27 65 70 6f 63 68 3a 3a | 76 65 72 73 69 6f 6e 29 |'epoch::|version)|
|00000150| 20 65 70 6f 63 68 3a 3a | 76 65 72 73 69 6f 6e 29 | epoch::|version)|
|00000160| 0a 09 20 20 20 20 20 28 | 73 74 72 69 6e 67 2d 6c |..     (|string-l|
|00000170| 65 73 73 70 20 65 6d 61 | 63 73 2d 76 65 72 73 69 |essp ema|cs-versi|
|00000180| 6f 6e 20 22 31 39 22 29 | 29 29 0a 20 20 20 20 28 |on "19")|)).    (|
|00000190| 65 72 72 6f 72 20 22 60 | 2f 67 64 2f 67 6e 75 2f |error "`|/gd/gnu/|
|000001a0| 65 6d 61 63 73 2f 31 39 | 2e 30 2f 6c 69 73 70 2f |emacs/19|.0/lisp/|
|000001b0| 74 65 6d 70 6f 2e 65 6c | 27 20 77 61 73 20 63 6f |tempo.el|' was co|
|000001c0| 6d 70 69 6c 65 64 20 66 | 6f 72 20 45 6d 61 63 73 |mpiled f|or Emacs|
|000001d0| 20 31 39 22 29 29 0a 0a | 28 70 72 6f 76 69 64 65 | 19"))..|(provide|
|000001e0| 20 28 71 75 6f 74 65 20 | 74 65 6d 70 6f 29 29 0a | (quote |tempo)).|
|000001f0| 28 64 65 66 76 61 72 20 | 74 65 6d 70 6f 2d 69 6e |(defvar |tempo-in|
|00000200| 74 65 72 61 63 74 69 76 | 65 20 6e 69 6c 20 22 5c |teractiv|e nil "\|
|00000210| 0a 2a 50 72 6f 6d 70 74 | 20 75 73 65 72 20 66 6f |.*Prompt| user fo|
|00000220| 72 20 73 74 72 69 6e 67 | 73 20 69 6e 20 74 65 6d |r string|s in tem|
|00000230| 70 6c 61 74 65 73 2e 0a | 49 66 20 74 68 69 73 20 |plates..|If this |
|00000240| 76 61 72 69 61 62 6c 65 | 20 69 73 20 6e 6f 6e 2d |variable| is non-|
|00000250| 6e 69 6c 2c 20 60 74 65 | 6d 70 6f 2d 69 6e 73 65 |nil, `te|mpo-inse|
|00000260| 72 74 27 20 70 72 6f 6d | 70 74 73 20 74 68 65 0a |rt' prom|pts the.|
|00000270| 75 73 65 72 20 66 6f 72 | 20 74 65 78 74 20 74 6f |user for| text to|
|00000280| 20 69 6e 73 65 72 74 20 | 69 6e 20 74 68 65 20 74 | insert |in the t|
|00000290| 65 6d 70 6c 61 74 65 73 | 22 29 0a 28 64 65 66 76 |emplates|").(defv|
|000002a0| 61 72 20 74 65 6d 70 6f | 2d 69 6e 73 65 72 74 2d |ar tempo|-insert-|
|000002b0| 72 65 67 69 6f 6e 20 6e | 69 6c 20 22 5c 0a 2a 41 |region n|il "\.*A|
|000002c0| 75 74 6f 6d 61 74 69 63 | 61 6c 6c 79 20 69 6e 73 |utomatic|ally ins|
|000002d0| 65 72 74 20 63 75 72 72 | 65 6e 74 20 72 65 67 69 |ert curr|ent regi|
|000002e0| 6f 6e 20 77 68 65 6e 20 | 74 68 65 72 65 20 69 73 |on when |there is|
|000002f0| 20 61 20 60 72 27 20 69 | 6e 20 74 68 65 20 74 65 | a `r' i|n the te|
|00000300| 6d 70 6c 61 74 65 0a 49 | 66 20 74 68 69 73 20 76 |mplate.I|f this v|
|00000310| 61 72 69 61 62 6c 65 20 | 69 73 20 4e 49 4c 2c 20 |ariable |is NIL, |
|00000320| 60 72 27 20 65 6c 65 6d | 65 6e 74 73 20 77 69 6c |`r' elem|ents wil|
|00000330| 6c 20 62 65 20 74 72 65 | 61 74 65 64 20 6a 75 73 |l be tre|ated jus|
|00000340| 74 20 6c 69 6b 65 20 60 | 70 27 0a 65 6c 65 6d 65 |t like `|p'.eleme|
|00000350| 6e 74 73 2c 20 75 6e 6c | 65 73 73 20 74 68 65 20 |nts, unl|ess the |
|00000360| 74 65 6d 70 6c 61 74 65 | 20 66 75 6e 63 74 69 6f |template| functio|
|00000370| 6e 20 69 73 20 67 69 76 | 65 6e 20 61 20 70 72 65 |n is giv|en a pre|
|00000380| 66 69 78 20 28 6f 72 20 | 61 20 6e 6f 6e 2d 6e 69 |fix (or |a non-ni|
|00000390| 6c 0a 61 72 67 75 6d 65 | 6e 74 29 2e 20 49 66 20 |l.argume|nt). If |
|000003a0| 74 68 69 73 20 76 61 72 | 69 61 62 6c 65 20 69 73 |this var|iable is|
|000003b0| 20 6e 6f 6e 2d 4e 49 4c | 2c 20 74 68 65 20 62 65 | non-NIL|, the be|
|000003c0| 68 61 76 69 6f 75 72 20 | 69 73 20 72 65 76 65 72 |haviour |is rever|
|000003d0| 73 65 64 2e 22 29 0a 28 | 64 65 66 76 61 72 20 74 |sed.").(|defvar t|
|000003e0| 65 6d 70 6f 2d 73 68 6f | 77 2d 63 6f 6d 70 6c 65 |empo-sho|w-comple|
|000003f0| 74 69 6f 6e 2d 62 75 66 | 66 65 72 20 74 20 22 5c |tion-buf|fer t "\|
|00000400| 0a 2a 49 66 20 6e 6f 6e | 2d 4e 49 4c 2c 20 73 68 |.*If non|-NIL, sh|
|00000410| 6f 77 20 61 20 62 75 66 | 66 65 72 20 77 69 74 68 |ow a buf|fer with|
|00000420| 20 70 6f 73 73 69 62 6c | 65 20 63 6f 6d 70 6c 65 | possibl|e comple|
|00000430| 74 69 6f 6e 73 2c 20 77 | 68 65 6e 20 6f 6e 6c 79 |tions, w|hen only|
|00000440| 0a 61 20 70 61 72 74 69 | 61 6c 20 63 6f 6d 70 6c |.a parti|al compl|
|00000450| 65 74 69 6f 6e 20 63 61 | 6e 20 62 65 20 66 6f 75 |etion ca|n be fou|
|00000460| 6e 64 22 29 0a 28 64 65 | 66 76 61 72 20 74 65 6d |nd").(de|fvar tem|
|00000470| 70 6f 2d 6c 65 61 76 65 | 2d 63 6f 6d 70 6c 65 74 |po-leave|-complet|
|00000480| 69 6f 6e 2d 62 75 66 66 | 65 72 20 6e 69 6c 20 22 |ion-buff|er nil "|
|00000490| 5c 0a 2a 49 66 20 4e 49 | 4c 2c 20 61 20 63 6f 6d |\.*If NI|L, a com|
|000004a0| 70 6c 65 74 69 6f 6e 20 | 62 75 66 66 65 72 20 67 |pletion |buffer g|
|000004b0| 65 6e 65 72 61 74 65 64 | 20 62 79 20 5c 5c 5b 74 |enerated| by \\[t|
|000004c0| 65 6d 70 6f 2d 63 6f 6d | 70 6c 65 74 65 2d 74 61 |empo-com|plete-ta|
|000004d0| 67 5d 0a 64 69 73 61 70 | 70 65 61 72 73 20 61 74 |g].disap|pears at|
|000004e0| 20 74 68 65 20 6e 65 78 | 74 20 6b 65 79 70 72 65 | the nex|t keypre|
|000004f0| 73 73 3b 20 6f 74 68 65 | 72 77 69 73 65 2c 20 69 |ss; othe|rwise, i|
|00000500| 74 20 72 65 6d 61 69 6e | 73 20 66 6f 72 65 76 65 |t remain|s foreve|
|00000510| 72 2e 22 29 0a 28 64 65 | 66 76 61 72 20 74 65 6d |r.").(de|fvar tem|
|00000520| 70 6f 2d 69 6e 73 65 72 | 74 2d 73 74 72 69 6e 67 |po-inser|t-string|
|00000530| 2d 66 75 6e 63 74 69 6f | 6e 73 20 6e 69 6c 20 22 |-functio|ns nil "|
|00000540| 5c 0a 4c 69 73 74 20 6f | 66 20 66 75 6e 63 74 69 |\.List o|f functi|
|00000550| 6f 6e 73 20 74 6f 20 72 | 75 6e 20 77 68 65 6e 20 |ons to r|un when |
|00000560| 69 6e 73 65 72 74 69 6e | 67 20 61 20 73 74 72 69 |insertin|g a stri|
|00000570| 6e 67 2e 0a 45 61 63 68 | 20 66 75 6e 63 74 69 6f |ng..Each| functio|
|00000580| 6e 20 69 73 20 63 61 6c | 6c 65 64 20 77 69 74 68 |n is cal|led with|
|00000590| 20 61 20 73 69 6e 67 6c | 65 20 61 72 67 2c 20 53 | a singl|e arg, S|
|000005a0| 54 52 49 4e 47 2e 22 29 | 0a 28 64 65 66 76 61 72 |TRING.")|.(defvar|
|000005b0| 20 74 65 6d 70 6f 2d 74 | 61 67 73 20 6e 69 6c 20 | tempo-t|ags nil |
|000005c0| 22 5c 0a 41 6e 20 61 73 | 73 6f 63 69 61 74 69 6f |"\.An as|sociatio|
|000005d0| 6e 20 6c 69 73 74 20 77 | 69 74 68 20 74 61 67 73 |n list w|ith tags|
|000005e0| 20 61 6e 64 20 63 6f 72 | 72 65 73 70 6f 6e 64 69 | and cor|respondi|
|000005f0| 6e 67 20 74 65 6d 70 6c | 61 74 65 73 22 29 0a 28 |ng templ|ates").(|
|00000600| 64 65 66 76 61 72 20 74 | 65 6d 70 6f 2d 6c 6f 63 |defvar t|empo-loc|
|00000610| 61 6c 2d 74 61 67 73 20 | 28 71 75 6f 74 65 20 28 |al-tags |(quote (|
|00000620| 28 74 65 6d 70 6f 2d 74 | 61 67 73 29 29 29 20 22 |(tempo-t|ags))) "|
|00000630| 5c 0a 41 20 6c 69 73 74 | 20 6f 66 20 6c 6f 63 61 |\.A list| of loca|
|00000640| 6c 6c 79 20 69 6e 73 74 | 61 6c 6c 65 64 20 74 61 |lly inst|alled ta|
|00000650| 67 20 63 6f 6d 70 6c 65 | 74 69 6f 6e 20 6c 69 73 |g comple|tion lis|
|00000660| 74 73 2e 0a 0a 49 74 20 | 69 73 20 61 20 61 73 73 |ts...It |is a ass|
|00000670| 6f 63 69 61 74 69 6f 6e | 20 6c 69 73 74 20 77 68 |ociation| list wh|
|00000680| 65 72 65 20 74 68 65 20 | 63 61 72 20 6f 66 20 65 |ere the |car of e|
|00000690| 76 65 72 79 20 65 6c 65 | 6d 65 6e 74 20 69 73 20 |very ele|ment is |
|000006a0| 61 20 73 79 6d 62 6f 6c | 0a 77 68 6f 73 65 20 76 |a symbol|.whose v|
|000006b0| 61 72 61 62 6c 65 20 76 | 61 6c 75 65 20 69 73 20 |arable v|alue is |
|000006c0| 61 20 74 65 6d 70 6c 61 | 74 65 20 6c 69 73 74 2e |a templa|te list.|
|000006d0| 20 54 68 65 20 63 64 72 | 20 70 61 72 74 2c 20 69 | The cdr| part, i|
|000006e0| 66 20 6e 6f 6e 2d 6e 69 | 6c 2c 20 69 73 20 61 0a |f non-ni|l, is a.|
|000006f0| 66 75 6e 63 74 69 6f 6e | 20 6f 72 20 61 20 72 65 |function| or a re|
|00000700| 67 65 78 70 20 74 68 61 | 74 20 64 65 66 69 6e 65 |gexp tha|t define|
|00000710| 73 20 74 68 65 20 73 74 | 72 69 6e 67 20 74 6f 20 |s the st|ring to |
|00000720| 6d 61 74 63 68 2e 20 53 | 65 65 20 74 68 65 0a 64 |match. S|ee the.d|
|00000730| 6f 63 75 6d 65 6e 74 61 | 74 69 6f 6e 20 66 6f 72 |ocumenta|tion for|
|00000740| 20 74 68 65 20 66 75 6e | 63 74 69 6f 6e 20 60 74 | the fun|ction `t|
|00000750| 65 6d 70 6f 2d 63 6f 6d | 70 6c 65 74 65 2d 74 61 |empo-com|plete-ta|
|00000760| 67 27 20 66 6f 72 20 6d | 6f 72 65 20 69 6e 66 6f |g' for m|ore info|
|00000770| 2e 0a 0a 60 74 65 6d 70 | 6f 2d 74 61 67 73 27 20 |...`temp|o-tags' |
|00000780| 69 73 20 61 6c 77 61 79 | 73 20 69 6e 20 74 68 65 |is alway|s in the|
|00000790| 20 6c 61 73 74 20 70 6f | 73 69 74 69 6f 6e 20 69 | last po|sition i|
|000007a0| 6e 20 74 68 69 73 20 6c | 69 73 74 2e 22 29 0a 28 |n this l|ist.").(|
|000007b0| 64 65 66 76 61 72 20 74 | 65 6d 70 6f 2d 6d 61 72 |defvar t|empo-mar|
|000007c0| 6b 73 20 6e 69 6c 20 22 | 5c 0a 41 20 6c 69 73 74 |ks nil "|\.A list|
|000007d0| 20 6f 66 20 6d 61 72 6b | 73 20 74 6f 20 6a 75 6d | of mark|s to jum|
|000007e0| 70 20 74 6f 20 77 69 74 | 68 20 60 5c 5c 5b 74 65 |p to wit|h `\\[te|
|000007f0| 6d 70 6f 2d 66 6f 72 77 | 61 72 64 2d 6d 61 72 6b |mpo-forw|ard-mark|
|00000800| 5d 27 20 61 6e 64 20 60 | 5c 5c 5b 74 65 6d 70 6f |]' and `|\\[tempo|
|00000810| 2d 62 61 63 6b 77 61 72 | 64 2d 6d 61 72 6b 5d 27 |-backwar|d-mark]'|
|00000820| 2e 22 29 0a 28 64 65 66 | 76 61 72 20 74 65 6d 70 |.").(def|var temp|
|00000830| 6f 2d 64 65 66 61 75 6c | 74 2d 6d 61 74 63 68 2d |o-defaul|t-match-|
|00000840| 66 69 6e 64 65 72 20 22 | 5c 5c 62 5c 5c 28 5b 5e |finder "|\\b\\([^|
|00000850| 5c 5c 62 5d 2a 5c 5c 29 | 5c 5c 3d 22 20 22 5c 0a |\\b]*\\)|\\=" "\.|
|00000860| 54 68 65 20 64 65 66 61 | 75 6c 74 20 72 65 67 65 |The defa|ult rege|
|00000870| 78 70 20 75 73 65 64 20 | 74 6f 20 66 69 6e 64 20 |xp used |to find |
|00000880| 74 68 65 20 73 74 72 69 | 6e 67 20 74 6f 20 6d 61 |the stri|ng to ma|
|00000890| 74 63 68 20 61 67 61 69 | 6e 73 74 20 74 68 65 20 |tch agai|nst the |
|000008a0| 74 61 67 73 2e 22 29 0a | 28 64 65 66 76 61 72 20 |tags.").|(defvar |
|000008b0| 74 65 6d 70 6f 2d 6e 61 | 6d 65 64 2d 69 6e 73 65 |tempo-na|med-inse|
|000008c0| 72 74 69 6f 6e 73 20 6e | 69 6c 20 22 5c 0a 54 65 |rtions n|il "\.Te|
|000008d0| 6d 70 6f 72 61 72 79 20 | 73 74 6f 72 61 67 65 20 |mporary |storage |
|000008e0| 66 6f 72 20 6e 61 6d 65 | 64 20 69 6e 73 65 72 74 |for name|d insert|
|000008f0| 69 6f 6e 73 22 29 0a 28 | 62 79 74 65 2d 63 6f 64 |ions").(|byte-cod|
|00000900| 65 20 22 c0 c1 21 88 c0 | c2 21 87 22 20 5b 6d 61 |e "..!..|.!." [ma|
|00000910| 6b 65 2d 76 61 72 69 61 | 62 6c 65 2d 62 75 66 66 |ke-varia|ble-buff|
|00000920| 65 72 2d 6c 6f 63 61 6c | 20 74 65 6d 70 6f 2d 6d |er-local| tempo-m|
|00000930| 61 72 6b 73 20 74 65 6d | 70 6f 2d 6c 6f 63 61 6c |arks tem|po-local|
|00000940| 2d 74 61 67 73 5d 20 32 | 29 0a 28 64 65 66 61 6c |-tags] 2|).(defal|
|00000950| 69 61 73 20 27 74 65 6d | 70 6f 2d 64 65 66 69 6e |ias 'tem|po-defin|
|00000960| 65 2d 74 65 6d 70 6c 61 | 74 65 20 23 5b 28 6e 61 |e-templa|te #[(na|
|00000970| 6d 65 20 65 6c 65 6d 65 | 6e 74 73 20 26 6f 70 74 |me eleme|nts &opt|
|00000980| 69 6f 6e 61 6c 20 74 61 | 67 20 64 6f 63 75 6d 65 |ional ta|g docume|
|00000990| 6e 74 61 74 69 6f 6e 20 | 74 61 67 6c 69 73 74 29 |ntation |taglist)|
|000009a0| 20 22 c0 c1 5c 6e 50 21 | 89 1b 1c 0b 0d 4c 88 5c | "..\nP!|.....L.\|
|000009b0| 66 c6 c7 c8 44 0e 09 86 | 1a 00 ca 5c 6e cb 51 cc |f...D...|...\n.Q.|
|000009c0| cd 44 ce cf 0b 44 d0 d1 | d2 c8 44 c8 46 45 af 05 |.D...D..|..D.FE..|
|000009d0| 4d 88 0e 13 83 3a 00 d4 | 0e 13 0b 0e 15 23 88 5c |M....:..|.....#.\|
|000009e0| 66 2a 87 22 20 5b 69 6e | 74 65 72 6e 20 22 74 65 |f*." [in|tern "te|
|000009f0| 6d 70 6f 2d 74 65 6d 70 | 6c 61 74 65 2d 22 20 6e |mpo-temp|late-" n|
|00000a00| 61 6d 65 20 74 65 6d 70 | 6c 61 74 65 2d 6e 61 6d |ame temp|late-nam|
|00000a10| 65 20 63 6f 6d 6d 61 6e | 64 2d 6e 61 6d 65 20 65 |e comman|d-name e|
|00000a20| 6c 65 6d 65 6e 74 73 20 | 6c 61 6d 62 64 61 20 26 |lements |lambda &|
|00000a30| 6f 70 74 69 6f 6e 61 6c | 20 61 72 67 20 64 6f 63 |optional| arg doc|
|00000a40| 75 6d 65 6e 74 61 74 69 | 6f 6e 20 22 49 6e 73 65 |umentati|on "Inse|
|00000a50| 72 74 20 61 20 22 20 22 | 2e 22 20 69 6e 74 65 72 |rt a " "|." inter|
|00000a60| 61 63 74 69 76 65 20 22 | 2a 50 22 20 74 65 6d 70 |active "|*P" temp|
|00000a70| 6f 2d 69 6e 73 65 72 74 | 2d 74 65 6d 70 6c 61 74 |o-insert|-templat|
|00000a80| 65 20 71 75 6f 74 65 20 | 69 66 20 74 65 6d 70 6f |e quote |if tempo|
|00000a90| 2d 69 6e 73 65 72 74 2d | 72 65 67 69 6f 6e 20 6e |-insert-|region n|
|00000aa0| 6f 74 20 74 61 67 20 74 | 65 6d 70 6f 2d 61 64 64 |ot tag t|empo-add|
|00000ab0| 2d 74 61 67 20 74 61 67 | 6c 69 73 74 5d 20 31 32 |-tag tag|list] 12|
|00000ac0| 20 22 5c 0a 44 65 66 69 | 6e 65 20 61 20 74 65 6d | "\.Defi|ne a tem|
|00000ad0| 70 6c 61 74 65 2e 0a 54 | 68 69 73 20 66 75 6e 63 |plate..T|his func|
|00000ae0| 74 69 6f 6e 20 63 72 65 | 61 74 65 73 20 61 20 74 |tion cre|ates a t|
|00000af0| 65 6d 70 6c 61 74 65 20 | 76 61 72 69 61 62 6c 65 |emplate |variable|
|00000b00| 20 60 74 65 6d 70 6f 2d | 74 65 6d 70 6c 61 74 65 | `tempo-|template|
|00000b10| 2d 4e 41 4d 45 27 20 61 | 6e 64 20 61 6e 0a 69 6e |-NAME' a|nd an.in|
|00000b20| 74 65 72 61 63 74 69 76 | 65 20 66 75 6e 63 74 69 |teractiv|e functi|
|00000b30| 6f 6e 20 60 74 65 6d 70 | 6f 2d 74 65 6d 70 6c 61 |on `temp|o-templa|
|00000b40| 74 65 2d 4e 41 4d 45 27 | 20 74 68 61 74 20 69 6e |te-NAME'| that in|
|00000b50| 73 65 72 74 73 20 74 68 | 65 20 74 65 6d 70 6c 61 |serts th|e templa|
|00000b60| 74 65 0a 61 74 20 74 68 | 65 20 70 6f 69 6e 74 2e |te.at th|e point.|
|00000b70| 20 20 54 68 65 20 63 72 | 65 61 74 65 64 20 66 75 |  The cr|eated fu|
|00000b80| 6e 63 74 69 6f 6e 20 69 | 73 20 72 65 74 75 72 6e |nction i|s return|
|00000b90| 65 64 2e 0a 0a 4e 41 4d | 45 20 69 73 20 61 20 73 |ed...NAM|E is a s|
|00000ba0| 74 72 69 6e 67 20 74 68 | 61 74 20 63 6f 6e 74 61 |tring th|at conta|
|00000bb0| 69 6e 73 20 74 68 65 20 | 6e 61 6d 65 20 6f 66 20 |ins the |name of |
|00000bc0| 74 68 65 20 74 65 6d 70 | 6c 61 74 65 2c 20 45 4c |the temp|late, EL|
|00000bd0| 45 4d 45 4e 54 53 20 69 | 73 20 61 0a 6c 69 73 74 |EMENTS i|s a.list|
|00000be0| 20 6f 66 20 65 6c 65 6d | 65 6e 74 73 20 69 6e 20 | of elem|ents in |
|00000bf0| 74 68 65 20 74 65 6d 70 | 6c 61 74 65 2c 20 54 41 |the temp|late, TA|
|00000c00| 47 20 69 73 20 74 68 65 | 20 74 61 67 20 75 73 65 |G is the| tag use|
|00000c10| 64 20 66 6f 72 20 63 6f | 6d 70 6c 65 74 69 6f 6e |d for co|mpletion|
|00000c20| 2c 0a 44 4f 43 55 4d 45 | 4e 54 41 54 49 4f 4e 20 |,.DOCUME|NTATION |
|00000c30| 69 73 20 74 68 65 20 64 | 6f 63 75 6d 65 6e 74 61 |is the d|ocumenta|
|00000c40| 74 69 6f 6e 20 73 74 72 | 69 6e 67 20 66 6f 72 20 |tion str|ing for |
|00000c50| 74 68 65 20 69 6e 73 65 | 72 74 69 6f 6e 20 63 6f |the inse|rtion co|
|00000c60| 6d 6d 61 6e 64 0a 63 72 | 65 61 74 65 64 2c 20 61 |mmand.cr|eated, a|
|00000c70| 6e 64 20 54 41 47 4c 49 | 53 54 20 28 61 20 73 79 |nd TAGLI|ST (a sy|
|00000c80| 6d 62 6f 6c 29 20 69 73 | 20 74 68 65 20 74 61 67 |mbol) is| the tag|
|00000c90| 20 6c 69 73 74 20 74 68 | 61 74 20 54 41 47 20 28 | list th|at TAG (|
|00000ca0| 69 66 20 70 72 6f 76 69 | 64 65 64 29 0a 73 68 6f |if provi|ded).sho|
|00000cb0| 75 6c 64 20 62 65 20 61 | 64 64 65 64 20 74 6f 29 |uld be a|dded to)|
|00000cc0| 2e 20 20 49 66 20 54 41 | 47 4c 49 53 54 20 69 73 |.  If TA|GLIST is|
|00000cd0| 20 6e 69 6c 20 61 6e 64 | 20 54 41 47 20 69 73 20 | nil and| TAG is |
|00000ce0| 6e 6f 6e 2d 6e 69 6c 2c | 20 54 41 47 20 69 73 0a |non-nil,| TAG is.|
|00000cf0| 61 64 64 65 64 20 74 6f | 20 60 74 65 6d 70 6f 2d |added to| `tempo-|
|00000d00| 74 61 67 73 27 0a 0a 54 | 68 65 20 65 6c 65 6d 65 |tags'..T|he eleme|
|00000d10| 6e 74 73 20 69 6e 20 45 | 4c 45 4d 45 4e 54 53 20 |nts in E|LEMENTS |
|00000d20| 63 61 6e 20 62 65 20 6f | 66 20 73 65 76 65 72 61 |can be o|f severa|
|00000d30| 6c 20 74 79 70 65 73 3a | 0a 0a 20 2d 20 41 20 73 |l types:|.. - A s|
|00000d40| 74 72 69 6e 67 2e 20 49 | 74 20 69 73 20 73 65 6e |tring. I|t is sen|
|00000d50| 74 20 74 6f 20 74 68 65 | 20 68 6f 6f 6b 73 20 69 |t to the| hooks i|
|00000d60| 6e 20 60 74 65 6d 70 6f | 2d 69 6e 73 65 72 74 2d |n `tempo|-insert-|
|00000d70| 73 74 72 69 6e 67 2d 66 | 75 6e 63 74 69 6f 6e 73 |string-f|unctions|
|00000d80| 27 2c 0a 20 20 20 61 6e | 64 20 74 68 65 20 72 65 |',.   an|d the re|
|00000d90| 73 75 6c 74 20 69 73 20 | 69 6e 73 65 72 74 65 64 |sult is |inserted|
|00000da0| 2e 0a 20 2d 20 54 68 65 | 20 73 79 6d 62 6f 6c 20 |.. - The| symbol |
|00000db0| 27 70 2e 20 54 68 69 73 | 20 70 6f 73 69 74 69 6f |'p. This| positio|
|00000dc0| 6e 20 69 73 20 73 61 76 | 65 64 20 69 6e 20 60 74 |n is sav|ed in `t|
|00000dd0| 65 6d 70 6f 2d 6d 61 72 | 6b 73 27 2e 0a 20 2d 20 |empo-mar|ks'.. - |
|00000de0| 54 68 65 20 73 79 6d 62 | 6f 6c 20 27 72 2e 20 49 |The symb|ol 'r. I|
|00000df0| 66 20 60 74 65 6d 70 6f | 2d 69 6e 73 65 72 74 27 |f `tempo|-insert'|
|00000e00| 20 69 73 20 63 61 6c 6c | 65 64 20 77 69 74 68 20 | is call|ed with |
|00000e10| 4f 4e 2d 52 45 47 49 4f | 4e 20 6e 6f 6e 2d 6e 69 |ON-REGIO|N non-ni|
|00000e20| 6c 0a 20 20 20 74 68 65 | 20 63 75 72 72 65 6e 74 |l.   the| current|
|00000e30| 20 72 65 67 69 6f 6e 20 | 69 73 20 70 6c 61 63 65 | region |is place|
|00000e40| 64 20 68 65 72 65 2e 20 | 4f 74 68 65 72 77 69 73 |d here. |Otherwis|
|00000e50| 65 20 69 74 20 77 6f 72 | 6b 73 20 6c 69 6b 65 20 |e it wor|ks like |
|00000e60| 27 70 2e 0a 20 2d 20 28 | 70 20 50 52 4f 4d 50 54 |'p.. - (|p PROMPT|
|00000e70| 20 3c 4e 41 4d 45 3e 29 | 20 49 66 20 60 74 65 6d | <NAME>)| If `tem|
|00000e80| 70 6f 2d 69 6e 74 65 72 | 61 63 74 69 76 65 27 20 |po-inter|active' |
|00000e90| 69 73 20 6e 6f 6e 2d 6e | 69 6c 2c 20 74 68 65 20 |is non-n|il, the |
|00000ea0| 75 73 65 72 20 69 73 0a | 20 20 20 70 72 6f 6d 70 |user is.|   promp|
|00000eb0| 74 65 64 20 69 6e 20 74 | 68 65 20 6d 69 6e 62 75 |ted in t|he minbu|
|00000ec0| 66 66 65 72 20 77 69 74 | 68 20 50 52 4f 4d 50 54 |ffer wit|h PROMPT|
|00000ed0| 20 66 6f 72 20 61 20 73 | 74 72 69 6e 67 20 74 6f | for a s|tring to|
|00000ee0| 20 62 65 20 69 6e 73 65 | 72 74 65 64 2e 0a 20 20 | be inse|rted..  |
|00000ef0| 20 49 66 20 74 68 65 20 | 6f 70 74 69 6f 6e 61 6c | If the |optional|
|00000f00| 20 70 61 72 61 6d 65 74 | 65 72 20 4e 41 4d 45 20 | paramet|er NAME |
|00000f10| 69 73 20 6e 6f 6e 2d 6e | 69 6c 2c 20 74 68 65 20 |is non-n|il, the |
|00000f20| 74 65 78 74 20 69 73 20 | 73 61 76 65 64 20 66 6f |text is |saved fo|
|00000f30| 72 0a 20 20 20 6c 61 74 | 65 72 20 69 6e 73 65 72 |r.   lat|er inser|
|00000f40| 74 69 6f 6e 20 77 69 74 | 68 20 74 68 65 20 60 73 |tion wit|h the `s|
|00000f50| 27 20 74 61 67 2e 0a 20 | 20 20 49 66 20 60 74 65 |' tag.. |  If `te|
|00000f60| 6d 70 6f 2d 69 6e 74 65 | 72 61 63 74 69 76 65 20 |mpo-inte|ractive |
|00000f70| 69 73 20 6e 69 6c 2c 20 | 69 74 20 77 6f 72 6b 73 |is nil, |it works|
|00000f80| 20 6c 69 6b 65 20 27 70 | 2e 0a 20 2d 20 28 72 20 | like 'p|.. - (r |
|00000f90| 50 52 4f 4d 50 54 29 20 | 6c 69 6b 65 20 74 68 65 |PROMPT) |like the|
|00000fa0| 20 70 72 65 76 69 6f 75 | 73 2c 20 62 75 74 20 69 | previou|s, but i|
|00000fb0| 66 20 60 74 65 6d 70 6f | 2d 69 6e 74 65 72 61 63 |f `tempo|-interac|
|00000fc0| 74 69 76 65 27 20 69 73 | 20 6e 69 6c 0a 20 20 20 |tive' is| nil.   |
|00000fd0| 61 6e 64 20 60 74 65 6d | 70 6f 2d 69 6e 73 65 72 |and `tem|po-inser|
|00000fe0| 74 27 20 69 73 20 63 61 | 6c 6c 65 64 20 77 69 74 |t' is ca|lled wit|
|00000ff0| 68 20 4f 4e 2d 52 45 47 | 49 4f 4e 20 6e 6f 6e 2d |h ON-REG|ION non-|
|00001000| 6e 69 6c 2c 20 74 68 65 | 20 63 75 72 72 65 6e 74 |nil, the| current|
|00001010| 0a 20 20 20 72 65 67 69 | 6f 6e 20 69 73 20 70 6c |.   regi|on is pl|
|00001020| 61 63 65 64 20 68 65 72 | 65 2e 0a 20 2d 20 28 73 |aced her|e.. - (s|
|00001030| 20 4e 41 4d 45 29 20 49 | 6e 73 65 72 74 73 20 74 | NAME) I|nserts t|
|00001040| 65 78 74 20 70 72 65 76 | 69 6f 75 73 6c 79 20 72 |ext prev|iously r|
|00001050| 65 61 64 20 77 69 74 68 | 20 74 68 65 20 28 70 20 |ead with| the (p |
|00001060| 2e 2e 29 20 63 6f 6e 73 | 74 72 75 63 74 2e 0a 20 |..) cons|truct.. |
|00001070| 20 20 46 69 6e 64 73 20 | 74 68 65 20 69 6e 73 65 |  Finds |the inse|
|00001080| 72 74 69 6f 6e 20 73 61 | 76 65 64 20 75 6e 64 65 |rtion sa|ved unde|
|00001090| 72 20 4e 41 4d 45 20 61 | 6e 64 20 69 6e 73 65 72 |r NAME a|nd inser|
|000010a0| 74 73 20 69 74 2e 20 41 | 63 74 73 20 6c 69 6b 65 |ts it. A|cts like|
|000010b0| 20 27 70 0a 20 20 20 69 | 66 20 74 65 6d 70 6f 2d | 'p.   i|f tempo-|
|000010c0| 69 6e 74 65 72 61 63 74 | 69 76 65 20 69 73 20 6e |interact|ive is n|
|000010d0| 69 6c 2e 0a 20 2d 20 27 | 26 20 49 66 20 74 68 65 |il.. - '|& If the|
|000010e0| 72 65 20 69 73 20 6f 6e | 6c 79 20 77 68 69 74 65 |re is on|ly white|
|000010f0| 73 70 61 63 65 20 62 65 | 74 77 65 65 6e 20 74 68 |space be|tween th|
|00001100| 65 20 6c 69 6e 65 20 73 | 74 61 72 74 20 61 6e 64 |e line s|tart and|
|00001110| 20 70 6f 69 6e 74 2c 0a | 20 20 20 6e 6f 74 68 69 | point,.|   nothi|
|00001120| 6e 67 20 68 61 70 70 65 | 6e 73 2e 20 4f 74 68 65 |ng happe|ns. Othe|
|00001130| 72 77 69 73 65 20 61 20 | 6e 65 77 6c 69 6e 65 20 |rwise a |newline |
|00001140| 69 73 20 69 6e 73 65 72 | 74 65 64 2e 0a 20 2d 20 |is inser|ted.. - |
|00001150| 27 25 20 49 66 20 74 68 | 65 72 65 20 69 73 20 6f |'% If th|ere is o|
|00001160| 6e 6c 79 20 77 68 69 74 | 65 73 70 61 63 65 20 62 |nly whit|espace b|
|00001170| 65 74 77 65 65 6e 20 70 | 6f 69 6e 74 20 61 6e 64 |etween p|oint and|
|00001180| 20 65 6e 64 2d 6f 66 2d | 6c 69 6e 65 0a 20 20 20 | end-of-|line.   |
|00001190| 6e 6f 74 68 69 6e 67 20 | 68 61 70 70 65 6e 73 2e |nothing |happens.|
|000011a0| 20 4f 74 68 65 72 77 69 | 73 65 20 61 20 6e 65 77 | Otherwi|se a new|
|000011b0| 6c 69 6e 65 20 69 73 20 | 69 6e 73 65 72 74 65 64 |line is |inserted|
|000011c0| 2e 0a 20 2d 20 27 6e 20 | 69 6e 73 65 72 74 73 20 |.. - 'n |inserts |
|000011d0| 61 20 6e 65 77 6c 69 6e | 65 2e 0a 20 2d 20 27 3e |a newlin|e.. - '>|
|000011e0| 20 54 68 65 20 6c 69 6e | 65 20 69 73 20 69 6e 64 | The lin|e is ind|
|000011f0| 65 6e 74 65 64 20 75 73 | 69 6e 67 20 60 69 6e 64 |ented us|ing `ind|
|00001200| 65 6e 74 2d 61 63 63 6f | 72 64 69 6e 67 2d 74 6f |ent-acco|rding-to|
|00001210| 2d 6d 6f 64 65 27 2e 20 | 4e 6f 74 65 20 74 68 61 |-mode'. |Note tha|
|00001220| 74 0a 20 20 20 79 6f 75 | 20 6f 66 74 65 6e 20 73 |t.   you| often s|
|00001230| 68 6f 75 6c 64 20 70 6c | 61 63 65 20 74 68 69 73 |hould pl|ace this|
|00001240| 20 69 74 65 6d 20 61 66 | 74 65 72 20 74 68 65 20 | item af|ter the |
|00001250| 74 65 78 74 20 79 6f 75 | 20 77 61 6e 74 20 6f 6e |text you| want on|
|00001260| 20 74 68 65 0a 20 20 20 | 6c 69 6e 65 2e 0a 20 2d | the.   |line.. -|
|00001270| 20 27 6e 3e 20 69 6e 73 | 65 72 74 73 20 61 20 6e | 'n> ins|erts a n|
|00001280| 65 77 6c 69 6e 65 20 61 | 6e 64 20 69 6e 64 65 6e |ewline a|nd inden|
|00001290| 74 73 20 6c 69 6e 65 2e | 0a 20 2d 20 6e 69 6c 2e |ts line.|. - nil.|
|000012a0| 20 49 74 20 69 73 20 69 | 67 6e 6f 72 65 64 2e 0a | It is i|gnored..|
|000012b0| 20 2d 20 41 6e 79 74 68 | 69 6e 67 20 65 6c 73 65 | - Anyth|ing else|
|000012c0| 2e 20 49 74 20 69 73 20 | 65 76 61 6c 75 61 74 65 |. It is |evaluate|
|000012d0| 64 20 61 6e 64 20 74 68 | 65 20 72 65 73 75 6c 74 |d and th|e result|
|000012e0| 20 69 73 20 70 61 72 73 | 65 64 20 61 67 61 69 6e | is pars|ed again|
|000012f0| 2e 22 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |."]).(de|falias '|
|00001300| 74 65 6d 70 6f 2d 69 6e | 73 65 72 74 2d 74 65 6d |tempo-in|sert-tem|
|00001310| 70 6c 61 74 65 20 23 5b | 28 74 65 6d 70 6c 61 74 |plate #[|(templat|
|00001320| 65 20 6f 6e 2d 72 65 67 | 69 6f 6e 29 20 22 08 83 |e on-reg|ion) "..|
|00001330| 0e 00 c1 20 60 57 83 0e | 00 c2 20 88 8a c3 c4 20 |... `W..|.. .... |
|00001340| 21 88 c5 c6 0e 07 4a 5c | 22 88 c3 c4 20 21 88 29 |!.....J\|"... !.)|
|00001350| c8 20 88 c9 20 87 22 20 | 5b 6f 6e 2d 72 65 67 69 |. .. ." |[on-regi|
|00001360| 6f 6e 20 6d 61 72 6b 20 | 65 78 63 68 61 6e 67 65 |on mark |exchange|
|00001370| 2d 70 6f 69 6e 74 2d 61 | 6e 64 2d 6d 61 72 6b 20 |-point-a|nd-mark |
|00001380| 74 65 6d 70 6f 2d 69 6e | 73 65 72 74 2d 6d 61 72 |tempo-in|sert-mar|
|00001390| 6b 20 70 6f 69 6e 74 2d | 6d 61 72 6b 65 72 20 6d |k point-|marker m|
|000013a0| 61 70 63 61 72 20 74 65 | 6d 70 6f 2d 69 6e 73 65 |apcar te|mpo-inse|
|000013b0| 72 74 20 74 65 6d 70 6c | 61 74 65 20 74 65 6d 70 |rt templ|ate temp|
|000013c0| 6f 2d 66 6f 72 77 61 72 | 64 2d 6d 61 72 6b 20 74 |o-forwar|d-mark t|
|000013d0| 65 6d 70 6f 2d 66 6f 72 | 67 65 74 2d 69 6e 73 65 |empo-for|get-inse|
|000013e0| 72 74 69 6f 6e 73 5d 20 | 33 20 22 5c 0a 49 6e 73 |rtions] |3 "\.Ins|
|000013f0| 65 72 74 20 61 20 74 65 | 6d 70 6c 61 74 65 2e 0a |ert a te|mplate..|
|00001400| 54 45 4d 50 4c 41 54 45 | 20 69 73 20 74 68 65 20 |TEMPLATE| is the |
|00001410| 74 65 6d 70 6c 61 74 65 | 20 74 6f 20 62 65 20 69 |template| to be i|
|00001420| 6e 73 65 72 74 65 64 2e | 20 20 49 66 20 4f 4e 2d |nserted.|  If ON-|
|00001430| 52 45 47 49 4f 4e 20 69 | 73 20 6e 6f 6e 2d 6e 69 |REGION i|s non-ni|
|00001440| 6c 20 74 68 65 0a 60 72 | 27 20 65 6c 65 6d 65 6e |l the.`r|' elemen|
|00001450| 74 73 20 61 72 65 20 72 | 65 70 6c 61 63 65 64 20 |ts are r|eplaced |
|00001460| 77 69 74 68 20 74 68 65 | 20 63 75 72 72 65 6e 74 |with the| current|
|00001470| 20 72 65 67 69 6f 6e 2e | 22 5d 29 0a 28 64 65 66 | region.|"]).(def|
|00001480| 61 6c 69 61 73 20 27 74 | 65 6d 70 6f 2d 69 6e 73 |alias 't|empo-ins|
|00001490| 65 72 74 20 23 5b 28 65 | 6c 65 6d 65 6e 74 29 20 |ert #[(e|lement) |
|000014a0| 22 08 3b 83 09 00 c1 08 | 21 87 08 3a 83 1a 00 08 |".;.....|!..:....|
|000014b0| 40 c2 3d 83 1a 00 c3 08 | 41 21 87 08 3a 83 32 00 |@.=.....|A!..:.2.|
|000014c0| 08 40 c4 3d 83 32 00 0d | 83 2d 00 c6 20 87 c3 08 |.@.=.2..|.-.. ...|
|000014d0| 41 21 87 08 3a 83 4d 00 | 08 40 c7 3d 83 4d 00 0e |A!..:.M.|.@.=.M..|
|000014e0| 08 83 48 00 c9 08 41 21 | 87 ca cb 20 21 87 08 c2 |..H...A!|... !...|
|000014f0| 3d 83 58 00 ca cb 20 21 | 87 08 c4 3d 83 6a 00 0d |=.X... !|...=.j..|
|00001500| 83 65 00 c6 20 87 ca cb | 20 21 87 08 cc 3d 83 73 |.e.. ...| !...=.s|
|00001510| 00 cd 20 87 08 ce 3d 83 | 8d 00 69 cf 55 86 86 00 |.. ...=.|..i.U...|
|00001520| 8a d0 d1 d2 d3 23 29 3f | 85 c4 00 d4 63 87 08 d5 |.....#)?|....c...|
|00001530| 3d 83 a5 00 6c 86 9e 00 | 8a d6 d7 d2 d3 23 29 3f |=...l...|.....#)?|
|00001540| 85 c4 00 d4 63 87 08 d8 | 3d 83 ae 00 d4 63 87 08 |....c...|=....c..|
|00001550| d9 3d 83 ba 00 d4 63 88 | cd 20 87 08 3f 86 c4 00 |.=....c.|. ..?...|
|00001560| da db 08 21 21 87 22 20 | 5b 65 6c 65 6d 65 6e 74 |...!!." |[element|
|00001570| 20 74 65 6d 70 6f 2d 70 | 72 6f 63 65 73 73 2d 61 | tempo-p|rocess-a|
|00001580| 6e 64 2d 69 6e 73 65 72 | 74 2d 73 74 72 69 6e 67 |nd-inser|t-string|
|00001590| 20 70 20 74 65 6d 70 6f | 2d 69 6e 73 65 72 74 2d | p tempo|-insert-|
|000015a0| 70 72 6f 6d 70 74 20 72 | 20 6f 6e 2d 72 65 67 69 |prompt r| on-regi|
|000015b0| 6f 6e 20 65 78 63 68 61 | 6e 67 65 2d 70 6f 69 6e |on excha|nge-poin|
|000015c0| 74 2d 61 6e 64 2d 6d 61 | 72 6b 20 73 20 74 65 6d |t-and-ma|rk s tem|
|000015d0| 70 6f 2d 69 6e 74 65 72 | 61 63 74 69 76 65 20 74 |po-inter|active t|
|000015e0| 65 6d 70 6f 2d 69 6e 73 | 65 72 74 2d 6e 61 6d 65 |empo-ins|ert-name|
|000015f0| 64 20 74 65 6d 70 6f 2d | 69 6e 73 65 72 74 2d 6d |d tempo-|insert-m|
|00001600| 61 72 6b 20 70 6f 69 6e | 74 2d 6d 61 72 6b 65 72 |ark poin|t-marker|
|00001610| 20 3e 20 69 6e 64 65 6e | 74 2d 61 63 63 6f 72 64 | > inden|t-accord|
|00001620| 69 6e 67 2d 74 6f 2d 6d | 6f 64 65 20 26 20 30 20 |ing-to-m|ode & 0 |
|00001630| 72 65 2d 73 65 61 72 63 | 68 2d 62 61 63 6b 77 61 |re-searc|h-backwa|
|00001640| 72 64 20 22 5e 5c 5c 73 | 2d 2a 5c 5c 3d 22 20 6e |rd "^\\s|-*\\=" n|
|00001650| 69 6c 20 74 20 22 5c 6e | 22 20 25 20 72 65 2d 73 |il t "\n|" % re-s|
|00001660| 65 61 72 63 68 2d 66 6f | 72 77 61 72 64 20 22 5c |earch-fo|rward "\|
|00001670| 5c 3d 5c 5c 73 2d 2a 24 | 22 20 6e 20 6e 3e 20 74 |\=\\s-*$|" n n> t|
|00001680| 65 6d 70 6f 2d 69 6e 73 | 65 72 74 20 65 76 61 6c |empo-ins|ert eval|
|00001690| 5d 20 34 20 22 5c 0a 49 | 6e 73 65 72 74 20 61 20 |] 4 "\.I|nsert a |
|000016a0| 74 65 6d 70 6c 61 74 65 | 20 65 6c 65 6d 65 6e 74 |template| element|
|000016b0| 2e 0a 49 6e 73 65 72 74 | 20 6f 6e 65 20 65 6c 65 |..Insert| one ele|
|000016c0| 6d 65 6e 74 20 66 72 6f | 6d 20 61 20 74 65 6d 70 |ment fro|m a temp|
|000016d0| 6c 61 74 65 2e 20 53 65 | 65 20 64 6f 63 75 6d 65 |late. Se|e docume|
|000016e0| 6e 74 61 74 69 6f 6e 20 | 66 6f 72 0a 60 74 65 6d |ntation |for.`tem|
|000016f0| 70 6f 2d 64 65 66 69 6e | 65 2d 74 65 6d 70 6c 61 |po-defin|e-templa|
|00001700| 74 65 27 20 66 6f 72 20 | 74 68 65 20 6b 69 6e 64 |te' for |the kind|
|00001710| 20 6f 66 20 65 6c 65 6d | 65 6e 74 73 20 70 6f 73 | of elem|ents pos|
|00001720| 73 69 62 6c 65 2e 22 5d | 29 0a 28 64 65 66 61 6c |sible."]|).(defal|
|00001730| 69 61 73 20 27 74 65 6d | 70 6f 2d 69 6e 73 65 72 |ias 'tem|po-inser|
|00001740| 74 2d 70 72 6f 6d 70 74 | 20 23 5b 28 70 72 6f 6d |t-prompt| #[(prom|
|00001750| 70 74 29 20 22 08 83 2c | 00 09 3c 83 0e 00 09 40 |pt) "..,|..<....@|
|00001760| 82 0f 00 09 09 3c 85 17 | 00 09 41 40 c2 1b 1c 1d |.....<..|..A@....|
|00001770| c6 0d 21 89 13 63 88 5c | 66 85 2a 00 c7 5c 66 0b |..!..c.\|f.*..\f.|
|00001780| 5c 22 2b 87 c8 c9 20 21 | 87 22 20 5b 74 65 6d 70 |\"+... !|." [temp|
|00001790| 6f 2d 69 6e 74 65 72 61 | 63 74 69 76 65 20 70 72 |o-intera|ctive pr|
|000017a0| 6f 6d 70 74 20 6e 69 6c | 20 69 6e 73 65 72 74 65 |ompt nil| inserte|
|000017b0| 64 2d 74 65 78 74 20 73 | 61 76 65 2d 6e 61 6d 65 |d-text s|ave-name|
|000017c0| 20 70 72 6f 6d 70 74 2d | 73 74 72 69 6e 67 20 72 | prompt-|string r|
|000017d0| 65 61 64 2d 73 74 72 69 | 6e 67 20 74 65 6d 70 6f |ead-stri|ng tempo|
|000017e0| 2d 72 65 6d 65 6d 62 65 | 72 2d 69 6e 73 65 72 74 |-remembe|r-insert|
|000017f0| 69 6f 6e 20 74 65 6d 70 | 6f 2d 69 6e 73 65 72 74 |ion temp|o-insert|
|00001800| 2d 6d 61 72 6b 20 70 6f | 69 6e 74 2d 6d 61 72 6b |-mark po|int-mark|
|00001810| 65 72 5d 20 34 20 22 5c | 0a 50 72 6f 6d 70 74 20 |er] 4 "\|.Prompt |
|00001820| 66 6f 72 20 61 20 74 65 | 78 74 20 73 74 72 69 6e |for a te|xt strin|
|00001830| 67 20 61 6e 64 20 69 6e | 73 65 72 74 20 69 74 20 |g and in|sert it |
|00001840| 69 6e 20 74 68 65 20 63 | 75 72 72 65 6e 74 20 62 |in the c|urrent b|
|00001850| 75 66 66 65 72 2e 0a 49 | 66 20 74 68 65 20 76 61 |uffer..I|f the va|
|00001860| 72 69 61 62 6c 65 20 60 | 74 65 6d 70 6f 2d 69 6e |riable `|tempo-in|
|00001870| 74 65 72 61 63 74 69 76 | 65 27 20 69 73 20 6e 6f |teractiv|e' is no|
|00001880| 6e 2d 6e 69 6c 20 74 68 | 65 20 75 73 65 72 20 69 |n-nil th|e user i|
|00001890| 73 20 70 72 6f 6d 70 74 | 65 64 0a 66 6f 72 20 61 |s prompt|ed.for a|
|000018a0| 20 73 74 72 69 6e 67 20 | 69 6e 20 74 68 65 20 6d | string |in the m|
|000018b0| 69 6e 69 62 75 66 66 65 | 72 2c 20 77 68 69 63 68 |inibuffe|r, which|
|000018c0| 20 69 73 20 74 68 65 6e | 20 69 6e 73 65 72 74 65 | is then| inserte|
|000018d0| 64 20 69 6e 20 74 68 65 | 20 63 75 72 72 65 6e 74 |d in the| current|
|000018e0| 0a 62 75 66 66 65 72 2e | 20 49 66 20 60 74 65 6d |.buffer.| If `tem|
|000018f0| 70 6f 2d 69 6e 74 65 72 | 61 63 74 69 76 65 27 20 |po-inter|active' |
|00001900| 69 73 20 6e 69 6c 2c 20 | 74 68 65 20 63 75 72 72 |is nil, |the curr|
|00001910| 65 6e 74 20 70 6f 69 6e | 74 20 69 73 20 70 6c 61 |ent poin|t is pla|
|00001920| 63 65 64 20 6f 6e 0a 60 | 74 65 6d 70 6f 2d 6d 61 |ced on.`|tempo-ma|
|00001930| 72 6b 27 2e 0a 0a 50 52 | 4f 4d 50 54 20 69 73 20 |rk'...PR|OMPT is |
|00001940| 74 68 65 20 70 72 6f 6d | 70 74 20 73 74 72 69 6e |the prom|pt strin|
|00001950| 67 20 6f 72 20 61 20 6c | 69 73 74 20 63 6f 6e 74 |g or a l|ist cont|
|00001960| 61 69 6e 69 6e 67 20 74 | 68 65 20 70 72 6f 6d 70 |aining t|he promp|
|00001970| 74 20 73 74 72 69 6e 67 | 20 61 6e 64 0a 61 20 6e |t string| and.a n|
|00001980| 61 6d 65 20 74 6f 20 73 | 61 76 65 20 74 68 65 20 |ame to s|ave the |
|00001990| 69 6e 73 65 72 74 65 64 | 20 74 65 78 74 20 75 6e |inserted| text un|
|000019a0| 64 65 72 2e 22 5d 29 0a | 28 64 65 66 61 6c 69 61 |der."]).|(defalia|
|000019b0| 73 20 27 74 65 6d 70 6f | 2d 72 65 6d 65 6d 62 65 |s 'tempo|-remembe|
|000019c0| 72 2d 69 6e 73 65 72 74 | 69 6f 6e 20 23 5b 28 73 |r-insert|ion #[(s|
|000019d0| 61 76 65 2d 6e 61 6d 65 | 20 73 74 72 69 6e 67 29 |ave-name| string)|
|000019e0| 20 22 08 09 42 5c 6e 42 | 89 12 87 22 20 5b 73 61 | "..B\nB|..." [sa|
|000019f0| 76 65 2d 6e 61 6d 65 20 | 73 74 72 69 6e 67 20 74 |ve-name |string t|
|00001a00| 65 6d 70 6f 2d 6e 61 6d | 65 64 2d 69 6e 73 65 72 |empo-nam|ed-inser|
|00001a10| 74 69 6f 6e 73 5d 20 32 | 20 22 5c 0a 53 61 76 65 |tions] 2| "\.Save|
|00001a20| 20 74 68 65 20 74 65 78 | 74 20 69 6e 20 53 54 52 | the tex|t in STR|
|00001a30| 49 4e 47 20 75 6e 64 65 | 72 20 74 68 65 20 6e 61 |ING unde|r the na|
|00001a40| 6d 65 20 53 41 56 45 2d | 4e 41 4d 45 20 66 6f 72 |me SAVE-|NAME for|
|00001a50| 20 6c 61 74 65 72 20 72 | 65 74 72 69 65 76 61 6c | later r|etrieval|
|00001a60| 2e 22 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |."]).(de|falias '|
|00001a70| 74 65 6d 70 6f 2d 66 6f | 72 67 65 74 2d 69 6e 73 |tempo-fo|rget-ins|
|00001a80| 65 72 74 69 6f 6e 73 20 | 23 5b 6e 69 6c 20 22 c0 |ertions |#[nil ".|
|00001a90| 89 11 87 22 20 5b 6e 69 | 6c 20 74 65 6d 70 6f 2d |..." [ni|l tempo-|
|00001aa0| 6e 61 6d 65 64 2d 69 6e | 73 65 72 74 69 6f 6e 73 |named-in|sertions|
|00001ab0| 5d 20 32 20 22 5c 0a 46 | 6f 72 67 65 74 20 61 6c |] 2 "\.F|orget al|
|00001ac0| 6c 20 74 68 65 20 73 61 | 76 65 64 20 6e 61 6d 65 |l the sa|ved name|
|00001ad0| 64 20 69 6e 73 65 72 74 | 69 6f 6e 73 2e 22 5d 29 |d insert|ions."])|
|00001ae0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 74 65 6d 70 |.(defali|as 'temp|
|00001af0| 6f 2d 69 6e 73 65 72 74 | 2d 6e 61 6d 65 64 20 23 |o-insert|-named #|
|00001b00| 5b 28 65 6c 74 29 20 22 | 08 40 89 19 5c 6e 9e 41 |[(elt) "|.@..\n.A|
|00001b10| 89 1b 83 11 00 0b 63 82 | 14 00 c4 c5 21 2a 87 22 |......c.|....!*."|
|00001b20| 20 5b 65 6c 74 20 6e 61 | 6d 65 20 74 65 6d 70 6f | [elt na|me tempo|
|00001b30| 2d 6e 61 6d 65 64 2d 69 | 6e 73 65 72 74 69 6f 6e |-named-i|nsertion|
|00001b40| 73 20 69 6e 73 65 72 74 | 69 6f 6e 20 65 72 72 6f |s insert|ion erro|
|00001b50| 72 20 22 4e 61 6d 65 64 | 20 69 6e 73 65 72 74 69 |r "Named| inserti|
|00001b60| 6f 6e 20 6e 6f 74 20 66 | 6f 75 6e 64 22 5d 20 33 |on not f|ound"] 3|
|00001b70| 20 22 5c 0a 49 6e 73 65 | 72 74 20 74 68 65 20 70 | "\.Inse|rt the p|
|00001b80| 72 65 76 69 6f 75 73 20 | 69 6e 73 65 72 74 69 6f |revious |insertio|
|00001b90| 6e 20 73 61 76 65 64 20 | 75 6e 64 65 72 20 61 20 |n saved |under a |
|00001ba0| 6e 61 6d 65 64 20 73 70 | 65 63 69 66 69 65 64 20 |named sp|ecified |
|00001bb0| 69 6e 20 45 4c 54 2e 0a | 54 68 65 20 6e 61 6d 65 |in ELT..|The name|
|00001bc0| 20 69 73 20 69 6e 20 74 | 68 65 20 63 61 72 20 6f | is in t|he car o|
|00001bd0| 66 20 45 4c 54 2e 22 5d | 29 0a 28 64 65 66 61 6c |f ELT."]|).(defal|
|00001be0| 69 61 73 20 27 74 65 6d | 70 6f 2d 70 72 6f 63 65 |ias 'tem|po-proce|
|00001bf0| 73 73 2d 61 6e 64 2d 69 | 6e 73 65 72 74 2d 73 74 |ss-and-i|nsert-st|
|00001c00| 72 69 6e 67 20 23 5b 28 | 73 74 72 69 6e 67 29 20 |ring #[(|string) |
|00001c10| 22 08 83 24 00 08 39 83 | 12 00 c1 08 5c 6e 43 5c |"..$..9.|....\nC\|
|00001c20| 22 12 82 24 00 08 3c 83 | 1f 00 c3 c4 08 5c 22 88 |"..$..<.|.....\".|
|00001c30| 82 24 00 c5 c6 08 5c 22 | 88 5c 6e 63 87 22 20 5b |.$....\"|.\nc." [|
|00001c40| 74 65 6d 70 6f 2d 69 6e | 73 65 72 74 2d 73 74 72 |tempo-in|sert-str|
|00001c50| 69 6e 67 2d 66 75 6e 63 | 74 69 6f 6e 73 20 61 70 |ing-func|tions ap|
|00001c60| 70 6c 79 20 73 74 72 69 | 6e 67 20 6d 61 70 63 61 |ply stri|ng mapca|
|00001c70| 72 20 23 5b 28 66 6e 29 | 20 22 c0 09 5c 6e 5c 22 |r #[(fn)| "..\n\"|
|00001c80| 89 12 87 22 20 5b 61 70 | 70 6c 79 20 66 6e 20 73 |..." [ap|ply fn s|
|00001c90| 74 72 69 6e 67 5d 20 33 | 5d 20 65 72 72 6f 72 20 |tring] 3|] error |
|00001ca0| 22 42 6f 67 75 73 20 76 | 61 6c 75 65 20 69 6e 20 |"Bogus v|alue in |
|00001cb0| 74 65 6d 70 6f 2d 69 6e | 73 65 72 74 2d 73 74 72 |tempo-in|sert-str|
|00001cc0| 69 6e 67 2d 66 75 6e 63 | 74 69 6f 6e 73 3a 20 25 |ing-func|tions: %|
|00001cd0| 73 22 5d 20 33 20 22 5c | 0a 49 6e 73 65 72 74 20 |s"] 3 "\|.Insert |
|00001ce0| 61 20 73 74 72 69 6e 67 | 20 66 72 6f 6d 20 61 20 |a string| from a |
|00001cf0| 74 65 6d 70 6c 61 74 65 | 2e 0a 52 75 6e 20 61 20 |template|..Run a |
|00001d00| 73 74 72 69 6e 67 20 74 | 68 72 6f 75 67 68 20 74 |string t|hrough t|
|00001d10| 68 65 20 70 72 65 70 72 | 6f 63 65 73 73 6f 72 73 |he prepr|ocessors|
|00001d20| 20 69 6e 20 60 74 65 6d | 70 6f 2d 69 6e 73 65 72 | in `tem|po-inser|
|00001d30| 74 2d 73 74 72 69 6e 67 | 2d 66 75 6e 63 74 69 6f |t-string|-functio|
|00001d40| 6e 73 27 0a 61 6e 64 20 | 69 6e 73 65 72 74 20 74 |ns'.and |insert t|
|00001d50| 68 65 20 72 65 73 75 6c | 74 73 2e 22 5d 29 0a 28 |he resul|ts."]).(|
|00001d60| 64 65 66 61 6c 69 61 73 | 20 27 74 65 6d 70 6f 2d |defalias| 'tempo-|
|00001d70| 69 6e 73 65 72 74 2d 6d | 61 72 6b 20 23 5b 28 6d |insert-m|ark #[(m|
|00001d80| 61 72 6b 29 20 22 08 84 | 09 00 09 43 89 10 87 09 |ark) "..|...C....|
|00001d90| 08 40 57 83 16 00 09 08 | 42 89 10 87 08 89 1a 41 |.@W.....|B......A|
|00001da0| 83 2c 00 5c 6e 41 40 09 | 58 83 2c 00 5c 6e 41 89 |.,.\nA@.|X.,.\nA.|
|00001db0| 12 82 19 00 09 5c 6e 40 | 55 3f 85 3a 00 5c 6e 09 |.....\n@|U?.:.\n.|
|00001dc0| 5c 6e 41 42 a1 29 87 22 | 20 5b 74 65 6d 70 6f 2d |\nAB.)."| [tempo-|
|00001dd0| 6d 61 72 6b 73 20 6d 61 | 72 6b 20 6c 70 5d 20 34 |marks ma|rk lp] 4|
|00001de0| 20 22 5c 0a 49 6e 73 65 | 72 74 20 61 20 6d 61 72 | "\.Inse|rt a mar|
|00001df0| 6b 20 60 74 65 6d 70 6f | 2d 6d 61 72 6b 73 27 20 |k `tempo|-marks' |
|00001e00| 77 68 69 6c 65 20 6b 65 | 65 70 69 6e 67 20 69 74 |while ke|eping it|
|00001e10| 20 73 6f 72 74 65 64 22 | 5d 29 0a 28 64 65 66 61 | sorted"|]).(defa|
|00001e20| 6c 69 61 73 20 27 74 65 | 6d 70 6f 2d 66 6f 72 77 |lias 'te|mpo-forw|
|00001e30| 61 72 64 2d 6d 61 72 6b | 20 23 5b 6e 69 6c 20 22 |ard-mark| #[nil "|
|00001e40| c0 c1 8d 89 1a 85 5c 6e | 00 5c 6e 62 29 87 22 20 |......\n|.\nb)." |
|00001e50| 5b 66 6f 75 6e 64 20 28 | 62 79 74 65 2d 63 6f 64 |[found (|byte-cod|
|00001e60| 65 20 22 c0 c1 5c 6e 5c | 22 88 c3 87 22 20 5b 6d |e "..\n\|"..." [m|
|00001e70| 61 70 63 61 72 20 23 5b | 28 6d 61 72 6b 29 20 22 |apcar #[|(mark) "|
|00001e80| 60 08 57 85 5c 6e 00 c1 | c2 08 5c 22 87 22 20 5b |`.W.\n..|..\"." [|
|00001e90| 6d 61 72 6b 20 74 68 72 | 6f 77 20 66 6f 75 6e 64 |mark thr|ow found|
|00001ea0| 5d 20 33 5d 20 74 65 6d | 70 6f 2d 6d 61 72 6b 73 |] 3] tem|po-marks|
|00001eb0| 20 6e 69 6c 5d 20 33 29 | 20 6e 65 78 74 2d 6d 61 | nil] 3)| next-ma|
|00001ec0| 72 6b 5d 20 33 20 22 5c | 0a 4a 75 6d 70 20 74 6f |rk] 3 "\|.Jump to|
|00001ed0| 20 74 68 65 20 6e 65 78 | 74 20 6d 61 72 6b 20 69 | the nex|t mark i|
|00001ee0| 6e 20 60 74 65 6d 70 6f | 2d 66 6f 72 77 61 72 64 |n `tempo|-forward|
|00001ef0| 2d 6d 61 72 6b 2d 6c 69 | 73 74 27 2e 22 20 6e 69 |-mark-li|st'." ni|
|00001f00| 6c 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 74 |l]).(def|alias 't|
|00001f10| 65 6d 70 6f 2d 62 61 63 | 6b 77 61 72 64 2d 6d 61 |empo-bac|kward-ma|
|00001f20| 72 6b 20 23 5b 6e 69 6c | 20 22 c0 c1 8d 89 1a 85 |rk #[nil| "......|
|00001f30| 5c 6e 00 5c 6e 62 29 87 | 22 20 5b 66 6f 75 6e 64 |\n.\nb).|" [found|
|00001f40| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 19 c2 | (byte-c|ode "...|
|00001f50| c3 5c 66 5c 22 88 09 29 | 87 22 20 5b 6e 69 6c 20 |.\f\"..)|." [nil |
|00001f60| 6c 61 73 74 20 6d 61 70 | 63 61 72 20 23 5b 28 6d |last map|car #[(m|
|00001f70| 61 72 6b 29 20 22 60 08 | 58 83 0b 00 c1 c2 0b 5c |ark) "`.|X......\|
|00001f80| 22 88 08 89 13 87 22 20 | 5b 6d 61 72 6b 20 74 68 |"....." |[mark th|
|00001f90| 72 6f 77 20 66 6f 75 6e | 64 20 6c 61 73 74 5d 20 |row foun|d last] |
|00001fa0| 33 5d 20 74 65 6d 70 6f | 2d 6d 61 72 6b 73 5d 20 |3] tempo|-marks] |
|00001fb0| 33 29 20 70 72 65 76 2d | 6d 61 72 6b 5d 20 33 20 |3) prev-|mark] 3 |
|00001fc0| 22 5c 0a 4a 75 6d 70 20 | 74 6f 20 74 68 65 20 70 |"\.Jump |to the p|
|00001fd0| 72 65 76 69 6f 75 73 20 | 6d 61 72 6b 20 69 6e 20 |revious |mark in |
|00001fe0| 60 74 65 6d 70 6f 2d 62 | 61 63 6b 2d 6d 61 72 6b |`tempo-b|ack-mark|
|00001ff0| 2d 6c 69 73 74 27 2e 22 | 20 6e 69 6c 5d 29 0a 28 |-list'."| nil]).(|
|00002000| 64 65 66 61 6c 69 61 73 | 20 27 74 65 6d 70 6f 2d |defalias| 'tempo-|
|00002010| 61 64 64 2d 74 61 67 20 | 23 5b 28 74 61 67 20 74 |add-tag |#[(tag t|
|00002020| 65 6d 70 6c 61 74 65 20 | 26 6f 70 74 69 6f 6e 61 |emplate |&optiona|
|00002030| 6c 20 74 61 67 2d 6c 69 | 73 74 29 20 22 08 84 06 |l tag-li|st) "...|
|00002040| 00 c1 10 c2 0b 08 4a 5c | 22 3f 85 17 00 08 0b 5c |......J\|"?.....\|
|00002050| 66 42 08 4a 42 4c 87 22 | 20 5b 74 61 67 2d 6c 69 |fB.JBL."| [tag-li|
|00002060| 73 74 20 74 65 6d 70 6f | 2d 74 61 67 73 20 61 73 |st tempo|-tags as|
|00002070| 73 6f 63 20 74 61 67 20 | 74 65 6d 70 6c 61 74 65 |soc tag |template|
|00002080| 5d 20 33 20 22 5c 0a 41 | 64 64 20 61 20 74 65 6d |] 3 "\.A|dd a tem|
|00002090| 70 6c 61 74 65 20 74 61 | 67 2e 0a 0a 41 64 64 20 |plate ta|g...Add |
|000020a0| 74 68 65 20 54 41 47 2c | 20 74 68 61 74 20 73 68 |the TAG,| that sh|
|000020b0| 6f 75 6c 64 20 63 6f 6d | 70 6c 65 74 65 20 74 6f |ould com|plete to|
|000020c0| 20 54 45 4d 50 4c 41 54 | 45 20 74 6f 20 74 68 65 | TEMPLAT|E to the|
|000020d0| 20 6c 69 73 74 20 69 6e | 20 54 41 47 2d 4c 49 53 | list in| TAG-LIS|
|000020e0| 54 2c 0a 6f 72 20 74 6f | 20 60 74 65 6d 70 6f 2d |T,.or to| `tempo-|
|000020f0| 74 61 67 73 27 20 69 66 | 20 54 41 47 2d 4c 49 53 |tags' if| TAG-LIS|
|00002100| 54 20 69 73 20 6e 69 6c | 2e 22 20 22 73 54 61 67 |T is nil|." "sTag|
|00002110| 3a 20 5c 6e 43 54 65 6d | 70 6c 61 74 65 3a 20 22 |: \nCTem|plate: "|
|00002120| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 74 65 |]).(defa|lias 'te|
|00002130| 6d 70 6f 2d 75 73 65 2d | 74 61 67 2d 6c 69 73 74 |mpo-use-|tag-list|
|00002140| 20 23 5b 28 74 61 67 2d | 6c 69 73 74 20 26 6f 70 | #[(tag-|list &op|
|00002150| 74 69 6f 6e 61 6c 20 63 | 6f 6d 70 6c 65 74 69 6f |tional c|ompletio|
|00002160| 6e 2d 66 75 6e 63 74 69 | 6f 6e 29 20 22 08 09 9e |n-functi|on) "...|
|00002170| 89 1a 83 0e 00 5c 6e 0b | a1 82 15 00 08 0b 42 09 |.....\n.|......B.|
|00002180| 42 89 11 29 87 22 20 5b | 74 61 67 2d 6c 69 73 74 |B..)." [|tag-list|
|00002190| 20 74 65 6d 70 6f 2d 6c | 6f 63 61 6c 2d 74 61 67 | tempo-l|ocal-tag|
|000021a0| 73 20 6f 6c 64 20 63 6f | 6d 70 6c 65 74 69 6f 6e |s old co|mpletion|
|000021b0| 2d 66 75 6e 63 74 69 6f | 6e 5d 20 33 20 22 5c 0a |-functio|n] 3 "\.|
|000021c0| 49 6e 73 74 61 6c 6c 20 | 54 41 47 2d 4c 49 53 54 |Install |TAG-LIST|
|000021d0| 20 74 6f 20 62 65 20 75 | 73 65 64 20 66 6f 72 20 | to be u|sed for |
|000021e0| 74 65 6d 70 6c 61 74 65 | 20 63 6f 6d 70 6c 65 74 |template| complet|
|000021f0| 69 6f 6e 20 69 6e 20 74 | 68 65 20 63 75 72 72 65 |ion in t|he curre|
|00002200| 6e 74 20 62 75 66 66 65 | 72 2e 0a 0a 54 41 47 2d |nt buffe|r...TAG-|
|00002210| 4c 49 53 54 20 69 73 20 | 61 20 73 79 6d 62 6f 6c |LIST is |a symbol|
|00002220| 20 77 68 6f 73 65 20 76 | 61 72 69 61 62 6c 65 20 | whose v|ariable |
|00002230| 76 61 6c 75 65 20 69 73 | 20 61 20 74 61 67 20 6c |value is| a tag l|
|00002240| 69 73 74 20 63 72 65 61 | 74 65 64 20 77 69 74 68 |ist crea|ted with|
|00002250| 0a 60 74 65 6d 70 6f 2d | 61 64 64 2d 74 61 67 27 |.`tempo-|add-tag'|
|00002260| 20 61 6e 64 20 43 4f 4d | 50 4c 45 54 49 4f 4e 2d | and COM|PLETION-|
|00002270| 46 55 4e 43 54 49 4f 4e | 20 69 73 20 61 6e 20 6f |FUNCTION| is an o|
|00002280| 70 74 69 6f 6e 61 6c 20 | 66 75 6e 63 74 69 6f 6e |ptional |function|
|00002290| 20 6f 72 0a 73 74 72 69 | 6e 67 20 74 68 61 74 20 | or.stri|ng that |
|000022a0| 69 73 20 75 73 65 64 20 | 62 79 20 60 5c 5c 5b 74 |is used |by `\\[t|
|000022b0| 65 6d 70 6f 2d 63 6f 6d | 70 6c 65 74 65 2d 74 61 |empo-com|plete-ta|
|000022c0| 67 5d 27 20 74 6f 20 66 | 69 6e 64 20 61 20 73 74 |g]' to f|ind a st|
|000022d0| 72 69 6e 67 20 74 6f 0a | 6d 61 74 63 68 20 74 68 |ring to.|match th|
|000022e0| 65 20 74 61 67 20 61 67 | 61 69 6e 73 74 2e 0a 0a |e tag ag|ainst...|
|000022f0| 49 66 20 43 4f 4d 50 4c | 45 54 49 4f 4e 2d 46 55 |If COMPL|ETION-FU|
|00002300| 4e 43 54 49 4f 4e 20 69 | 73 20 61 20 73 74 72 69 |NCTION i|s a stri|
|00002310| 6e 67 2c 20 69 74 20 73 | 68 6f 75 6c 64 20 63 6f |ng, it s|hould co|
|00002320| 6e 74 61 69 6e 20 61 20 | 72 65 67 75 6c 61 72 0a |ntain a |regular.|
|00002330| 65 78 70 72 65 73 73 69 | 6f 6e 20 77 69 74 68 20 |expressi|on with |
|00002340| 61 74 20 6c 65 61 73 74 | 20 6f 6e 65 20 5c 5c 28 |at least| one \\(|
|00002350| 20 5c 5c 29 20 70 61 69 | 72 2e 20 57 68 65 6e 20 | \\) pai|r. When |
|00002360| 73 65 61 72 63 68 69 6e | 67 20 66 6f 72 20 74 61 |searchin|g for ta|
|00002370| 67 73 2c 0a 60 74 65 6d | 70 6f 2d 63 6f 6d 70 6c |gs,.`tem|po-compl|
|00002380| 65 74 65 2d 74 61 67 27 | 20 63 61 6c 6c 73 20 60 |ete-tag'| calls `|
|00002390| 72 65 2d 73 65 61 72 63 | 68 2d 62 61 63 6b 77 61 |re-searc|h-backwa|
|000023a0| 72 64 27 20 77 69 74 68 | 20 74 68 69 73 20 73 74 |rd' with| this st|
|000023b0| 72 69 6e 67 2c 20 61 6e | 64 0a 74 68 65 20 73 74 |ring, an|d.the st|
|000023c0| 72 69 6e 67 20 62 65 74 | 77 65 65 6e 20 74 68 65 |ring bet|ween the|
|000023d0| 20 66 69 72 73 74 20 5c | 5c 28 20 61 6e 64 20 5c | first \|\( and \|
|000023e0| 5c 29 20 69 73 20 75 73 | 65 64 20 66 6f 72 20 6d |\) is us|ed for m|
|000023f0| 61 74 63 68 69 6e 67 20 | 61 67 61 69 6e 73 74 0a |atching |against.|
|00002400| 65 61 63 68 20 73 74 72 | 69 6e 67 20 69 6e 20 74 |each str|ing in t|
|00002410| 68 65 20 74 61 67 20 6c | 69 73 74 2e 20 49 66 20 |he tag l|ist. If |
|00002420| 6f 6e 65 20 69 73 20 66 | 6f 75 6e 64 2c 20 74 68 |one is f|ound, th|
|00002430| 65 20 77 68 6f 6c 65 20 | 74 65 78 74 20 62 65 74 |e whole |text bet|
|00002440| 77 65 65 6e 0a 74 68 65 | 20 66 69 72 73 74 20 5c |ween.the| first \|
|00002450| 5c 28 20 61 6e 64 20 74 | 68 65 20 70 6f 69 6e 74 |\( and t|he point|
|00002460| 20 69 73 20 72 65 70 6c | 61 63 65 64 20 77 69 74 | is repl|aced wit|
|00002470| 68 20 74 68 65 20 69 6e | 73 65 72 74 65 64 20 74 |h the in|serted t|
|00002480| 65 6d 70 6c 61 74 65 2e | 0a 0a 59 6f 75 20 77 69 |emplate.|..You wi|
|00002490| 6c 6c 20 70 72 6f 62 61 | 62 6c 79 20 77 61 6e 74 |ll proba|bly want|
|000024a0| 20 74 6f 20 69 6e 63 6c | 75 64 65 20 5c 5c 20 3d | to incl|ude \\ =|
|000024b0| 20 61 74 20 74 68 65 20 | 65 6e 64 20 6f 66 20 74 | at the |end of t|
|000024c0| 68 65 20 72 65 67 65 78 | 70 20 74 6f 20 6d 61 6b |he regex|p to mak|
|000024d0| 65 0a 73 75 72 65 20 74 | 68 61 74 20 74 68 65 20 |e.sure t|hat the |
|000024e0| 73 74 72 69 6e 67 20 69 | 73 20 6d 61 74 63 68 65 |string i|s matche|
|000024f0| 64 20 6f 6e 6c 79 20 61 | 67 61 69 6e 73 74 20 74 |d only a|gainst t|
|00002500| 65 78 74 20 61 64 6a 61 | 63 65 6e 74 20 74 6f 20 |ext adja|cent to |
|00002510| 74 68 65 0a 70 6f 69 6e | 74 2e 0a 0a 49 66 20 43 |the.poin|t...If C|
|00002520| 4f 50 4d 4c 45 54 49 4f | 4e 2d 46 55 4e 43 54 49 |OPMLETIO|N-FUNCTI|
|00002530| 4f 4e 20 69 73 20 61 20 | 73 79 6d 62 6f 6c 2c 20 |ON is a |symbol, |
|00002540| 69 74 20 73 68 6f 75 6c | 64 20 62 65 20 61 20 66 |it shoul|d be a f|
|00002550| 75 6e 63 74 69 6f 6e 20 | 74 68 61 74 0a 72 65 74 |unction |that.ret|
|00002560| 75 72 6e 73 20 61 20 63 | 6f 6e 73 20 63 65 6c 6c |urns a c|ons cell|
|00002570| 20 6f 66 20 74 68 65 20 | 66 6f 72 6d 20 28 53 54 | of the |form (ST|
|00002580| 52 49 4e 47 20 2e 20 50 | 4f 53 29 2c 20 77 68 65 |RING . P|OS), whe|
|00002590| 72 65 20 53 54 52 49 4e | 47 20 69 73 20 74 68 65 |re STRIN|G is the|
|000025a0| 0a 73 74 72 69 6e 67 20 | 75 73 65 64 20 66 6f 72 |.string |used for|
|000025b0| 20 6d 61 74 63 68 69 6e | 67 20 61 6e 64 20 50 4f | matchin|g and PO|
|000025c0| 53 20 69 73 20 74 68 65 | 20 62 75 66 66 65 72 20 |S is the| buffer |
|000025d0| 70 6f 73 69 74 69 6f 6e | 20 61 66 74 65 72 20 77 |position| after w|
|000025e0| 68 69 63 68 0a 74 65 78 | 74 20 73 68 6f 75 6c 64 |hich.tex|t should|
|000025f0| 20 62 65 20 72 65 70 6c | 61 63 65 64 20 77 69 74 | be repl|aced wit|
|00002600| 68 20 61 20 74 65 6d 70 | 6c 61 74 65 2e 22 5d 29 |h a temp|late."])|
|00002610| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 74 65 6d 70 |.(defali|as 'temp|
|00002620| 6f 2d 66 69 6e 64 2d 6d | 61 74 63 68 2d 73 74 72 |o-find-m|atch-str|
|00002630| 69 6e 67 20 23 5b 28 66 | 69 6e 64 65 72 29 20 22 |ing #[(f|inder) "|
|00002640| 08 3b 83 17 00 8a c1 08 | c2 c3 23 88 29 c4 94 c4 |.;......|..#.)...|
|00002650| 95 54 7b c4 94 42 87 08 | 20 87 22 20 5b 66 69 6e |.T{..B..| ." [fin|
|00002660| 64 65 72 20 72 65 2d 73 | 65 61 72 63 68 2d 62 61 |der re-s|earch-ba|
|00002670| 63 6b 77 61 72 64 20 6e | 69 6c 20 74 20 31 5d 20 |ckward n|il t 1] |
|00002680| 34 20 22 5c 0a 46 69 6e | 64 20 61 20 73 74 72 69 |4 "\.Fin|d a stri|
|00002690| 6e 67 20 74 6f 20 62 65 | 20 6d 61 74 63 68 65 64 |ng to be| matched|
|000026a0| 20 61 67 61 69 6e 73 74 | 20 61 20 74 61 67 20 6c | against| a tag l|
|000026b0| 69 73 74 2e 0a 0a 46 49 | 4e 44 45 52 20 69 73 20 |ist...FI|NDER is |
|000026c0| 61 20 66 75 6e 63 74 69 | 6f 6e 20 6f 72 20 61 20 |a functi|on or a |
|000026d0| 73 74 72 69 6e 67 2e 20 | 52 65 74 75 72 6e 73 20 |string. |Returns |
|000026e0| 28 53 54 52 49 4e 47 20 | 2e 20 50 4f 53 29 2e 22 |(STRING |. POS)."|
|000026f0| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 74 65 |]).(defa|lias 'te|
|00002700| 6d 70 6f 2d 63 6f 6d 70 | 6c 65 74 65 2d 74 61 67 |mpo-comp|lete-tag|
|00002710| 20 23 5b 28 26 6f 70 74 | 69 6f 6e 61 6c 20 73 69 | #[(&opt|ional si|
|00002720| 6c 65 6e 74 29 20 22 c0 | c1 8d 83 08 00 c2 87 0b |lent) ".|........|
|00002730| 84 0f 00 c4 20 88 c5 87 | 22 20 5b 63 6f 6d 70 6c |.... ...|" [compl|
|00002740| 65 74 65 64 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |eted (by|te-code |
|00002750| 22 c0 c1 5c 6e 5c 22 88 | c3 87 22 20 5b 6d 61 70 |"..\n\".|.." [map|
|00002760| 63 61 72 20 23 5b 28 74 | 61 67 2d 6c 69 73 74 2d |car #[(t|ag-list-|
|00002770| 61 29 20 22 08 40 4a 19 | 08 41 86 5c 6e 00 5c 6e |a) ".@J.|.A.\n.\n|
|00002780| 1b c4 0b 21 89 1d 40 1e | 06 0d 41 1e 07 c8 0e 06 |...!..@.|..A.....|
|00002790| 09 5c 22 41 86 25 00 c9 | 0e 06 09 5c 22 89 1e 5c |.\"A.%..|...\"..\|
|000027a0| 6e 83 30 00 0e 07 60 7c | 88 0e 5c 6e 84 39 00 cb |n.0...`||..\n.9..|
|000027b0| 82 9e 00 0e 5c 6e 39 83 | 4c 00 cc 0e 5c 6e cb 5c |....\n9.|L...\n.\|
|000027c0| 22 88 cd ce cf 5c 22 82 | 9e 00 0e 5c 6e cf 3d 83 |"....\".|...\n.=.|
|000027d0| 64 00 cc c8 0e 06 09 5c | 22 41 cb 5c 22 88 cd ce |d......\|"A.\"...|
|000027e0| cf 5c 22 82 9e 00 0e 5c | 6e 3b 85 9e 00 c8 0e 5c |.\"....\|n;.....\|
|000027f0| 6e 09 5c 22 89 1e 10 83 | 7f 00 cc 0e 10 41 cb 5c |n.\"....|.....A.\|
|00002800| 22 88 82 99 00 0e 5c 6e | 63 88 0e 11 83 91 00 d2 |".....\n|c.......|
|00002810| 0e 06 09 5c 22 88 82 99 | 00 0e 13 84 99 00 d4 20 |...\"...|....... |
|00002820| 88 29 cd ce cf 5c 22 2e | 06 87 22 20 5b 74 61 67 |.)...\".|.." [tag|
|00002830| 2d 6c 69 73 74 2d 61 20 | 74 61 67 2d 6c 69 73 74 |-list-a |tag-list|
|00002840| 20 74 65 6d 70 6f 2d 64 | 65 66 61 75 6c 74 2d 6d | tempo-d|efault-m|
|00002850| 61 74 63 68 2d 66 69 6e | 64 65 72 20 6d 61 74 63 |atch-fin|der matc|
|00002860| 68 2d 73 74 72 69 6e 67 | 2d 66 69 6e 64 65 72 20 |h-string|-finder |
|00002870| 74 65 6d 70 6f 2d 66 69 | 6e 64 2d 6d 61 74 63 68 |tempo-fi|nd-match|
|00002880| 2d 73 74 72 69 6e 67 20 | 6d 61 74 63 68 2d 69 6e |-string |match-in|
|00002890| 66 6f 20 6d 61 74 63 68 | 2d 73 74 72 69 6e 67 20 |fo match|-string |
|000028a0| 6d 61 74 63 68 2d 73 74 | 61 72 74 20 61 73 73 6f |match-st|art asso|
|000028b0| 63 20 74 72 79 2d 63 6f | 6d 70 6c 65 74 69 6f 6e |c try-co|mpletion|
|000028c0| 20 63 6f 6d 70 6c 20 6e | 69 6c 20 74 65 6d 70 6f | compl n|il tempo|
|000028d0| 2d 69 6e 73 65 72 74 2d | 74 65 6d 70 6c 61 74 65 |-insert-|template|
|000028e0| 20 74 68 72 6f 77 20 63 | 6f 6d 70 6c 65 74 65 64 | throw c|ompleted|
|000028f0| 20 74 20 63 6f 6d 70 6c | 32 20 74 65 6d 70 6f 2d | t compl|2 tempo-|
|00002900| 73 68 6f 77 2d 63 6f 6d | 70 6c 65 74 69 6f 6e 2d |show-com|pletion-|
|00002910| 62 75 66 66 65 72 20 74 | 65 6d 70 6f 2d 64 69 73 |buffer t|empo-dis|
|00002920| 70 6c 61 79 2d 63 6f 6d | 70 6c 65 74 69 6f 6e 73 |play-com|pletions|
|00002930| 20 73 69 6c 65 6e 74 20 | 64 69 6e 67 5d 20 35 5d | silent |ding] 5]|
|00002940| 20 74 65 6d 70 6f 2d 6c | 6f 63 61 6c 2d 74 61 67 | tempo-l|ocal-tag|
|00002950| 73 20 6e 69 6c 5d 20 33 | 29 20 74 20 73 69 6c 65 |s nil] 3|) t sile|
|00002960| 6e 74 20 64 69 6e 67 20 | 6e 69 6c 5d 20 32 20 22 |nt ding |nil] 2 "|
|00002970| 5c 0a 4c 6f 6f 6b 20 66 | 6f 72 20 61 20 74 61 67 |\.Look f|or a tag|
|00002980| 20 61 6e 64 20 65 78 70 | 61 6e 64 20 69 74 2e 0a | and exp|and it..|
|00002990| 0a 49 74 20 67 6f 65 73 | 20 74 68 72 6f 75 67 68 |.It goes| through|
|000029a0| 20 74 68 65 20 74 61 67 | 20 6c 69 73 74 73 20 69 | the tag| lists i|
|000029b0| 6e 20 60 74 65 6d 70 6f | 2d 6c 6f 63 61 6c 2d 74 |n `tempo|-local-t|
|000029c0| 61 67 73 27 20 28 74 68 | 69 73 20 69 6e 63 6c 75 |ags' (th|is inclu|
|000029d0| 64 65 73 0a 60 74 65 6d | 70 6f 2d 74 61 67 73 27 |des.`tem|po-tags'|
|000029e0| 29 20 61 6e 64 20 66 6f | 72 20 65 61 63 68 20 6c |) and fo|r each l|
|000029f0| 69 73 74 20 69 74 20 75 | 73 65 73 20 74 68 65 20 |ist it u|ses the |
|00002a00| 63 6f 72 72 65 73 70 6f | 6e 64 69 6e 67 20 6d 61 |correspo|nding ma|
|00002a10| 74 63 68 2d 66 69 6e 64 | 65 72 0a 66 75 6e 63 74 |tch-find|er.funct|
|00002a20| 69 6f 6e 2c 20 6f 72 20 | 60 74 65 6d 70 6f 2d 64 |ion, or |`tempo-d|
|00002a30| 65 66 61 75 6c 74 2d 6d | 61 74 63 68 2d 66 69 6e |efault-m|atch-fin|
|00002a40| 64 65 72 27 20 69 66 20 | 6e 6f 6e 65 20 69 73 20 |der' if |none is |
|00002a50| 67 69 76 65 6e 2c 20 61 | 6e 64 20 74 72 69 65 73 |given, a|nd tries|
|00002a60| 0a 74 6f 20 6d 61 74 63 | 68 20 74 68 65 20 6d 61 |.to matc|h the ma|
|00002a70| 74 63 68 20 73 74 72 69 | 6e 67 20 61 67 61 69 6e |tch stri|ng again|
|00002a80| 73 74 20 74 68 65 20 74 | 61 67 73 20 69 6e 20 74 |st the t|ags in t|
|00002a90| 68 65 20 6c 69 73 74 20 | 75 73 69 6e 67 0a 60 74 |he list |using.`t|
|00002aa0| 72 79 2d 63 6f 6d 70 6c | 65 74 69 6f 6e 27 2e 20 |ry-compl|etion'. |
|00002ab0| 49 66 20 6e 6f 6e 65 20 | 69 73 20 66 6f 75 6e 64 |If none |is found|
|00002ac0| 20 69 74 20 70 72 6f 63 | 65 65 64 73 20 74 6f 20 | it proc|eeds to |
|00002ad0| 74 68 65 20 6e 65 78 74 | 20 6c 69 73 74 20 75 6e |the next| list un|
|00002ae0| 74 69 6c 0a 6f 6e 65 20 | 69 73 20 66 6f 75 6e 64 |til.one |is found|
|00002af0| 2e 20 49 66 20 61 20 70 | 61 72 74 69 61 6c 20 63 |. If a p|artial c|
|00002b00| 6f 6d 70 6c 65 74 69 6f | 6e 20 69 73 20 66 6f 75 |ompletio|n is fou|
|00002b10| 6e 64 2c 20 69 74 20 69 | 73 20 72 65 70 6c 61 63 |nd, it i|s replac|
|00002b20| 65 64 20 62 79 20 74 68 | 65 0a 74 65 6d 70 6c 61 |ed by th|e.templa|
|00002b30| 74 65 20 69 66 20 69 74 | 20 63 61 6e 20 62 65 20 |te if it| can be |
|00002b40| 63 6f 6d 70 6c 65 74 65 | 64 20 75 6e 69 71 75 65 |complete|d unique|
|00002b50| 6c 79 2c 20 6f 72 20 63 | 6f 6d 70 6c 65 74 65 64 |ly, or c|ompleted|
|00002b60| 20 61 73 20 66 61 72 20 | 61 73 0a 70 6f 73 73 69 | as far |as.possi|
|00002b70| 62 6c 65 2e 0a 0a 57 68 | 65 6e 20 64 6f 69 6e 67 |ble...Wh|en doing|
|00002b80| 20 70 61 72 74 69 61 6c | 20 63 6f 6d 70 6c 65 74 | partial| complet|
|00002b90| 69 6f 6e 2c 20 6f 6e 6c | 79 20 74 61 67 73 20 69 |ion, onl|y tags i|
|00002ba0| 6e 20 74 68 65 20 63 75 | 72 72 65 6e 74 6c 79 20 |n the cu|rrently |
|00002bb0| 65 78 61 6d 69 6e 65 64 | 0a 6c 69 73 74 20 61 72 |examined|.list ar|
|00002bc0| 65 20 63 6f 6e 73 69 64 | 65 72 65 64 2c 20 73 6f |e consid|ered, so|
|00002bd0| 20 69 66 20 79 6f 75 20 | 70 72 6f 76 69 64 65 20 | if you |provide |
|00002be0| 73 69 6d 69 6c 61 72 20 | 74 61 67 73 20 69 6e 20 |similar |tags in |
|00002bf0| 64 69 66 66 65 72 65 6e | 74 20 6c 69 73 74 73 0a |differen|t lists.|
|00002c00| 69 6e 20 60 74 65 6d 70 | 6f 2d 6c 6f 63 61 6c 2d |in `temp|o-local-|
|00002c10| 74 61 67 73 27 2c 20 74 | 68 65 20 72 65 73 75 6c |tags', t|he resul|
|00002c20| 74 20 6d 61 79 20 6e 6f | 74 20 62 65 20 64 65 73 |t may no|t be des|
|00002c30| 69 72 61 62 6c 65 2e 0a | 0a 49 66 20 6e 6f 20 6d |irable..|.If no m|
|00002c40| 61 74 63 68 20 69 73 20 | 66 6f 75 6e 64 20 6f 72 |atch is |found or|
|00002c50| 20 61 20 70 61 72 74 69 | 61 6c 20 6d 61 74 63 68 | a parti|al match|
|00002c60| 20 69 73 20 66 6f 75 6e | 64 2c 20 61 6e 64 20 53 | is foun|d, and S|
|00002c70| 49 4c 45 4e 54 20 69 73 | 0a 6e 6f 6e 2d 6e 69 6c |ILENT is|.non-nil|
|00002c80| 2c 20 74 68 65 20 66 75 | 6e 63 74 69 6f 6e 20 77 |, the fu|nction w|
|00002c90| 69 6c 6c 20 67 69 76 65 | 20 61 20 73 69 67 6e 61 |ill give| a signa|
|00002ca0| 6c 2e 0a 0a 49 66 20 74 | 65 6d 70 6f 2d 73 68 6f |l...If t|empo-sho|
|00002cb0| 77 2d 63 6f 6d 70 6c 65 | 74 69 6f 6e 2d 62 75 66 |w-comple|tion-buf|
|00002cc0| 66 65 72 20 69 73 20 6e | 6f 6e 2d 4e 49 4c 2c 20 |fer is n|on-NIL, |
|00002cd0| 61 20 62 75 66 66 65 72 | 20 63 6f 6e 74 61 69 6e |a buffer| contain|
|00002ce0| 69 6e 67 0a 70 6f 73 73 | 69 62 6c 65 20 63 6f 6d |ing.poss|ible com|
|00002cf0| 70 6c 65 74 69 6f 6e 73 | 20 69 73 20 64 69 73 70 |pletions| is disp|
|00002d00| 6c 61 79 65 64 20 77 68 | 65 6e 20 61 20 70 61 72 |layed wh|en a par|
|00002d10| 74 69 61 6c 20 63 6f 6d | 70 6c 65 74 69 6f 6e 20 |tial com|pletion |
|00002d20| 69 73 20 66 6f 75 6e 64 | 2e 22 20 6e 69 6c 5d 29 |is found|." nil])|
|00002d30| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 74 65 6d 70 |.(defali|as 'temp|
|00002d40| 6f 2d 64 69 73 70 6c 61 | 79 2d 63 6f 6d 70 6c 65 |o-displa|y-comple|
|00002d50| 74 69 6f 6e 73 20 23 5b | 28 73 74 72 69 6e 67 20 |tions #[|(string |
|00002d60| 74 61 67 2d 6c 69 73 74 | 29 20 22 08 83 0e 00 c1 |tag-list|) ".....|
|00002d70| 90 c2 c3 5c 66 0d 5c 22 | 21 91 87 c6 8b 87 22 20 |...\f.\"|!....." |
|00002d80| 5b 74 65 6d 70 6f 2d 6c | 65 61 76 65 2d 63 6f 6d |[tempo-l|eave-com|
|00002d90| 70 6c 65 74 69 6f 6e 2d | 62 75 66 66 65 72 20 22 |pletion-|buffer "|
|00002da0| 2a 43 6f 6d 70 6c 65 74 | 69 6f 6e 73 2a 22 20 64 |*Complet|ions*" d|
|00002db0| 69 73 70 6c 61 79 2d 63 | 6f 6d 70 6c 65 74 69 6f |isplay-c|ompletio|
|00002dc0| 6e 2d 6c 69 73 74 20 61 | 6c 6c 2d 63 6f 6d 70 6c |n-list a|ll-compl|
|00002dd0| 65 74 69 6f 6e 73 20 73 | 74 72 69 6e 67 20 74 61 |etions s|tring ta|
|00002de0| 67 2d 6c 69 73 74 20 28 | 28 62 79 74 65 2d 63 6f |g-list (|(byte-co|
|00002df0| 64 65 20 22 c0 90 c1 c2 | 0b 5c 66 5c 22 21 91 88 |de "....|.\f\"!..|
|00002e00| c5 c6 21 87 22 20 5b 22 | 2a 43 6f 6d 70 6c 65 74 |..!." ["|*Complet|
|00002e10| 69 6f 6e 73 2a 22 20 64 | 69 73 70 6c 61 79 2d 63 |ions*" d|isplay-c|
|00002e20| 6f 6d 70 6c 65 74 69 6f | 6e 2d 6c 69 73 74 20 61 |ompletio|n-list a|
|00002e30| 6c 6c 2d 63 6f 6d 70 6c | 65 74 69 6f 6e 73 20 73 |ll-compl|etions s|
|00002e40| 74 72 69 6e 67 20 74 61 | 67 2d 6c 69 73 74 20 73 |tring ta|g-list s|
|00002e50| 69 74 2d 66 6f 72 20 33 | 32 37 36 37 5d 20 35 29 |it-for 3|2767] 5)|
|00002e60| 29 5d 20 35 20 22 5c 0a | 53 68 6f 77 20 61 20 62 |)] 5 "\.|Show a b|
|00002e70| 75 66 66 65 72 20 63 6f | 6e 74 61 69 6e 69 6e 67 |uffer co|ntaining|
|00002e80| 20 70 6f 73 73 69 62 6c | 65 20 63 6f 6d 70 6c 65 | possibl|e comple|
|00002e90| 74 69 6f 6e 73 20 66 6f | 72 20 53 54 52 49 4e 47 |tions fo|r STRING|
|00002ea0| 2e 22 5d 29 0a          |                         |."]).   |        |
+--------+-------------------------+-------------------------+--------+--------+