/ BCI NET 2 / BCI NET 2.iso / archives / programming / source / a2.0bemacs-src.lha / Emacs-19.25 / lisp / skeleton.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 72 6d 73 40 6d 6f 6c |piled by| rms@mol|
|00000020| 65 2e 67 6e 75 2e 61 69 | 2e 6d 69 74 2e 65 64 75 |e.gnu.ai|.mit.edu|
|00000030| 20 6f 6e 20 53 75 6e 20 | 4d 61 79 20 20 38 20 31 | on Sun |May  8 1|
|00000040| 35 3a 32 38 3a 34 39 20 | 31 39 39 34 0a 3b 3b 3b |5:28:49 |1994.;;;|
|00000050| 20 66 72 6f 6d 20 66 69 | 6c 65 20 2f 68 6f 6d 65 | from fi|le /home|
|00000060| 2f 66 73 66 2f 72 6d 73 | 2f 65 31 39 2f 6c 69 73 |/fsf/rms|/e19/lis|
|00000070| 70 2f 73 6b 65 6c 65 74 | 6f 6e 2e 65 6c 0a 3b 3b |p/skelet|on.el.;;|
|00000080| 3b 20 65 6d 61 63 73 20 | 76 65 72 73 69 6f 6e 20 |; emacs |version |
|00000090| 31 39 2e 32 32 2e 39 31 | 2e 35 2e 0a 3b 3b 3b 20 |19.22.91|.5..;;; |
|000000a0| 62 79 74 65 63 6f 6d 70 | 20 76 65 72 73 69 6f 6e |bytecomp| version|
|000000b0| 20 46 53 46 20 32 2e 31 | 30 0a 3b 3b 3b 20 6f 70 | FSF 2.1|0.;;; op|
|000000c0| 74 69 6d 69 7a 61 74 69 | 6f 6e 20 69 73 20 6f 6e |timizati|on is on|
|000000d0| 2e 0a 3b 3b 3b 20 74 68 | 69 73 20 66 69 6c 65 20 |..;;; th|is file |
|000000e0| 75 73 65 73 20 6f 70 63 | 6f 64 65 73 20 77 68 69 |uses opc|odes whi|
|000000f0| 63 68 20 64 6f 20 6e 6f | 74 20 65 78 69 73 74 20 |ch do no|t exist |
|00000100| 69 6e 20 45 6d 61 63 73 | 20 31 38 2e 0a 0a 28 69 |in Emacs| 18...(i|
|00000110| 66 20 28 61 6e 64 20 28 | 62 6f 75 6e 64 70 20 27 |f (and (|boundp '|
|00000120| 65 6d 61 63 73 2d 76 65 | 72 73 69 6f 6e 29 0a 09 |emacs-ve|rsion)..|
|00000130| 20 28 6f 72 20 28 61 6e | 64 20 28 62 6f 75 6e 64 | (or (an|d (bound|
|00000140| 70 20 27 65 70 6f 63 68 | 3a 3a 76 65 72 73 69 6f |p 'epoch|::versio|
|00000150| 6e 29 20 65 70 6f 63 68 | 3a 3a 76 65 72 73 69 6f |n) epoch|::versio|
|00000160| 6e 29 0a 09 20 20 20 20 | 20 28 73 74 72 69 6e 67 |n)..    | (string|
|00000170| 2d 6c 65 73 73 70 20 65 | 6d 61 63 73 2d 76 65 72 |-lessp e|macs-ver|
|00000180| 73 69 6f 6e 20 22 31 39 | 22 29 29 29 0a 20 20 20 |sion "19|"))).   |
|00000190| 20 28 65 72 72 6f 72 20 | 22 60 2f 68 6f 6d 65 2f | (error |"`/home/|
|000001a0| 66 73 66 2f 72 6d 73 2f | 65 31 39 2f 6c 69 73 70 |fsf/rms/|e19/lisp|
|000001b0| 2f 73 6b 65 6c 65 74 6f | 6e 2e 65 6c 27 20 77 61 |/skeleto|n.el' wa|
|000001c0| 73 20 63 6f 6d 70 69 6c | 65 64 20 66 6f 72 20 45 |s compil|ed for E|
|000001d0| 6d 61 63 73 20 31 39 22 | 29 29 0a 0a 28 64 65 66 |macs 19"|))..(def|
|000001e0| 76 61 72 20 73 6b 65 6c | 65 74 6f 6e 2d 74 72 61 |var skel|eton-tra|
|000001f0| 6e 73 66 6f 72 6d 61 74 | 69 6f 6e 20 6e 69 6c 20 |nsformat|ion nil |
|00000200| 22 5c 0a 2a 49 66 20 6e | 6f 6e 2d 6e 69 6c 2c 20 |"\.*If n|on-nil, |
|00000210| 66 75 6e 63 74 69 6f 6e | 20 61 70 70 6c 69 65 64 |function| applied|
|00000220| 20 74 6f 20 73 74 72 69 | 6e 67 73 20 62 65 66 6f | to stri|ngs befo|
|00000230| 72 65 20 74 68 65 79 20 | 61 72 65 20 69 6e 73 65 |re they |are inse|
|00000240| 72 74 65 64 2e 0a 49 74 | 20 73 68 6f 75 6c 64 20 |rted..It| should |
|00000250| 74 61 6b 65 20 73 74 72 | 69 6e 67 73 20 61 6e 64 |take str|ings and|
|00000260| 20 63 68 61 72 61 63 74 | 65 72 73 20 61 6e 64 20 | charact|ers and |
|00000270| 72 65 74 75 72 6e 20 74 | 68 65 6d 20 74 72 61 6e |return t|hem tran|
|00000280| 73 66 6f 72 6d 65 64 2c | 20 6f 72 20 6e 69 6c 0a |sformed,| or nil.|
|00000290| 77 68 69 63 68 20 6d 65 | 61 6e 73 20 6e 6f 20 74 |which me|ans no t|
|000002a0| 72 61 6e 73 66 6f 72 6d | 61 74 69 6f 6e 2e 0a 54 |ransform|ation..T|
|000002b0| 79 70 69 63 61 6c 20 65 | 78 61 6d 70 6c 65 73 20 |ypical e|xamples |
|000002c0| 6d 69 67 68 74 20 62 65 | 20 60 75 70 63 61 73 65 |might be| `upcase|
|000002d0| 27 20 6f 72 20 60 63 61 | 70 69 74 61 6c 69 7a 65 |' or `ca|pitalize|
|000002e0| 27 2e 22 29 0a 28 70 75 | 74 20 28 71 75 6f 74 65 |'.").(pu|t (quote|
|000002f0| 20 73 6b 65 6c 65 74 6f | 6e 2d 74 72 61 6e 73 66 | skeleto|n-transf|
|00000300| 6f 72 6d 61 74 69 6f 6e | 29 20 28 71 75 6f 74 65 |ormation|) (quote|
|00000310| 20 76 61 72 69 61 62 6c | 65 2d 69 6e 74 65 72 61 | variabl|e-intera|
|00000320| 63 74 69 76 65 29 20 22 | 61 54 72 61 6e 73 66 6f |ctive) "|aTransfo|
|00000330| 72 6d 61 74 69 6f 6e 20 | 66 75 6e 63 74 69 6f 6e |rmation |function|
|00000340| 3a 20 22 29 0a 28 64 65 | 66 76 61 72 20 73 6b 65 |: ").(de|fvar ske|
|00000350| 6c 65 74 6f 6e 2d 73 75 | 62 70 72 6f 6d 70 74 20 |leton-su|bprompt |
|00000360| 28 73 75 62 73 74 69 74 | 75 74 65 2d 63 6f 6d 6d |(substit|ute-comm|
|00000370| 61 6e 64 2d 6b 65 79 73 | 20 22 52 45 54 2c 20 5c |and-keys| "RET, \|
|00000380| 5c 3c 6d 69 6e 69 62 75 | 66 66 65 72 2d 6c 6f 63 |\<minibu|ffer-loc|
|00000390| 61 6c 2d 6d 61 70 3e 5c | 5c 5b 61 62 6f 72 74 2d |al-map>\|\[abort-|
|000003a0| 72 65 63 75 72 73 69 76 | 65 2d 65 64 69 74 5d 20 |recursiv|e-edit] |
|000003b0| 6f 72 20 5c 5c 5b 68 65 | 6c 70 2d 63 6f 6d 6d 61 |or \\[he|lp-comma|
|000003c0| 6e 64 5d 22 29 20 22 5c | 0a 2a 52 65 70 6c 61 63 |nd]") "\|.*Replac|
|000003d0| 65 6d 65 6e 74 20 66 6f | 72 20 25 73 20 69 6e 20 |ement fo|r %s in |
|000003e0| 70 72 6f 6d 70 74 73 20 | 6f 66 20 72 65 63 75 72 |prompts |of recur|
|000003f0| 73 69 76 65 20 73 6b 65 | 6c 65 74 6f 6e 20 64 65 |sive ske|leton de|
|00000400| 66 69 6e 69 74 69 6f 6e | 73 2e 22 29 0a 28 64 65 |finition|s.").(de|
|00000410| 66 76 61 72 20 73 6b 65 | 6c 65 74 6f 6e 2d 64 65 |fvar ske|leton-de|
|00000420| 62 75 67 20 6e 69 6c 20 | 22 5c 0a 2a 49 66 20 6e |bug nil |"\.*If n|
|00000430| 6f 6e 2d 6e 69 6c 20 60 | 64 65 66 69 6e 65 2d 73 |on-nil `|define-s|
|00000440| 6b 65 6c 65 74 6f 6e 27 | 20 77 69 6c 6c 20 6f 76 |keleton'| will ov|
|00000450| 65 72 72 69 64 65 20 70 | 72 65 76 69 6f 75 73 20 |erride p|revious |
|00000460| 64 65 66 69 6e 69 74 69 | 6f 6e 2e 22 29 0a 28 64 |definiti|on.").(d|
|00000470| 65 66 61 6c 69 61 73 20 | 27 64 65 66 69 6e 65 2d |efalias |'define-|
|00000480| 73 6b 65 6c 65 74 6f 6e | 20 27 28 6d 61 63 72 6f |skeleton| '(macro|
|00000490| 20 2e 20 23 5b 28 63 6f | 6d 6d 61 6e 64 20 64 6f | . #[(co|mmand do|
|000004a0| 63 75 6d 65 6e 74 61 74 | 69 6f 6e 20 26 72 65 73 |cumentat|ion &res|
|000004b0| 74 20 64 65 66 69 6e 69 | 74 69 6f 6e 29 20 22 08 |t defini|tion) ".|
|000004c0| 83 08 00 09 5c 6e 4c 88 | c3 c4 21 88 c5 c6 09 c7 |....\nL.|..!.....|
|000004d0| 5c 6e 44 c8 c9 09 21 ca | 51 46 cb 09 cc 0e 0d ce |\nD...!.|QF......|
|000004e0| cf 09 44 af 06 45 87 22 | 20 5b 73 6b 65 6c 65 74 |..D..E."| [skelet|
|000004f0| 6f 6e 2d 64 65 62 75 67 | 20 63 6f 6d 6d 61 6e 64 |on-debug| command|
|00000500| 20 64 65 66 69 6e 69 74 | 69 6f 6e 20 72 65 71 75 | definit|ion requ|
|00000510| 69 72 65 20 62 61 63 6b | 71 75 6f 74 65 20 70 72 |ire back|quote pr|
|00000520| 6f 67 6e 20 64 65 66 76 | 61 72 20 71 75 6f 74 65 |ogn defv|ar quote|
|00000530| 20 22 2a 44 65 66 69 6e | 69 74 69 6f 6e 20 66 6f | "*Defin|ition fo|
|00000540| 72 20 74 68 65 20 22 20 | 73 79 6d 62 6f 6c 2d 6e |r the " |symbol-n|
|00000550| 61 6d 65 20 22 20 73 6b | 65 6c 65 74 6f 6e 20 63 |ame " sk|eleton c|
|00000560| 6f 6d 6d 61 6e 64 2e 5c | 6e 53 65 65 20 66 75 6e |ommand.\|nSee fun|
|00000570| 63 74 69 6f 6e 20 60 73 | 6b 65 6c 65 74 6f 6e 2d |ction `s|keleton-|
|00000580| 69 6e 73 65 72 74 27 20 | 66 6f 72 20 6d 65 61 6e |insert' |for mean|
|00000590| 69 6e 67 2e 22 20 64 65 | 66 75 6e 20 6e 69 6c 20 |ing." de|fun nil |
|000005a0| 64 6f 63 75 6d 65 6e 74 | 61 74 69 6f 6e 20 28 69 |document|ation (i|
|000005b0| 6e 74 65 72 61 63 74 69 | 76 65 29 20 73 6b 65 6c |nteracti|ve) skel|
|000005c0| 65 74 6f 6e 2d 69 6e 73 | 65 72 74 5d 20 39 20 22 |eton-ins|ert] 9 "|
|000005d0| 5c 0a 44 65 66 69 6e 65 | 20 61 20 75 73 65 72 2d |\.Define| a user-|
|000005e0| 63 6f 6e 66 69 67 75 72 | 61 62 6c 65 20 43 4f 4d |configur|able COM|
|000005f0| 4d 41 4e 44 20 74 68 61 | 74 20 65 6e 74 65 72 73 |MAND tha|t enters|
|00000600| 20 61 20 73 74 61 74 65 | 6d 65 6e 74 20 73 6b 65 | a state|ment ske|
|00000610| 6c 65 74 6f 6e 2e 0a 44 | 4f 43 55 4d 45 4e 54 41 |leton..D|OCUMENTA|
|00000620| 54 49 4f 4e 20 69 73 20 | 74 68 61 74 20 6f 66 20 |TION is |that of |
|00000630| 74 68 65 20 63 6f 6d 6d | 61 6e 64 2c 20 77 68 69 |the comm|and, whi|
|00000640| 6c 65 20 74 68 65 20 76 | 61 72 69 61 62 6c 65 20 |le the v|ariable |
|00000650| 6f 66 20 74 68 65 20 73 | 61 6d 65 20 6e 61 6d 65 |of the s|ame name|
|00000660| 2c 0a 77 68 69 63 68 20 | 63 6f 6e 74 61 69 6e 73 |,.which |contains|
|00000670| 20 74 68 65 20 64 65 66 | 69 6e 69 74 69 6f 6e 2c | the def|inition,|
|00000680| 20 68 61 73 20 61 20 64 | 6f 63 75 6d 65 6e 74 61 | has a d|ocumenta|
|00000690| 74 69 6f 6e 20 74 6f 20 | 74 68 61 74 20 65 66 66 |tion to |that eff|
|000006a0| 65 63 74 2e 0a 50 52 4f | 4d 50 54 20 61 6e 64 20 |ect..PRO|MPT and |
|000006b0| 45 4c 45 4d 45 4e 54 20 | 2e 2e 2e 20 61 72 65 20 |ELEMENT |... are |
|000006c0| 61 73 20 64 65 66 69 6e | 65 64 20 75 6e 64 65 72 |as defin|ed under|
|000006d0| 20 60 73 6b 65 6c 65 74 | 6f 6e 2d 69 6e 73 65 72 | `skelet|on-inser|
|000006e0| 74 27 2e 22 5d 29 29 0a | 28 64 65 66 61 6c 69 61 |t'."])).|(defalia|
|000006f0| 73 20 27 73 6b 65 6c 65 | 74 6f 6e 2d 69 6e 73 65 |s 'skele|ton-inse|
|00000700| 72 74 20 23 5b 28 64 65 | 66 69 6e 69 74 69 6f 6e |rt #[(de|finition|
|00000710| 20 26 6f 70 74 69 6f 6e | 61 6c 20 6e 6f 2d 6e 65 | &option|al no-ne|
|00000720| 77 6c 69 6e 65 29 20 22 | c0 89 89 89 89 89 89 19 |wline) "|........|
|00000730| 1a 1b 1c 1d 1e 06 1e 07 | c8 0e 09 89 40 5c 22 88 |........|....@\".|
|00000740| 0e 5c 6e 84 29 00 6c 84 | 29 00 cb 20 84 29 00 cc |.\n.).l.|).. .)..|
|00000750| cd 21 88 0d 85 2f 00 0d | 62 2e 07 87 22 20 5b 6e |.!.../..|b..." [n|
|00000760| 69 6c 20 76 32 20 76 31 | 20 71 75 69 74 20 72 65 |il v2 v1| quit re|
|00000770| 73 75 6d 65 3a 20 70 6f | 69 6e 74 20 6f 70 6f 69 |sume: po|int opoi|
|00000780| 6e 74 20 6d 6f 64 69 66 | 69 65 64 20 73 6b 65 6c |nt modif|ied skel|
|00000790| 65 74 6f 6e 2d 69 6e 74 | 65 72 6e 61 6c 2d 6c 69 |eton-int|ernal-li|
|000007a0| 73 74 20 64 65 66 69 6e | 69 74 69 6f 6e 20 6e 6f |st defin|ition no|
|000007b0| 2d 6e 65 77 6c 69 6e 65 | 20 6e 65 77 6c 69 6e 65 |-newline| newline|
|000007c0| 20 69 6e 64 65 6e 74 2d | 72 65 6c 61 74 69 76 65 | indent-|relative|
|000007d0| 20 74 5d 20 37 20 22 5c | 0a 49 6e 73 65 72 74 20 | t] 7 "\|.Insert |
|000007e0| 74 68 65 20 63 6f 6d 70 | 6c 65 78 20 73 74 61 74 |the comp|lex stat|
|000007f0| 65 6d 65 6e 74 20 73 6b | 65 6c 65 74 6f 6e 20 44 |ement sk|eleton D|
|00000800| 45 46 49 4e 49 54 49 4f | 4e 20 64 65 73 63 72 69 |EFINITIO|N descri|
|00000810| 62 65 73 20 76 65 72 79 | 20 63 6f 6e 63 69 73 65 |bes very| concise|
|00000820| 6c 79 2e 0a 49 66 20 6f | 70 74 69 6f 6e 61 6c 20 |ly..If o|ptional |
|00000830| 4e 4f 2d 4e 45 57 4c 49 | 4e 45 20 69 73 20 6e 69 |NO-NEWLI|NE is ni|
|00000840| 6c 20 74 68 65 20 73 6b | 65 6c 65 74 6f 6e 20 77 |l the sk|eleton w|
|00000850| 69 6c 6c 20 65 6e 64 20 | 6f 6e 20 61 20 6c 69 6e |ill end |on a lin|
|00000860| 65 20 6f 66 20 69 74 73 | 20 6f 77 6e 2e 0a 0a 44 |e of its| own...D|
|00000870| 45 46 49 4e 49 54 49 4f | 4e 20 69 73 20 6d 61 64 |EFINITIO|N is mad|
|00000880| 65 20 75 70 20 61 73 20 | 28 50 52 4f 4d 50 54 20 |e up as |(PROMPT |
|00000890| 45 4c 45 4d 45 4e 54 20 | 2e 2e 2e 29 2e 20 20 50 |ELEMENT |...).  P|
|000008a0| 52 4f 4d 50 54 20 6d 61 | 79 20 62 65 20 6e 69 6c |ROMPT ma|y be nil|
|000008b0| 20 69 66 20 6e 6f 74 0a | 6e 65 65 64 65 64 2c 20 | if not.|needed, |
|000008c0| 61 20 70 72 6f 6d 70 74 | 2d 73 74 72 69 6e 67 20 |a prompt|-string |
|000008d0| 6f 72 20 61 6e 20 65 78 | 70 72 65 73 73 69 6f 6e |or an ex|pression|
|000008e0| 20 66 6f 72 20 63 6f 6d | 70 6c 65 78 20 72 65 61 | for com|plex rea|
|000008f0| 64 20 66 75 6e 63 74 69 | 6f 6e 73 2e 0a 0a 49 66 |d functi|ons...If|
|00000900| 20 45 4c 45 4d 45 4e 54 | 20 69 73 20 61 20 73 74 | ELEMENT| is a st|
|00000910| 72 69 6e 67 20 6f 72 20 | 61 20 63 68 61 72 61 63 |ring or |a charac|
|00000920| 74 65 72 20 69 74 20 67 | 65 74 73 20 69 6e 73 65 |ter it g|ets inse|
|00000930| 72 74 65 64 20 28 73 65 | 65 20 61 6c 73 6f 0a 60 |rted (se|e also.`|
|00000940| 73 6b 65 6c 65 74 6f 6e | 2d 74 72 61 6e 73 66 6f |skeleton|-transfo|
|00000950| 72 6d 61 74 69 6f 6e 27 | 29 2e 20 20 4f 74 68 65 |rmation'|).  Othe|
|00000960| 72 20 70 6f 73 73 69 62 | 69 6c 69 74 69 65 73 20 |r possib|ilities |
|00000970| 61 72 65 3a 0a 0a 09 5c | 5c 6e 09 67 6f 20 74 6f |are:...\|\n.go to|
|00000980| 20 6e 65 78 74 20 6c 69 | 6e 65 20 61 6e 64 20 61 | next li|ne and a|
|00000990| 6c 69 67 6e 20 63 75 72 | 73 6f 72 0a 09 3e 09 69 |lign cur|sor..>.i|
|000009a0| 6e 64 65 6e 74 20 61 63 | 63 6f 72 64 69 6e 67 20 |ndent ac|cording |
|000009b0| 74 6f 20 6d 61 6a 6f 72 | 20 6d 6f 64 65 0a 09 3c |to major| mode..<|
|000009c0| 09 75 6e 64 65 6e 74 20 | 74 61 62 2d 77 69 64 74 |.undent |tab-widt|
|000009d0| 68 20 73 70 61 63 65 73 | 20 62 75 74 20 6e 6f 74 |h spaces| but not|
|000009e0| 20 62 65 79 6f 6e 64 20 | 62 65 67 69 6e 6e 69 6e | beyond |beginnin|
|000009f0| 67 20 6f 66 20 6c 69 6e | 65 0a 09 5f 09 63 75 72 |g of lin|e.._.cur|
|00000a00| 73 6f 72 20 61 66 74 65 | 72 20 74 65 72 6d 69 6e |sor afte|r termin|
|00000a10| 61 74 69 6f 6e 0a 09 26 | 09 73 6b 69 70 20 6e 65 |ation..&|.skip ne|
|00000a20| 78 74 20 45 4c 45 4d 45 | 4e 54 20 69 66 20 70 72 |xt ELEME|NT if pr|
|00000a30| 65 76 69 6f 75 73 20 64 | 69 64 6e 27 74 20 6d 6f |evious d|idn't mo|
|00000a40| 76 65 20 70 6f 69 6e 74 | 0a 09 7c 09 73 6b 69 70 |ve point|..|.skip|
|00000a50| 20 6e 65 78 74 20 45 4c | 45 4d 45 4e 54 20 69 66 | next EL|EMENT if|
|00000a60| 20 70 72 65 76 69 6f 75 | 73 20 6d 6f 76 65 64 20 | previou|s moved |
|00000a70| 70 6f 69 6e 74 0a 09 2d | 6e 75 6d 09 64 65 6c 65 |point..-|num.dele|
|00000a80| 74 65 20 6e 75 6d 20 70 | 72 65 63 65 64 69 6e 67 |te num p|receding|
|00000a90| 20 63 68 61 72 61 63 74 | 65 72 73 0a 09 72 65 73 | charact|ers..res|
|00000aa0| 75 6d 65 3a 09 73 6b 69 | 70 70 65 64 2c 20 63 6f |ume:.ski|pped, co|
|00000ab0| 6e 74 69 6e 75 65 20 68 | 65 72 65 20 69 66 20 71 |ntinue h|ere if q|
|00000ac0| 75 69 74 20 69 73 20 73 | 69 67 6e 61 6c 65 64 0a |uit is s|ignaled.|
|00000ad0| 09 6e 69 6c 09 73 6b 69 | 70 70 65 64 0a 0a 45 4c |.nil.ski|pped..EL|
|00000ae0| 45 4d 45 4e 54 20 6d 61 | 79 20 69 74 73 65 6c 66 |EMENT ma|y itself|
|00000af0| 20 62 65 20 44 45 46 49 | 4e 49 54 49 4f 4e 20 77 | be DEFI|NITION w|
|00000b00| 69 74 68 20 61 20 50 52 | 4f 4d 50 54 2e 20 20 54 |ith a PR|OMPT.  T|
|00000b10| 68 65 20 75 73 65 72 20 | 69 73 20 70 72 6f 6d 70 |he user |is promp|
|00000b20| 74 65 64 0a 72 65 70 65 | 61 74 65 64 6c 79 20 66 |ted.repe|atedly f|
|00000b30| 6f 72 20 64 69 66 66 65 | 72 65 6e 74 20 69 6e 70 |or diffe|rent inp|
|00000b40| 75 74 73 2e 20 20 54 68 | 65 20 44 45 46 49 4e 49 |uts.  Th|e DEFINI|
|00000b50| 54 49 4f 4e 20 69 73 20 | 70 72 6f 63 65 73 73 65 |TION is |processe|
|00000b60| 64 20 61 73 20 6f 66 74 | 65 6e 0a 61 73 20 74 68 |d as oft|en.as th|
|00000b70| 65 20 75 73 65 72 20 65 | 6e 74 65 72 73 20 61 20 |e user e|nters a |
|00000b80| 6e 6f 6e 2d 65 6d 70 74 | 79 20 73 74 72 69 6e 67 |non-empt|y string|
|00000b90| 2e 20 20 5c 5c 5b 6b 65 | 79 62 6f 61 72 64 2d 71 |.  \\[ke|yboard-q|
|00000ba0| 75 69 74 5d 20 74 65 72 | 6d 69 6e 61 74 65 73 0a |uit] ter|minates.|
|00000bb0| 73 6b 65 6c 65 74 6f 6e | 20 69 6e 73 65 72 74 69 |skeleton| inserti|
|00000bc0| 6f 6e 2c 20 62 75 74 20 | 63 6f 6e 74 69 6e 75 65 |on, but |continue|
|00000bd0| 73 20 61 66 74 65 72 20 | 60 72 65 73 75 6d 65 3a |s after |`resume:|
|00000be0| 27 20 61 6e 64 20 70 6f | 73 69 74 69 6f 6e 73 20 |' and po|sitions |
|00000bf0| 61 74 20 60 5f 27 0a 69 | 66 20 61 6e 79 2e 20 20 |at `_'.i|f any.  |
|00000c00| 49 66 20 50 52 4f 4d 50 | 54 20 69 6e 20 73 75 63 |If PROMP|T in suc|
|00000c10| 68 20 61 20 73 75 62 2d | 64 65 66 69 6e 69 74 69 |h a sub-|definiti|
|00000c20| 6f 6e 20 63 6f 6e 74 61 | 69 6e 73 20 61 20 5c 22 |on conta|ins a \"|
|00000c30| 2e 2e 20 25 73 20 2e 2e | 5c 22 20 69 74 0a 69 73 |.. %s ..|\" it.is|
|00000c40| 20 72 65 70 6c 61 63 65 | 64 20 62 79 20 60 73 6b | replace|d by `sk|
|00000c50| 65 6c 65 74 6f 6e 2d 73 | 75 62 70 72 6f 6d 70 74 |eleton-s|ubprompt|
|00000c60| 27 2e 0a 0a 4f 74 68 65 | 72 20 6c 69 73 70 2d 65 |'...Othe|r lisp-e|
|00000c70| 78 70 72 65 73 73 69 6f | 6e 73 20 61 72 65 20 65 |xpressio|ns are e|
|00000c80| 76 61 6c 75 61 74 65 64 | 20 61 6e 64 20 74 68 65 |valuated| and the|
|00000c90| 20 76 61 6c 75 65 20 74 | 72 65 61 74 65 64 20 61 | value t|reated a|
|00000ca0| 73 20 61 62 6f 76 65 2e | 0a 54 68 65 20 66 6f 6c |s above.|.The fol|
|00000cb0| 6c 6f 77 69 6e 67 20 6c | 6f 63 61 6c 20 76 61 72 |lowing l|ocal var|
|00000cc0| 69 61 62 6c 65 73 20 61 | 72 65 20 61 76 61 69 6c |iables a|re avail|
|00000cd0| 61 62 6c 65 3a 0a 0a 09 | 73 74 72 09 66 69 72 73 |able:...|str.firs|
|00000ce0| 74 20 74 69 6d 65 3a 20 | 72 65 61 64 20 61 20 73 |t time: |read a s|
|00000cf0| 74 72 69 6e 67 20 70 72 | 6f 6d 70 74 69 6e 67 20 |tring pr|ompting |
|00000d00| 77 69 74 68 20 50 52 4f | 4d 50 54 20 61 6e 64 20 |with PRO|MPT and |
|00000d10| 69 6e 73 65 72 74 20 69 | 74 0a 09 09 09 20 20 20 |insert i|t....   |
|00000d20| 20 69 66 20 50 52 4f 4d | 50 54 20 69 73 20 6e 6f | if PROM|PT is no|
|00000d30| 74 20 61 20 73 74 72 69 | 6e 67 20 69 74 20 69 73 |t a stri|ng it is|
|00000d40| 20 65 76 61 6c 75 61 74 | 65 64 20 69 6e 73 74 65 | evaluat|ed inste|
|00000d50| 61 64 0a 09 09 74 68 65 | 6e 3a 20 69 6e 73 65 72 |ad...the|n: inser|
|00000d60| 74 20 70 72 65 76 69 6f | 75 73 6c 79 20 72 65 61 |t previo|usly rea|
|00000d70| 64 20 73 74 72 69 6e 67 | 20 6f 6e 63 65 20 6d 6f |d string| once mo|
|00000d80| 72 65 0a 09 71 75 69 74 | 09 6e 6f 6e 2d 6e 69 6c |re..quit|.non-nil|
|00000d90| 20 77 68 65 6e 20 72 65 | 73 75 6d 65 3a 20 73 65 | when re|sume: se|
|00000da0| 63 74 69 6f 6e 20 69 73 | 20 65 6e 74 65 72 65 64 |ction is| entered|
|00000db0| 20 62 79 20 6b 65 79 62 | 6f 61 72 64 20 71 75 69 | by keyb|oard qui|
|00000dc0| 74 0a 09 76 31 2c 20 76 | 32 09 6c 6f 63 61 6c 20 |t..v1, v|2.local |
|00000dd0| 76 61 72 69 61 62 6c 65 | 73 20 66 6f 72 20 6d 65 |variable|s for me|
|00000de0| 6d 6f 72 69 73 69 6e 67 | 20 61 6e 79 74 68 69 6e |morising| anythin|
|00000df0| 67 20 79 6f 75 20 77 61 | 6e 74 22 5d 29 0a 28 62 |g you wa|nt"]).(b|
|00000e00| 79 74 65 2d 63 6f 64 65 | 20 22 c0 c1 c2 5c 22 88 |yte-code| "...\".|
|00000e10| c0 c3 c4 5c 22 88 c0 c5 | c6 5c 22 87 22 20 5b 64 |...\"...|.\"." [d|
|00000e20| 65 66 61 6c 69 61 73 20 | 73 6b 65 6c 65 74 6f 6e |efalias |skeleton|
|00000e30| 2d 69 6e 74 65 72 6e 61 | 6c 2d 72 65 61 64 20 23 |-interna|l-read #|
|00000e40| 5b 28 73 74 72 29 20 22 | c0 19 5c 6e 3b 83 10 00 |[(str) "|..\n;...|
|00000e50| c3 c4 5c 6e 0d 5c 22 21 | 82 13 00 c6 5c 6e 21 12 |..\n.\"!|....\n!.|
|00000e60| 29 5c 6e c7 98 83 20 00 | c8 c9 ca 5c 22 87 5c 6e |)\n... .|...\".\n|
|00000e70| 87 22 20 5b 22 41 73 20 | 6c 6f 6e 67 20 61 73 20 |." ["As |long as |
|00000e80| 79 6f 75 20 70 72 6f 76 | 69 64 65 20 69 6e 70 75 |you prov|ide inpu|
|00000e90| 74 20 79 6f 75 20 77 69 | 6c 6c 20 69 6e 73 65 72 |t you wi|ll inser|
|00000ea0| 74 20 61 6e 6f 74 68 65 | 72 20 73 75 62 73 6b 65 |t anothe|r subske|
|00000eb0| 6c 65 74 6f 6e 2e 5c 6e | 5c 6e 49 66 20 79 6f 75 |leton.\n|\nIf you|
|00000ec0| 20 65 6e 74 65 72 20 74 | 68 65 20 65 6d 70 74 79 | enter t|he empty|
|00000ed0| 20 73 74 72 69 6e 67 2c | 20 74 68 65 20 6c 6f 6f | string,| the loo|
|00000ee0| 70 20 69 6e 73 65 72 74 | 69 6e 67 20 73 75 62 73 |p insert|ing subs|
|00000ef0| 6b 65 6c 65 74 6f 6e 73 | 20 69 73 5c 6e 6c 65 66 |keletons| is\nlef|
|00000f00| 74 2c 20 61 6e 64 20 74 | 68 65 20 63 75 72 72 65 |t, and t|he curre|
|00000f10| 6e 74 20 6f 6e 65 20 69 | 73 20 72 65 6d 6f 76 65 |nt one i|s remove|
|00000f20| 64 20 61 73 20 66 61 72 | 20 61 73 20 69 74 20 68 |d as far| as it h|
|00000f30| 61 73 20 62 65 65 6e 20 | 65 6e 74 65 72 65 64 2e |as been |entered.|
|00000f40| 5c 6e 5c 6e 49 66 20 79 | 6f 75 20 71 75 69 74 2c |\n\nIf y|ou quit,|
|00000f50| 20 74 68 65 20 63 75 72 | 72 65 6e 74 20 73 75 62 | the cur|rent sub|
|00000f60| 73 6b 65 6c 65 74 6f 6e | 20 69 73 20 72 65 6d 6f |skeleton| is remo|
|00000f70| 76 65 64 20 61 73 20 66 | 61 72 20 61 73 20 69 74 |ved as f|ar as it|
|00000f80| 20 68 61 73 20 62 65 65 | 6e 5c 6e 65 6e 74 65 72 | has bee|n\nenter|
|00000f90| 65 64 2e 20 20 4e 6f 20 | 6d 6f 72 65 20 6f 66 20 |ed.  No |more of |
|00000fa0| 74 68 65 20 73 6b 65 6c | 65 74 6f 6e 20 77 69 6c |the skel|eton wil|
|00000fb0| 6c 20 62 65 20 69 6e 73 | 65 72 74 65 64 2c 20 65 |l be ins|erted, e|
|00000fc0| 78 63 65 70 74 20 6d 61 | 79 62 65 20 66 6f 72 20 |xcept ma|ybe for |
|00000fd0| 61 5c 6e 73 79 6e 74 61 | 63 74 69 63 61 6c 6c 79 |a\nsynta|ctically|
|00000fe0| 20 6e 65 63 65 73 73 61 | 72 79 20 74 65 72 6d 69 | necessa|ry termi|
|00000ff0| 6e 61 74 69 6f 6e 2e 22 | 20 6d 69 6e 69 62 75 66 |nation."| minibuf|
|00001000| 66 65 72 2d 68 65 6c 70 | 2d 66 6f 72 6d 20 73 74 |fer-help|-form st|
|00001010| 72 20 72 65 61 64 2d 73 | 74 72 69 6e 67 20 66 6f |r read-s|tring fo|
|00001020| 72 6d 61 74 20 73 6b 65 | 6c 65 74 6f 6e 2d 73 75 |rmat ske|leton-su|
|00001030| 62 70 72 6f 6d 70 74 20 | 65 76 61 6c 20 22 22 20 |bprompt |eval "" |
|00001040| 73 69 67 6e 61 6c 20 71 | 75 69 74 20 74 5d 20 34 |signal q|uit t] 4|
|00001050| 5d 20 73 6b 65 6c 65 74 | 6f 6e 2d 69 6e 74 65 72 |] skelet|on-inter|
|00001060| 6e 61 6c 2d 6c 69 73 74 | 20 23 5b 28 64 65 66 69 |nal-list| #[(defi|
|00001070| 6e 69 74 69 6f 6e 20 26 | 6f 70 74 69 6f 6e 61 6c |nition &|optional|
|00001080| 20 73 74 72 20 72 65 63 | 75 72 73 69 76 65 20 73 | str rec|ursive s|
|00001090| 74 61 72 74 20 6c 69 6e | 65 29 20 22 c0 c1 c2 8f |tart lin|e) "....|
|000010a0| 87 22 20 5b 71 75 69 74 | 20 28 62 79 74 65 2d 63 |." [quit| (byte-c|
|000010b0| 6f 64 65 20 22 8a c0 79 | 88 60 29 11 69 12 09 8a |ode "..y|.`).i...|
|000010c0| c3 7f 88 60 29 7b 14 c5 | c6 0e 07 83 5c 22 00 c8 |...`){..|....\"..|
|000010d0| c9 0e 06 44 44 82 30 00 | 0e 06 3b 83 2c 00 ca 82 |...DD.0.|..;.,...|
|000010e0| 2d 00 cb 0e 06 44 45 16 | 06 0e 5c 66 60 3d 16 0d |-....DE.|..\f`=..|
|000010f0| 60 16 5c 66 0e 0e 41 89 | 16 0e 83 4e 00 cf 0e 0e |`.\f..A.|...N....|
|00001100| 40 21 88 82 33 00 0e 07 | 87 22 20 5b 30 20 73 74 |@!..3...|." [0 st|
|00001110| 61 72 74 20 63 6f 6c 75 | 6d 6e 20 6e 69 6c 20 6c |art colu|mn nil l|
|00001120| 69 6e 65 20 73 65 74 71 | 20 73 74 72 20 72 65 63 |ine setq| str rec|
|00001130| 75 72 73 69 76 65 20 73 | 6b 65 6c 65 74 6f 6e 2d |ursive s|keleton-|
|00001140| 69 6e 74 65 72 6e 61 6c | 2d 72 65 61 64 20 71 75 |internal|-read qu|
|00001150| 6f 74 65 20 72 65 61 64 | 2d 73 74 72 69 6e 67 20 |ote read|-string |
|00001160| 65 76 61 6c 20 6f 70 6f | 69 6e 74 20 6d 6f 64 69 |eval opo|int modi|
|00001170| 66 69 65 64 20 64 65 66 | 69 6e 69 74 69 6f 6e 20 |fied def|inition |
|00001180| 73 6b 65 6c 65 74 6f 6e | 2d 69 6e 74 65 72 6e 61 |skeleton|-interna|
|00001190| 6c 2d 31 5d 20 35 29 20 | 28 28 71 75 69 74 20 28 |l-1] 5) |((quit (|
|000011a0| 62 79 74 65 2d 63 6f 64 | 65 20 22 08 41 c1 3d 84 |byte-cod|e ".A.=.|
|000011b0| 16 00 c2 7f 88 0b 60 7c | 88 5c 66 63 88 c5 0e 06 |......`||.\fc....|
|000011c0| 21 88 08 41 c7 3d 3f 85 | 41 00 0e 08 83 2f 00 0e |!..A.=?.|A..../..|
|000011d0| 08 41 89 16 08 40 c9 3d | 83 1e 00 0e 08 83 39 00 |.A...@.=|......9.|
|000011e0| ca 0e 08 21 87 09 85 41 | 00 cb c0 c1 5c 22 87 22 |...!...A|....\"."|
|000011f0| 20 5b 71 75 69 74 20 72 | 65 63 75 72 73 69 76 65 | [quit r|ecursive|
|00001200| 20 6e 69 6c 20 73 74 61 | 72 74 20 6c 69 6e 65 20 | nil sta|rt line |
|00001210| 6d 6f 76 65 2d 74 6f 2d | 63 6f 6c 75 6d 6e 20 63 |move-to-|column c|
|00001220| 6f 6c 75 6d 6e 20 74 20 | 64 65 66 69 6e 69 74 69 |olumn t |definiti|
|00001230| 6f 6e 20 72 65 73 75 6d | 65 3a 20 73 6b 65 6c 65 |on resum|e: skele|
|00001240| 74 6f 6e 2d 69 6e 74 65 | 72 6e 61 6c 2d 6c 69 73 |ton-inte|rnal-lis|
|00001250| 74 20 73 69 67 6e 61 6c | 5d 20 33 29 29 29 5d 20 |t signal|] 3)))] |
|00001260| 33 5d 20 73 6b 65 6c 65 | 74 6f 6e 2d 69 6e 74 65 |3] skele|ton-inte|
|00001270| 72 6e 61 6c 2d 31 20 23 | 5b 28 65 6c 65 6d 65 6e |rnal-1 #|[(elemen|
|00001280| 74 29 20 22 08 a8 83 0f | 00 08 c1 57 83 0f 00 c2 |t) "....|...W....|
|00001290| 08 21 87 c3 08 21 83 5c | 22 00 5c 66 83 1f 00 5c |.!...!.\|".\f...\|
|000012a0| 66 08 21 82 20 00 08 63 | 87 08 c5 3d 83 2f 00 c6 |f.!. ..c|...=./..|
|000012b0| 20 88 c7 c8 21 87 08 c9 | 3d 83 38 00 ca 20 87 08 | ...!...|=.8.. ..|
|000012c0| cb 3d 83 45 00 cc 0e 0d | 69 5e 21 87 08 ce 3d 83 |.=.E....|i^!...=.|
|000012d0| 55 00 0e 0f 86 a0 00 60 | 89 16 0f 87 08 d0 3d 83 |U......`|......=.|
|000012e0| 67 00 0e 11 85 a0 00 0e | 12 41 89 16 12 87 08 d3 |g.......|.A......|
|000012f0| 3d 83 79 00 0e 11 86 a0 | 00 0e 12 41 89 16 12 87 |=.y.....|...A....|
|00001300| 08 3a 83 96 00 08 40 3b | 84 8a 00 08 40 3a 83 96 |.:....@;|....@:..|
|00001310| 00 d4 08 89 40 c8 23 85 | a0 00 82 8a 00 08 3f 86 |....@.#.|......?.|
|00001320| a0 00 d5 d6 08 21 21 87 | 22 20 5b 65 6c 65 6d 65 |.....!!.|" [eleme|
|00001330| 6e 74 20 30 20 64 65 6c | 65 74 65 2d 63 68 61 72 |nt 0 del|ete-char|
|00001340| 20 63 68 61 72 2d 6f 72 | 2d 73 74 72 69 6e 67 2d | char-or|-string-|
|00001350| 70 20 73 6b 65 6c 65 74 | 6f 6e 2d 74 72 61 6e 73 |p skelet|on-trans|
|00001360| 66 6f 72 6d 61 74 69 6f | 6e 20 6e 20 6e 65 77 6c |formatio|n n newl|
|00001370| 69 6e 65 20 69 6e 64 65 | 6e 74 2d 72 65 6c 61 74 |ine inde|nt-relat|
|00001380| 69 76 65 20 74 20 3e 20 | 69 6e 64 65 6e 74 2d 66 |ive t > |indent-f|
|00001390| 6f 72 2d 74 61 62 2d 63 | 6f 6d 6d 61 6e 64 20 3c |or-tab-c|ommand <|
|000013a0| 20 62 61 63 6b 77 61 72 | 64 2d 64 65 6c 65 74 65 | backwar|d-delete|
|000013b0| 2d 63 68 61 72 2d 75 6e | 74 61 62 69 66 79 20 74 |-char-un|tabify t|
|000013c0| 61 62 2d 77 69 64 74 68 | 20 5f 20 70 6f 69 6e 74 |ab-width| _ point|
|000013d0| 20 26 20 6d 6f 64 69 66 | 69 65 64 20 64 65 66 69 | & modif|ied defi|
|000013e0| 6e 69 74 69 6f 6e 20 7c | 20 73 6b 65 6c 65 74 6f |nition || skeleto|
|000013f0| 6e 2d 69 6e 74 65 72 6e | 61 6c 2d 6c 69 73 74 20 |n-intern|al-list |
|00001400| 73 6b 65 6c 65 74 6f 6e | 2d 69 6e 74 65 72 6e 61 |skeleton|-interna|
|00001410| 6c 2d 31 20 65 76 61 6c | 5d 20 34 5d 5d 20 33 29 |l-1 eval|] 4]] 3)|
|00001420| 0a 28 64 65 66 76 61 72 | 20 70 61 69 72 20 6e 69 |.(defvar| pair ni|
|00001430| 6c 20 22 5c 0a 2a 49 66 | 20 74 68 69 73 20 69 73 |l "\.*If| this is|
|00001440| 20 6e 69 6c 20 70 61 69 | 72 69 6e 67 20 69 73 20 | nil pai|ring is |
|00001450| 74 75 72 6e 65 64 20 6f | 66 66 2c 20 6e 6f 20 6d |turned o|ff, no m|
|00001460| 61 74 74 65 72 20 77 68 | 61 74 20 65 6c 73 65 20 |atter wh|at else |
|00001470| 69 73 20 73 65 74 2e 0a | 4f 74 68 65 72 77 69 73 |is set..|Otherwis|
|00001480| 65 20 6d 6f 64 65 73 20 | 77 69 74 68 20 60 70 61 |e modes |with `pa|
|00001490| 69 72 2d 69 6e 73 65 72 | 74 2d 6d 61 79 62 65 27 |ir-inser|t-maybe'|
|000014a0| 20 6f 6e 20 73 6f 6d 65 | 20 6b 65 79 73 20 77 69 | on some| keys wi|
|000014b0| 6c 6c 20 61 74 74 65 6d | 70 74 20 74 68 69 73 2e |ll attem|pt this.|
|000014c0| 22 29 0a 28 64 65 66 76 | 61 72 20 70 61 69 72 2d |").(defv|ar pair-|
|000014d0| 6f 6e 2d 77 6f 72 64 20 | 6e 69 6c 20 22 5c 0a 2a |on-word |nil "\.*|
|000014e0| 49 66 20 74 68 69 73 20 | 69 73 20 6e 69 6c 20 70 |If this |is nil p|
|000014f0| 61 69 72 69 6e 67 20 69 | 73 20 6e 6f 74 20 61 74 |airing i|s not at|
|00001500| 74 65 6d 70 74 65 64 20 | 62 65 66 6f 72 65 20 6f |tempted |before o|
|00001510| 72 20 69 6e 73 69 64 65 | 20 61 20 77 6f 72 64 2e |r inside| a word.|
|00001520| 22 29 0a 28 64 65 66 76 | 61 72 20 70 61 69 72 2d |").(defv|ar pair-|
|00001530| 66 69 6c 74 65 72 20 28 | 71 75 6f 74 65 20 28 6c |filter (|quote (l|
|00001540| 61 6d 62 64 61 20 6e 69 | 6c 29 29 20 22 5c 0a 41 |ambda ni|l)) "\.A|
|00001550| 74 74 65 6d 70 74 20 70 | 61 69 72 69 6e 67 20 69 |ttempt p|airing i|
|00001560| 66 20 74 68 69 73 20 66 | 75 6e 63 74 69 6f 6e 20 |f this f|unction |
|00001570| 72 65 74 75 72 6e 73 20 | 6e 69 6c 2c 20 62 65 66 |returns |nil, bef|
|00001580| 6f 72 65 20 69 6e 73 65 | 72 74 69 6e 67 2e 0a 54 |ore inse|rting..T|
|00001590| 68 69 73 20 61 6c 6c 6f | 77 73 20 66 6f 72 20 63 |his allo|ws for c|
|000015a0| 6f 6e 74 65 78 74 2d 73 | 65 6e 73 69 74 69 76 65 |ontext-s|ensitive|
|000015b0| 20 63 68 65 63 6b 69 6e | 67 20 77 68 65 74 68 65 | checkin|g whethe|
|000015c0| 72 20 70 61 69 72 69 6e | 67 20 69 73 20 61 70 70 |r pairin|g is app|
|000015d0| 72 6f 70 72 69 61 74 65 | 2e 22 29 0a 28 64 65 66 |ropriate|.").(def|
|000015e0| 76 61 72 20 70 61 69 72 | 2d 61 6c 69 73 74 20 6e |var pair|-alist n|
|000015f0| 69 6c 20 22 5c 0a 41 6e | 20 6f 76 65 72 72 69 64 |il "\.An| overrid|
|00001600| 65 20 61 6c 69 73 74 20 | 6f 66 20 70 61 69 72 69 |e alist |of pairi|
|00001610| 6e 67 20 70 61 72 74 6e | 65 72 73 20 6d 61 74 63 |ng partn|ers matc|
|00001620| 68 65 64 20 61 67 61 69 | 6e 73 74 0a 60 6c 61 73 |hed agai|nst.`las|
|00001630| 74 2d 63 6f 6d 6d 61 6e | 64 2d 63 68 61 72 27 2e |t-comman|d-char'.|
|00001640| 20 20 45 61 63 68 20 61 | 6c 69 73 74 20 65 6c 65 |  Each a|list ele|
|00001650| 6d 65 6e 74 2c 20 77 68 | 69 63 68 20 6c 6f 6f 6b |ment, wh|ich look|
|00001660| 73 20 6c 69 6b 65 20 28 | 45 4c 45 4d 45 4e 54 0a |s like (|ELEMENT.|
|00001670| 2e 2e 2e 29 2c 20 69 73 | 20 70 61 73 73 65 64 20 |...), is| passed |
|00001680| 74 6f 20 60 73 6b 65 6c | 65 74 6f 6e 2d 69 6e 73 |to `skel|eton-ins|
|00001690| 65 72 74 27 20 77 69 74 | 68 20 6e 6f 20 70 72 6f |ert' wit|h no pro|
|000016a0| 6d 70 74 2e 20 20 56 61 | 72 69 61 62 6c 65 20 60 |mpt.  Va|riable `|
|000016b0| 73 74 72 27 0a 64 6f 65 | 73 20 6e 6f 74 68 69 6e |str'.doe|s nothin|
|000016c0| 67 2e 0a 0a 45 6c 65 6d | 65 6e 74 73 20 6d 69 67 |g...Elem|ents mig|
|000016d0| 68 74 20 62 65 20 28 3f | 60 20 3f 60 20 5f 20 5c |ht be (?|` ?` _ \|
|000016e0| 22 27 27 5c 22 29 2c 20 | 28 3f 5c 5c 28 20 3f 20 |"''\"), |(?\\( ? |
|000016f0| 20 5f 20 5c 22 20 29 5c | 22 29 20 6f 72 20 28 3f | _ \" )\|") or (?|
|00001700| 7b 20 5c 5c 6e 20 3e 20 | 5f 20 5c 5c 6e 20 3c 20 |{ \\n > |_ \\n < |
|00001710| 3f 7d 29 2e 22 29 0a 28 | 64 65 66 61 6c 69 61 73 |?}).").(|defalias|
|00001720| 20 27 70 61 69 72 2d 69 | 6e 73 65 72 74 2d 6d 61 | 'pair-i|nsert-ma|
|00001730| 79 62 65 20 23 5b 28 61 | 72 67 29 20 22 08 84 17 |ybe #[(a|rg) "...|
|00001740| 00 09 83 17 00 5c 6e 84 | 12 00 c3 c4 21 84 17 00 |.....\n.|....!...|
|00001750| 0d 20 83 1d 00 c6 c7 08 | 21 21 87 0e 08 63 88 0e |. ......|!!...c..|
|00001760| 08 0e 09 9e 89 10 83 30 | 00 ca 08 cb 5c 22 87 8a |.......0|....\"..|
|00001770| 0e 08 cc 9e 41 86 3b 00 | 0e 08 63 29 87 22 20 5b |....A.;.|..c)." [|
|00001780| 61 72 67 20 70 61 69 72 | 20 70 61 69 72 2d 6f 6e |arg pair| pair-on|
|00001790| 2d 77 6f 72 64 20 6c 6f | 6f 6b 69 6e 67 2d 61 74 |-word lo|oking-at|
|000017a0| 20 22 5c 5c 77 22 20 70 | 61 69 72 2d 66 69 6c 74 | "\\w" p|air-filt|
|000017b0| 65 72 20 73 65 6c 66 2d | 69 6e 73 65 72 74 2d 63 |er self-|insert-c|
|000017c0| 6f 6d 6d 61 6e 64 20 70 | 72 65 66 69 78 2d 6e 75 |ommand p|refix-nu|
|000017d0| 6d 65 72 69 63 2d 76 61 | 6c 75 65 20 6c 61 73 74 |meric-va|lue last|
|000017e0| 2d 63 6f 6d 6d 61 6e 64 | 2d 63 68 61 72 20 70 61 |-command|-char pa|
|000017f0| 69 72 2d 61 6c 69 73 74 | 20 73 6b 65 6c 65 74 6f |ir-alist| skeleto|
|00001800| 6e 2d 69 6e 73 65 72 74 | 20 74 20 28 28 34 30 20 |n-insert| t ((40 |
|00001810| 2e 20 34 31 29 20 28 39 | 31 20 2e 20 39 33 29 20 |. 41) (9|1 . 93) |
|00001820| 28 31 32 33 20 2e 20 31 | 32 35 29 20 28 36 30 20 |(123 . 1|25) (60 |
|00001830| 2e 20 36 32 29 20 28 39 | 36 20 2e 20 33 39 29 29 |. 62) (9|6 . 39))|
|00001840| 5d 20 33 20 22 5c 0a 49 | 6e 73 65 72 74 20 74 68 |] 3 "\.I|nsert th|
|00001850| 65 20 63 68 61 72 61 63 | 74 65 72 20 79 6f 75 20 |e charac|ter you |
|00001860| 74 79 70 65 20 41 52 47 | 20 74 69 6d 65 73 2e 0a |type ARG| times..|
|00001870| 0a 57 69 74 68 20 6e 6f | 20 41 52 47 2c 20 69 66 |.With no| ARG, if|
|00001880| 20 60 70 61 69 72 27 20 | 69 73 20 6e 6f 6e 2d 6e | `pair' |is non-n|
|00001890| 69 6c 2c 20 61 6e 64 20 | 69 66 0a 60 70 61 69 72 |il, and |if.`pair|
|000018a0| 2d 6f 6e 2d 77 6f 72 64 | 27 20 69 73 20 6e 6f 6e |-on-word|' is non|
|000018b0| 2d 6e 69 6c 20 6f 72 20 | 77 65 20 61 72 65 20 6e |-nil or |we are n|
|000018c0| 6f 74 20 62 65 66 6f 72 | 65 20 6f 72 20 69 6e 73 |ot befor|e or ins|
|000018d0| 69 64 65 20 61 0a 77 6f | 72 64 2c 20 61 6e 64 20 |ide a.wo|rd, and |
|000018e0| 69 66 20 60 70 61 69 72 | 2d 66 69 6c 74 65 72 27 |if `pair|-filter'|
|000018f0| 20 72 65 74 75 72 6e 73 | 20 6e 69 6c 2c 20 70 61 | returns| nil, pa|
|00001900| 69 72 69 6e 67 20 69 73 | 20 70 65 72 66 6f 72 6d |iring is| perform|
|00001910| 65 64 2e 0a 0a 49 66 20 | 61 20 6d 61 74 63 68 20 |ed...If |a match |
|00001920| 69 73 20 66 6f 75 6e 64 | 20 69 6e 20 60 70 61 69 |is found| in `pai|
|00001930| 72 2d 61 6c 69 73 74 27 | 2c 20 74 68 61 74 20 69 |r-alist'|, that i|
|00001940| 73 20 69 6e 73 65 72 74 | 65 64 2c 20 65 6c 73 65 |s insert|ed, else|
|00001950| 0a 74 68 65 20 64 65 66 | 61 75 6c 74 73 20 61 72 |.the def|aults ar|
|00001960| 65 20 75 73 65 64 2e 20 | 20 54 68 65 73 65 20 61 |e used. | These a|
|00001970| 72 65 20 28 29 2c 20 5b | 5d 2c 20 7b 7d 2c 20 3c |re (), [|], {}, <|
|00001980| 3e 20 61 6e 64 20 60 27 | 20 66 6f 72 20 74 68 65 |> and `'| for the|
|00001990| 0a 73 79 6d 6d 65 74 72 | 69 63 61 6c 20 6f 6e 65 |.symmetr|ical one|
|000019a0| 73 2c 20 61 6e 64 20 74 | 68 65 20 73 61 6d 65 20 |s, and t|he same |
|000019b0| 63 68 61 72 61 63 74 65 | 72 20 74 77 69 63 65 20 |characte|r twice |
|000019c0| 66 6f 72 20 74 68 65 20 | 6f 74 68 65 72 73 2e 22 |for the |others."|
|000019d0| 20 22 2a 50 22 5d 29 0a |                         | "*P"]).|        |
+--------+-------------------------+-------------------------+--------+--------+