/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / lucid / lemacs-19.6 / lisp / prim / subr.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 6c 7a 40 61 73 68 |piled by| jlz@ash|
|00000020| 77 65 64 6e 65 73 64 61 | 79 20 6f 6e 20 4d 6f 6e |wednesda|y on Mon|
|00000030| 20 4d 61 72 20 31 35 20 | 30 30 3a 31 35 3a 32 37 | Mar 15 |00:15:27|
|00000040| 20 31 39 39 33 0a 3b 3b | 3b 20 66 72 6f 6d 20 66 | 1993.;;|; from f|
|00000050| 69 6c 65 20 2f 63 61 64 | 69 6c 6c 61 63 2d 61 77 |ile /cad|illac-aw|
|00000060| 32 2f 74 65 73 74 62 69 | 6e 2d 62 75 69 6c 64 73 |2/testbi|n-builds|
|00000070| 2f 6c 65 6d 61 63 73 2f | 6c 69 73 70 2f 70 72 69 |/lemacs/|lisp/pri|
|00000080| 6d 2f 73 75 62 72 2e 65 | 6c 0a 3b 3b 3b 20 65 6d |m/subr.e|l.;;; em|
|00000090| 61 63 73 20 76 65 72 73 | 69 6f 6e 20 31 39 2e 36 |acs vers|ion 19.6|
|000000a0| 20 28 62 65 74 61 32 29 | 20 4c 75 63 69 64 2e 0a | (beta2)| Lucid..|
|000000b0| 3b 3b 3b 20 62 79 74 65 | 63 6f 6d 70 20 76 65 72 |;;; byte|comp ver|
|000000c0| 73 69 6f 6e 20 32 2e 31 | 30 3b 20 31 36 2d 66 65 |sion 2.1|0; 16-fe|
|000000d0| 62 2d 39 33 2e 0a 3b 3b | 3b 20 6f 70 74 69 6d 69 |b-93..;;|; optimi|
|000000e0| 7a 61 74 69 6f 6e 20 69 | 73 20 6f 6e 2e 0a 3b 3b |zation i|s on..;;|
|000000f0| 3b 20 74 68 69 73 20 66 | 69 6c 65 20 75 73 65 73 |; this f|ile uses|
|00000100| 20 6f 70 63 6f 64 65 73 | 20 77 68 69 63 68 20 64 | opcodes| which d|
|00000110| 6f 20 6e 6f 74 20 65 78 | 69 73 74 20 69 6e 20 45 |o not ex|ist in E|
|00000120| 6d 61 63 73 31 38 2e 0a | 0a 28 69 66 20 28 61 6e |macs18..|.(if (an|
|00000130| 64 20 28 62 6f 75 6e 64 | 70 20 27 65 6d 61 63 73 |d (bound|p 'emacs|
|00000140| 2d 76 65 72 73 69 6f 6e | 29 0a 09 20 28 6f 72 20 |-version|).. (or |
|00000150| 28 61 6e 64 20 28 62 6f | 75 6e 64 70 20 27 65 70 |(and (bo|undp 'ep|
|00000160| 6f 63 68 3a 3a 76 65 72 | 73 69 6f 6e 29 20 65 70 |och::ver|sion) ep|
|00000170| 6f 63 68 3a 3a 76 65 72 | 73 69 6f 6e 29 0a 09 20 |och::ver|sion).. |
|00000180| 20 20 20 20 28 73 74 72 | 69 6e 67 2d 6c 65 73 73 |    (str|ing-less|
|00000190| 70 20 65 6d 61 63 73 2d | 76 65 72 73 69 6f 6e 20 |p emacs-|version |
|000001a0| 22 31 39 22 29 29 29 0a | 20 20 20 20 28 65 72 72 |"19"))).|    (err|
|000001b0| 6f 72 20 22 54 68 69 73 | 20 66 69 6c 65 20 77 61 |or "This| file 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 31 39 2e 22 | 29 29 0a 0a 28 64 65 66 |macs19."|))..(def|
|000001e0| 76 61 72 20 6b 69 6c 6c | 2d 62 75 66 66 65 72 2d |var kill|-buffer-|
|000001f0| 68 6f 6f 6b 20 6e 69 6c | 20 22 5c 0a 46 75 6e 63 |hook nil| "\.Func|
|00000200| 74 69 6f 6e 20 6f 72 20 | 66 75 6e 63 74 69 6f 6e |tion or |function|
|00000210| 73 20 74 6f 20 62 65 20 | 63 61 6c 6c 65 64 20 77 |s to be |called w|
|00000220| 68 65 6e 20 61 20 62 75 | 66 66 65 72 20 69 73 20 |hen a bu|ffer is |
|00000230| 6b 69 6c 6c 65 64 2e 0a | 54 68 65 20 76 61 6c 75 |killed..|The valu|
|00000240| 65 20 6f 66 20 74 68 69 | 73 20 76 61 72 69 61 62 |e of thi|s variab|
|00000250| 6c 65 20 6d 61 79 20 62 | 65 20 62 75 66 66 65 72 |le may b|e buffer|
|00000260| 2d 6c 6f 63 61 6c 2e 0a | 54 68 65 20 62 75 66 66 |-local..|The buff|
|00000270| 65 72 20 61 62 6f 75 74 | 20 74 6f 20 62 65 20 6b |er about| to be k|
|00000280| 69 6c 6c 65 64 20 69 73 | 20 63 75 72 72 65 6e 74 |illed is| current|
|00000290| 20 77 68 65 6e 20 74 68 | 69 73 20 68 6f 6f 6b 20 | when th|is hook |
|000002a0| 69 73 20 72 75 6e 2e 22 | 29 0a 28 66 73 65 74 20 |is run."|).(fset |
|000002b0| 27 67 65 6e 65 72 61 74 | 65 2d 6e 65 77 2d 62 75 |'generat|e-new-bu|
|000002c0| 66 66 65 72 20 23 5b 28 | 6e 61 6d 65 29 20 22 c0 |ffer #[(|name) ".|
|000002d0| c1 5c 6e 21 21 87 22 20 | 5b 67 65 74 2d 62 75 66 |.\n!!." |[get-buf|
|000002e0| 66 65 72 2d 63 72 65 61 | 74 65 20 67 65 6e 65 72 |fer-crea|te gener|
|000002f0| 61 74 65 2d 6e 65 77 2d | 62 75 66 66 65 72 2d 6e |ate-new-|buffer-n|
|00000300| 61 6d 65 20 6e 61 6d 65 | 5d 20 33 20 22 5c 0a 43 |ame name|] 3 "\.C|
|00000310| 72 65 61 74 65 20 61 6e | 64 20 72 65 74 75 72 6e |reate an|d return|
|00000320| 20 61 20 62 75 66 66 65 | 72 20 77 69 74 68 20 61 | a buffe|r with a|
|00000330| 20 6e 61 6d 65 20 62 61 | 73 65 64 20 6f 6e 20 4e | name ba|sed on N|
|00000340| 41 4d 45 2e 0a 43 68 6f | 6f 73 65 20 74 68 65 20 |AME..Cho|ose the |
|00000350| 62 75 66 66 65 72 27 73 | 20 6e 61 6d 65 20 75 73 |buffer's| name us|
|00000360| 69 6e 67 20 60 67 65 6e | 65 72 61 74 65 2d 6e 65 |ing `gen|erate-ne|
|00000370| 77 2d 62 75 66 66 65 72 | 2d 6e 61 6d 65 27 2e 22 |w-buffer|-name'."|
|00000380| 5d 29 0a 28 66 73 65 74 | 20 27 6f 6e 65 2d 77 69 |]).(fset| 'one-wi|
|00000390| 6e 64 6f 77 2d 70 20 23 | 5b 28 26 6f 70 74 69 6f |ndow-p #|[(&optio|
|000003a0| 6e 61 6c 20 6e 6f 6d 69 | 6e 69 29 20 22 c0 20 c1 |nal nomi|ni) ". .|
|000003b0| c0 20 5c 6e ad 81 c2 5c | 22 3d 87 22 20 5b 73 65 |. \n...\|"=." [se|
|000003c0| 6c 65 63 74 65 64 2d 77 | 69 6e 64 6f 77 20 6e 65 |lected-w|indow ne|
|000003d0| 78 74 2d 77 69 6e 64 6f | 77 20 6e 6f 6d 69 6e 69 |xt-windo|w nomini|
|000003e0| 5d 20 34 20 22 5c 0a 52 | 65 74 75 72 6e 73 20 6e |] 4 "\.R|eturns n|
|000003f0| 6f 6e 2d 6e 69 6c 20 69 | 66 20 74 68 65 72 65 20 |on-nil i|f there |
|00000400| 69 73 20 6f 6e 6c 79 20 | 6f 6e 65 20 77 69 6e 64 |is only |one wind|
|00000410| 6f 77 2e 0a 4f 70 74 69 | 6f 6e 61 6c 20 61 72 67 |ow..Opti|onal arg|
|00000420| 20 4e 4f 4d 49 4e 49 20 | 6e 6f 6e 2d 6e 69 6c 20 | NOMINI |non-nil |
|00000430| 6d 65 61 6e 73 20 64 6f | 6e 27 74 20 63 6f 75 6e |means do|n't coun|
|00000440| 74 20 74 68 65 20 6d 69 | 6e 69 62 75 66 66 65 72 |t the mi|nibuffer|
|00000450| 0a 65 76 65 6e 20 69 66 | 20 69 74 20 69 73 20 61 |.even if| it is a|
|00000460| 63 74 69 76 65 2e 22 5d | 29 0a 28 66 73 65 74 20 |ctive."]|).(fset |
|00000470| 27 77 61 6c 6b 2d 77 69 | 6e 64 6f 77 73 20 23 5b |'walk-wi|ndows #[|
|00000480| 28 70 72 6f 63 20 26 6f | 70 74 69 6f 6e 61 6c 20 |(proc &o|ptional |
|00000490| 6d 69 6e 69 62 75 66 20 | 61 6c 6c 2d 73 63 72 65 |minibuf |all-scre|
|000004a0| 65 6e 73 29 20 22 c0 20 | 89 19 1a c3 5c 6e 0c 0d |ens) ". |....\n..|
|000004b0| 23 12 0e 06 5c 6e 21 88 | 5c 6e 09 3d 3f ad 82 aa |#...\n!.|\n.=?...|
|000004c0| 6d 2a 87 22 20 5b 73 65 | 6c 65 63 74 65 64 2d 77 |m*." [se|lected-w|
|000004d0| 69 6e 64 6f 77 20 77 61 | 6c 6b 2d 77 69 6e 64 6f |indow wa|lk-windo|
|000004e0| 77 73 2d 73 74 61 72 74 | 20 77 61 6c 6b 2d 77 69 |ws-start| walk-wi|
|000004f0| 6e 64 6f 77 73 2d 63 75 | 72 72 65 6e 74 20 6e 65 |ndows-cu|rrent ne|
|00000500| 78 74 2d 77 69 6e 64 6f | 77 20 6d 69 6e 69 62 75 |xt-windo|w minibu|
|00000510| 66 20 61 6c 6c 2d 73 63 | 72 65 65 6e 73 20 70 72 |f all-sc|reens pr|
|00000520| 6f 63 5d 20 35 20 22 5c | 0a 43 79 63 6c 65 20 74 |oc] 5 "\|.Cycle t|
|00000530| 68 72 6f 75 67 68 20 61 | 6c 6c 20 76 69 73 69 62 |hrough a|ll visib|
|00000540| 6c 65 20 77 69 6e 64 6f | 77 73 2c 20 63 61 6c 6c |le windo|ws, call|
|00000550| 69 6e 67 20 50 52 4f 43 | 20 66 6f 72 20 65 61 63 |ing PROC| for eac|
|00000560| 68 20 6f 6e 65 2e 0a 50 | 52 4f 43 20 69 73 20 63 |h one..P|ROC is c|
|00000570| 61 6c 6c 65 64 20 77 69 | 74 68 20 61 20 77 69 6e |alled wi|th a win|
|00000580| 64 6f 77 20 61 73 20 61 | 72 67 75 6d 65 6e 74 2e |dow as a|rgument.|
|00000590| 0a 4f 70 74 69 6f 6e 61 | 6c 20 73 65 63 6f 6e 64 |.Optiona|l second|
|000005a0| 20 61 72 67 20 4d 49 4e | 49 42 55 46 20 74 20 6d | arg MIN|IBUF t m|
|000005b0| 65 61 6e 73 20 63 6f 75 | 6e 74 20 74 68 65 20 6d |eans cou|nt the m|
|000005c0| 69 6e 69 62 75 66 66 65 | 72 20 77 69 6e 64 6f 77 |inibuffe|r window|
|000005d0| 0a 65 76 65 6e 20 69 66 | 20 6e 6f 74 20 61 63 74 |.even if| not act|
|000005e0| 69 76 65 2e 20 20 49 66 | 20 4d 49 4e 49 42 55 46 |ive.  If| MINIBUF|
|000005f0| 20 69 73 20 6e 65 69 74 | 68 65 72 20 74 20 6e 6f | is neit|her t no|
|00000600| 72 20 6e 69 6c 20 69 74 | 20 6d 65 61 6e 73 0a 6e |r nil it| means.n|
|00000610| 6f 74 20 74 6f 20 63 6f | 75 6e 74 20 74 68 65 20 |ot to co|unt the |
|00000620| 6d 69 6e 69 62 75 66 66 | 65 72 20 65 76 65 6e 20 |minibuff|er even |
|00000630| 69 66 20 69 74 20 69 73 | 20 61 63 74 69 76 65 2e |if it is| active.|
|00000640| 0a 4f 70 74 69 6f 6e 61 | 6c 20 74 68 69 72 64 20 |.Optiona|l third |
|00000650| 61 72 67 20 41 4c 4c 2d | 53 43 52 45 45 4e 53 20 |arg ALL-|SCREENS |
|00000660| 74 20 6d 65 61 6e 73 20 | 69 6e 63 6c 75 64 65 20 |t means |include |
|00000670| 61 6c 6c 20 77 69 6e 64 | 6f 77 73 20 69 6e 20 61 |all wind|ows in a|
|00000680| 6c 6c 20 73 63 72 65 65 | 6e 73 3b 0a 6f 74 68 65 |ll scree|ns;.othe|
|00000690| 72 77 69 73 65 20 63 79 | 63 6c 65 20 77 69 74 68 |rwise cy|cle with|
|000006a0| 69 6e 20 74 68 65 20 73 | 65 6c 65 63 74 65 64 20 |in the s|elected |
|000006b0| 73 63 72 65 65 6e 2e 22 | 5d 29 0a 28 66 73 65 74 |screen."|]).(fset|
|000006c0| 20 27 72 65 61 64 2d 71 | 75 6f 74 65 64 2d 63 68 | 'read-q|uoted-ch|
|000006d0| 61 72 20 23 5b 28 26 6f | 70 74 69 6f 6e 61 6c 20 |ar #[(&o|ptional |
|000006e0| 70 72 6f 6d 70 74 29 20 | 22 c0 89 c1 1a 1b 1c 0c |prompt) |".......|
|000006f0| c5 57 ab df 0c c0 55 c1 | 1e 06 1e 07 0e 08 ab 86 |.W....U.|........|
|00000700| c9 ca 0e 08 5c 22 88 cb | 20 12 0e 07 ab 83 c1 16 |....\"..| .......|
|00000710| 0c 2a 5c 6e ab 5b cd 5c | 6e 58 ab a2 5c 6e ce 58 |.*\n.[.\|nX..\n.X|
|00000720| ab 9d 0b cf 5f 5c 6e cd | 5a 5c 5c 13 0c 54 14 0e |...._\n.|Z\\..T..|
|00000730| 08 ab 42 c9 d0 d1 0e 08 | 5c 6e 23 89 16 08 21 88 |..B.....|\n#...!.|
|00000740| aa 34 0c c0 56 ab 8c d2 | 5c 6e d3 20 5c 22 16 14 |.4..V...|\n. \"..|
|00000750| d5 89 14 aa 24 5c 6e 13 | d5 89 14 aa 1d d6 0b d7 |....$\n.|........|
|00000760| 5c 22 2b 87 22 20 5b 30 | 20 6e 69 6c 20 63 68 61 |\"+." [0| nil cha|
|00000770| 72 20 63 6f 64 65 20 63 | 6f 75 6e 74 20 33 20 68 |r code c|ount 3 h|
|00000780| 65 6c 70 2d 66 6f 72 6d | 20 69 6e 68 69 62 69 74 |elp-form| inhibit|
|00000790| 2d 71 75 69 74 20 70 72 | 6f 6d 70 74 20 6d 65 73 |-quit pr|ompt mes|
|000007a0| 73 61 67 65 20 22 25 73 | 2d 22 20 72 65 61 64 2d |sage "%s|-" read-|
|000007b0| 63 68 61 72 20 71 75 69 | 74 2d 66 6c 61 67 20 34 |char qui|t-flag 4|
|000007c0| 38 20 35 35 20 38 20 66 | 6f 72 6d 61 74 20 22 25 |8 55 8 f|ormat "%|
|000007d0| 73 20 25 63 22 20 63 68 | 61 72 61 63 74 65 72 2d |s %c" ch|aracter-|
|000007e0| 74 6f 2d 65 76 65 6e 74 | 20 61 6c 6c 6f 63 61 74 |to-event| allocat|
|000007f0| 65 2d 65 76 65 6e 74 20 | 75 6e 72 65 61 64 2d 63 |e-event |unread-c|
|00000800| 6f 6d 6d 61 6e 64 2d 65 | 76 65 6e 74 20 32 35 39 |ommand-e|vent 259|
|00000810| 20 6c 6f 67 61 6e 64 20 | 32 35 35 5d 20 36 20 22 | logand |255] 6 "|
|00000820| 5c 0a 4c 69 6b 65 20 60 | 72 65 61 64 2d 63 68 61 |\.Like `|read-cha|
|00000830| 72 27 2c 20 65 78 63 65 | 70 74 20 74 68 61 74 20 |r', exce|pt that |
|00000840| 69 66 20 74 68 65 20 66 | 69 72 73 74 20 63 68 61 |if the f|irst cha|
|00000850| 72 61 63 74 65 72 20 72 | 65 61 64 20 69 73 20 61 |racter r|ead is a|
|00000860| 6e 20 6f 63 74 61 6c 0a | 64 69 67 69 74 2c 20 77 |n octal.|digit, w|
|00000870| 65 20 72 65 61 64 20 75 | 70 20 74 6f 20 74 77 6f |e read u|p to two|
|00000880| 20 6d 6f 72 65 20 6f 63 | 74 61 6c 20 64 69 67 69 | more oc|tal digi|
|00000890| 74 73 20 61 6e 64 20 72 | 65 74 75 72 6e 20 74 68 |ts and r|eturn th|
|000008a0| 65 20 63 68 61 72 61 63 | 74 65 72 0a 72 65 70 72 |e charac|ter.repr|
|000008b0| 65 73 65 6e 74 65 64 20 | 62 79 20 74 68 65 20 6f |esented |by the o|
|000008c0| 63 74 61 6c 20 6e 75 6d | 62 65 72 20 63 6f 6e 73 |ctal num|ber cons|
|000008d0| 69 73 74 69 6e 67 20 6f | 66 20 74 68 6f 73 65 20 |isting o|f those |
|000008e0| 64 69 67 69 74 73 2e 0a | 4f 70 74 69 6f 6e 61 6c |digits..|Optional|
|000008f0| 20 61 72 67 75 6d 65 6e | 74 20 50 52 4f 4d 50 54 | argumen|t PROMPT|
|00000900| 20 73 70 65 63 69 66 69 | 65 73 20 61 20 73 74 72 | specifi|es a str|
|00000910| 69 6e 67 20 74 6f 20 75 | 73 65 20 74 6f 20 70 72 |ing to u|se to pr|
|00000920| 6f 6d 70 74 20 74 68 65 | 20 75 73 65 72 2e 22 5d |ompt the| user."]|
|00000930| 29 0a 28 66 73 65 74 20 | 27 65 72 72 6f 72 20 23 |).(fset |'error #|
|00000940| 5b 28 26 72 65 73 74 20 | 61 72 67 73 29 20 22 c0 |[(&rest |args) ".|
|00000950| c1 c2 c3 0c 5c 22 43 5c | 22 88 aa 75 22 20 5b 73 |....\"C\|"..u" [s|
|00000960| 69 67 6e 61 6c 20 65 72 | 72 6f 72 20 61 70 70 6c |ignal er|ror appl|
|00000970| 79 20 66 6f 72 6d 61 74 | 20 61 72 67 73 5d 20 35 |y format| args] 5|
|00000980| 20 22 5c 0a 53 69 67 6e | 61 6c 20 61 6e 20 65 72 | "\.Sign|al an er|
|00000990| 72 6f 72 2c 20 6d 61 6b | 69 6e 67 20 65 72 72 6f |ror, mak|ing erro|
|000009a0| 72 20 6d 65 73 73 61 67 | 65 20 62 79 20 70 61 73 |r messag|e by pas|
|000009b0| 73 69 6e 67 20 61 6c 6c | 20 61 72 67 73 20 74 6f |sing all| args to|
|000009c0| 20 60 66 6f 72 6d 61 74 | 27 2e 22 5d 29 0a 28 66 | `format|'."]).(f|
|000009d0| 73 65 74 20 27 75 6e 64 | 65 66 69 6e 65 64 20 23 |set 'und|efined #|
|000009e0| 5b 6e 69 6c 20 22 c0 20 | 87 22 20 5b 64 69 6e 67 |[nil ". |." [ding|
|000009f0| 5d 20 31 20 6e 69 6c 20 | 6e 69 6c 5d 29 0a 28 64 |] 1 nil |nil]).(d|
|00000a00| 65 66 75 6e 20 62 61 75 | 64 2d 72 61 74 65 20 6e |efun bau|d-rate n|
|00000a10| 69 6c 20 22 5c 0a 4f 62 | 73 6f 6c 65 74 65 20 66 |il "\.Ob|solete f|
|00000a20| 75 6e 63 74 69 6f 6e 20 | 72 65 74 75 72 6e 69 6e |unction |returnin|
|00000a30| 67 20 74 68 65 20 76 61 | 6c 75 65 20 6f 66 20 74 |g the va|lue of t|
|00000a40| 68 65 20 60 62 61 75 64 | 2d 72 61 74 65 27 20 76 |he `baud|-rate' v|
|00000a50| 61 72 69 61 62 6c 65 2e | 22 20 62 61 75 64 2d 72 |ariable.|" baud-r|
|00000a60| 61 74 65 29 0a 28 70 75 | 74 20 27 75 6e 64 65 66 |ate).(pu|t 'undef|
|00000a70| 69 6e 65 64 20 27 73 75 | 70 70 72 65 73 73 2d 6b |ined 'su|ppress-k|
|00000a80| 65 79 6d 61 70 20 74 29 | 0a 28 66 73 65 74 20 27 |eymap t)|.(fset '|
|00000a90| 73 75 70 70 72 65 73 73 | 2d 6b 65 79 6d 61 70 20 |suppress|-keymap |
|00000aa0| 23 5b 28 6d 61 70 20 26 | 6f 70 74 69 6f 6e 61 6c |#[(map &|optional|
|00000ab0| 20 6e 6f 64 69 67 69 74 | 73 29 20 22 c0 c1 5c 6e | nodigit|s) "..\n|
|00000ac0| 5c 22 88 0b ae aa c4 c5 | c6 5c 22 1e 07 c8 0e 09 |\"......|.\".....|
|00000ad0| ca cb 23 88 0e 07 cc 48 | cd 58 ad 94 c8 0e 09 0e |..#....H|.X......|
|00000ae0| 07 ce 23 88 0e 07 cc 0e | 07 cc 48 54 49 88 aa 64 |..#.....|..HTI..d|
|00000af0| 29 87 22 20 5b 6d 61 70 | 2d 6b 65 79 6d 61 70 20 |)." [map|-keymap |
|00000b00| 23 5b 28 6b 65 79 20 62 | 69 6e 64 69 6e 67 29 20 |#[(key b|inding) |
|00000b10| 22 08 c1 3d ad 87 c2 0b | c4 0d 21 c6 23 87 22 20 |"..=....|..!.#." |
|00000b20| 5b 62 69 6e 64 69 6e 67 | 20 73 65 6c 66 2d 69 6e |[binding| self-in|
|00000b30| 73 65 72 74 2d 63 6f 6d | 6d 61 6e 64 20 64 65 66 |sert-com|mand def|
|00000b40| 69 6e 65 2d 6b 65 79 20 | 6d 61 70 20 76 65 63 74 |ine-key |map vect|
|00000b50| 6f 72 20 6b 65 79 20 75 | 6e 64 65 66 69 6e 65 64 |or key u|ndefined|
|00000b60| 5d 20 34 5d 20 67 6c 6f | 62 61 6c 2d 6d 61 70 20 |] 4] glo|bal-map |
|00000b70| 6e 6f 64 69 67 69 74 73 | 20 6d 61 6b 65 2d 73 74 |nodigits| make-st|
|00000b80| 72 69 6e 67 20 31 20 34 | 38 20 73 74 72 69 6e 67 |ring 1 4|8 string|
|00000b90| 20 64 65 66 69 6e 65 2d | 6b 65 79 20 6d 61 70 20 | define-|key map |
|00000ba0| 22 2d 22 20 6e 65 67 61 | 74 69 76 65 2d 61 72 67 |"-" nega|tive-arg|
|00000bb0| 75 6d 65 6e 74 20 30 20 | 35 37 20 64 69 67 69 74 |ument 0 |57 digit|
|00000bc0| 2d 61 72 67 75 6d 65 6e | 74 5d 20 34 20 22 5c 0a |-argumen|t] 4 "\.|
|00000bd0| 4d 61 6b 65 20 4d 41 50 | 20 6f 76 65 72 72 69 64 |Make MAP| overrid|
|00000be0| 65 20 61 6c 6c 20 6e 6f | 72 6d 61 6c 6c 79 20 73 |e all no|rmally s|
|00000bf0| 65 6c 66 2d 69 6e 73 65 | 72 74 69 6e 67 20 6b 65 |elf-inse|rting ke|
|00000c00| 79 73 20 74 6f 20 62 65 | 20 75 6e 64 65 66 69 6e |ys to be| undefin|
|00000c10| 65 64 2e 0a 4e 6f 72 6d | 61 6c 6c 79 2c 20 61 73 |ed..Norm|ally, as|
|00000c20| 20 61 6e 20 65 78 63 65 | 70 74 69 6f 6e 2c 20 64 | an exce|ption, d|
|00000c30| 69 67 69 74 73 20 61 6e | 64 20 6d 69 6e 75 73 2d |igits an|d minus-|
|00000c40| 73 69 67 6e 20 61 72 65 | 20 73 65 74 20 74 6f 20 |sign are| set to |
|00000c50| 6d 61 6b 65 20 70 72 65 | 66 69 78 20 61 72 67 73 |make pre|fix args|
|00000c60| 2c 0a 62 75 74 20 6f 70 | 74 69 6f 6e 61 6c 20 73 |,.but op|tional s|
|00000c70| 65 63 6f 6e 64 20 61 72 | 67 20 4e 4f 44 49 47 49 |econd ar|g NODIGI|
|00000c80| 54 53 20 6e 6f 6e 2d 6e | 69 6c 20 74 72 65 61 74 |TS non-n|il treat|
|00000c90| 73 20 74 68 65 6d 20 6c | 69 6b 65 20 6f 74 68 65 |s them l|ike othe|
|00000ca0| 72 20 63 68 61 72 73 2e | 22 5d 29 0a 28 66 73 65 |r chars.|"]).(fse|
|00000cb0| 74 20 27 73 75 62 73 74 | 69 74 75 74 65 2d 6b 65 |t 'subst|itute-ke|
|00000cc0| 79 2d 64 65 66 69 6e 69 | 74 69 6f 6e 20 23 5b 28 |y-defini|tion #[(|
|00000cd0| 6f 6c 64 64 65 66 20 6e | 65 77 64 65 66 20 6b 65 |olddef n|ewdef ke|
|00000ce0| 79 6d 61 70 29 20 22 c0 | c1 5c 6e 5c 22 87 22 20 |ymap) ".|.\n\"." |
|00000cf0| 5b 6d 61 70 2d 6b 65 79 | 6d 61 70 20 23 5b 28 6b |[map-key|map #[(k|
|00000d00| 65 79 20 62 69 6e 64 69 | 6e 67 29 20 22 08 09 3d |ey bindi|ng) "..=|
|00000d10| ad 85 c2 0b 0c 0d 23 87 | 22 20 5b 62 69 6e 64 69 |......#.|" [bindi|
|00000d20| 6e 67 20 6f 6c 64 64 65 | 66 20 64 65 66 69 6e 65 |ng oldde|f define|
|00000d30| 2d 6b 65 79 20 6b 65 79 | 6d 61 70 20 6b 65 79 20 |-key key|map key |
|00000d40| 6e 65 77 64 65 66 5d 20 | 34 5d 20 6b 65 79 6d 61 |newdef] |4] keyma|
|00000d50| 70 5d 20 33 20 22 5c 0a | 52 65 70 6c 61 63 65 20 |p] 3 "\.|Replace |
|00000d60| 4f 4c 44 44 45 46 20 77 | 69 74 68 20 4e 45 57 44 |OLDDEF w|ith NEWD|
|00000d70| 45 46 20 66 6f 72 20 61 | 6e 79 20 6b 65 79 73 20 |EF for a|ny keys |
|00000d80| 69 6e 20 4b 45 59 4d 41 | 50 20 6e 6f 77 20 64 65 |in KEYMA|P now de|
|00000d90| 66 69 6e 65 64 20 61 73 | 20 4f 4c 44 44 45 46 2e |fined as| OLDDEF.|
|00000da0| 0a 49 6e 20 6f 74 68 65 | 72 20 77 6f 72 64 73 2c |.In othe|r words,|
|00000db0| 20 4f 4c 44 44 45 46 20 | 69 73 20 72 65 70 6c 61 | OLDDEF |is repla|
|00000dc0| 63 65 64 20 77 69 74 68 | 20 4e 45 57 44 45 46 20 |ced with| NEWDEF |
|00000dd0| 77 68 65 72 65 20 65 76 | 65 72 20 69 74 20 61 70 |where ev|er it ap|
|00000de0| 70 65 61 72 73 2e 0a 50 | 72 65 66 69 78 20 6b 65 |pears..P|refix ke|
|00000df0| 79 6d 61 70 73 20 72 65 | 61 63 68 65 64 20 66 72 |ymaps re|ached fr|
|00000e00| 6f 6d 20 4b 45 59 4d 41 | 50 20 61 72 65 20 6e 6f |om KEYMA|P are no|
|00000e10| 74 20 63 68 65 63 6b 65 | 64 20 72 65 63 75 72 73 |t checke|d recurs|
|00000e20| 69 76 65 6c 79 3b 0a 70 | 65 72 68 61 70 73 20 74 |ively;.p|erhaps t|
|00000e30| 68 65 79 20 6f 75 67 68 | 74 20 74 6f 20 62 65 2e |hey ough|t to be.|
|00000e40| 22 5d 29 0a 28 66 73 65 | 74 20 27 73 61 76 65 2d |"]).(fse|t 'save-|
|00000e50| 6d 61 74 63 68 2d 64 61 | 74 61 20 27 28 6d 61 63 |match-da|ta '(mac|
|00000e60| 72 6f 20 2e 20 23 5b 28 | 26 72 65 73 74 20 62 6f |ro . #[(|&rest bo|
|00000e70| 64 79 29 20 22 c0 c1 c2 | c3 0c 42 c5 45 45 87 22 |dy) "...|..B.EE."|
|00000e80| 20 5b 6c 65 74 20 28 28 | 5f 6d 61 74 63 68 5f 64 | [let ((|_match_d|
|00000e90| 61 74 61 5f 20 28 6d 61 | 74 63 68 2d 64 61 74 61 |ata_ (ma|tch-data|
|00000ea0| 29 29 29 20 75 6e 77 69 | 6e 64 2d 70 72 6f 74 65 |))) unwi|nd-prote|
|00000eb0| 63 74 20 70 72 6f 67 6e | 20 62 6f 64 79 20 28 73 |ct progn| body (s|
|00000ec0| 74 6f 72 65 2d 6d 61 74 | 63 68 2d 64 61 74 61 20 |tore-mat|ch-data |
|00000ed0| 5f 6d 61 74 63 68 5f 64 | 61 74 61 5f 29 5d 20 35 |_match_d|ata_)] 5|
|00000ee0| 20 22 5c 0a 45 78 65 63 | 75 74 65 20 74 68 65 20 | "\.Exec|ute the |
|00000ef0| 42 4f 44 59 20 66 6f 72 | 6d 73 2c 20 72 65 73 74 |BODY for|ms, rest|
|00000f00| 6f 72 69 6e 67 20 74 68 | 65 20 67 6c 6f 62 61 6c |oring th|e global|
|00000f10| 20 76 61 6c 75 65 20 6f | 66 20 74 68 65 20 6d 61 | value o|f the ma|
|00000f20| 74 63 68 20 64 61 74 61 | 2e 22 5d 29 29 0a 28 62 |tch data|."])).(b|
|00000f30| 79 74 65 2d 63 6f 64 65 | 20 22 c0 c1 4d 88 c2 c3 |yte-code| "..M...|
|00000f40| 4d 88 c4 c5 4d 88 c6 c7 | 4d 88 c8 c9 4d 88 ca cb |M...M...|M...M...|
|00000f50| 4d 88 cc cd 4d 88 ce cf | 4d 88 d0 d1 4d 88 d2 d3 |M...M...|M...M...|
|00000f60| 4d 88 d4 d5 4d 88 d6 d7 | 4d 88 d8 d9 4d 88 da db |M...M...|M...M...|
|00000f70| 4d 88 dc dd 4d 88 de df | 4d 88 e0 e1 4d 88 e2 e3 |M...M...|M...M...|
|00000f80| 4d 88 e4 e5 4d 88 e6 e7 | 4d 88 e8 e9 4d 88 ea eb |M...M...|M...M...|
|00000f90| 4d 88 ec ed 4d 88 ee ef | 4d 88 f0 f1 4b 4d 88 f2 |M...M...|M...KM..|
|00000fa0| f3 4b 4d 87 22 20 5b 69 | 67 6e 6f 72 65 20 28 6c |.KM." [i|gnore (l|
|00000fb0| 61 6d 62 64 61 20 28 26 | 72 65 73 74 20 69 67 6e |ambda (&|rest ign|
|00000fc0| 6f 72 65 29 29 20 6d 61 | 6b 65 2d 73 79 6e 74 61 |ore)) ma|ke-synta|
|00000fd0| 78 2d 74 61 62 6c 65 20 | 63 6f 70 79 2d 73 79 6e |x-table |copy-syn|
|00000fe0| 74 61 78 2d 74 61 62 6c | 65 20 64 6f 74 20 70 6f |tax-tabl|e dot po|
|00000ff0| 69 6e 74 20 64 6f 74 2d | 6d 61 72 6b 65 72 20 70 |int dot-|marker p|
|00001000| 6f 69 6e 74 2d 6d 61 72 | 6b 65 72 20 64 6f 74 2d |oint-mar|ker dot-|
|00001010| 6d 69 6e 20 70 6f 69 6e | 74 2d 6d 69 6e 20 64 6f |min poin|t-min do|
|00001020| 74 2d 6d 61 78 20 70 6f | 69 6e 74 2d 6d 61 78 20 |t-max po|int-max |
|00001030| 77 69 6e 64 6f 77 2d 64 | 6f 74 20 77 69 6e 64 6f |window-d|ot windo|
|00001040| 77 2d 70 6f 69 6e 74 20 | 73 65 74 2d 77 69 6e 64 |w-point |set-wind|
|00001050| 6f 77 2d 64 6f 74 20 73 | 65 74 2d 77 69 6e 64 6f |ow-dot s|et-windo|
|00001060| 77 2d 70 6f 69 6e 74 20 | 72 65 61 64 2d 69 6e 70 |w-point |read-inp|
|00001070| 75 74 20 72 65 61 64 2d | 73 74 72 69 6e 67 20 73 |ut read-|string s|
|00001080| 65 6e 64 2d 73 74 72 69 | 6e 67 20 70 72 6f 63 65 |end-stri|ng proce|
|00001090| 73 73 2d 73 65 6e 64 2d | 73 74 72 69 6e 67 20 73 |ss-send-|string s|
|000010a0| 65 6e 64 2d 72 65 67 69 | 6f 6e 20 70 72 6f 63 65 |end-regi|on proce|
|000010b0| 73 73 2d 73 65 6e 64 2d | 72 65 67 69 6f 6e 20 73 |ss-send-|region s|
|000010c0| 68 6f 77 2d 62 75 66 66 | 65 72 20 73 65 74 2d 77 |how-buff|er set-w|
|000010d0| 69 6e 64 6f 77 2d 62 75 | 66 66 65 72 20 62 75 66 |indow-bu|ffer buf|
|000010e0| 66 65 72 2d 66 6c 75 73 | 68 2d 75 6e 64 6f 20 62 |fer-flus|h-undo b|
|000010f0| 75 66 66 65 72 2d 64 69 | 73 61 62 6c 65 2d 75 6e |uffer-di|sable-un|
|00001100| 64 6f 20 73 74 72 69 6e | 67 3d 20 73 74 72 69 6e |do strin|g= strin|
|00001110| 67 2d 65 71 75 61 6c 20 | 73 74 72 69 6e 67 3c 20 |g-equal |string< |
|00001120| 73 74 72 69 6e 67 2d 6c | 65 73 73 70 20 6d 6f 64 |string-l|essp mod|
|00001130| 20 25 20 6d 6f 76 65 2d | 6d 61 72 6b 65 72 20 73 | % move-|marker s|
|00001140| 65 74 2d 6d 61 72 6b 65 | 72 20 65 71 6c 20 65 71 |et-marke|r eql eq|
|00001150| 20 6e 6f 74 20 6e 75 6c | 6c 20 72 70 6c 61 63 61 | not nul|l rplaca|
|00001160| 20 73 65 74 63 61 72 20 | 72 70 6c 61 63 64 20 73 | setcar |rplacd s|
|00001170| 65 74 63 64 72 20 62 65 | 65 70 20 64 69 6e 67 20 |etcdr be|ep ding |
|00001180| 69 6e 64 65 6e 74 2d 74 | 6f 2d 63 6f 6c 75 6d 6e |indent-t|o-column|
|00001190| 20 69 6e 64 65 6e 74 2d | 74 6f 20 62 61 63 6b 77 | indent-|to backw|
|000011a0| 61 72 64 2d 64 65 6c 65 | 74 65 2d 63 68 61 72 20 |ard-dele|te-char |
|000011b0| 64 65 6c 65 74 65 2d 62 | 61 63 6b 77 61 72 64 2d |delete-b|ackward-|
|000011c0| 63 68 61 72 20 73 65 61 | 72 63 68 2d 66 6f 72 77 |char sea|rch-forw|
|000011d0| 61 72 64 2d 72 65 67 65 | 78 70 20 72 65 2d 73 65 |ard-rege|xp re-se|
|000011e0| 61 72 63 68 2d 66 6f 72 | 77 61 72 64 20 73 65 61 |arch-for|ward sea|
|000011f0| 72 63 68 2d 62 61 63 6b | 77 61 72 64 2d 72 65 67 |rch-back|ward-reg|
|00001200| 65 78 70 20 72 65 2d 73 | 65 61 72 63 68 2d 62 61 |exp re-s|earch-ba|
|00001210| 63 6b 77 61 72 64 5d 20 | 32 29 0a 28 66 73 65 74 |ckward] |2).(fset|
|00001220| 20 27 72 75 6e 2d 68 6f | 6f 6b 73 20 23 5b 28 26 | 'run-ho|oks #[(&|
|00001230| 72 65 73 74 20 68 6f 6f | 6b 6c 69 73 74 29 20 22 |rest hoo|klist) "|
|00001240| 08 ad ac 08 40 19 c2 09 | 21 ab 9c 09 4a ab 98 09 |....@...|!...J...|
|00001250| 4a 89 1b 3c ab 8d 0b 40 | c4 3d ac 87 c5 c6 0b 5c |J..<...@|.=.....\|
|00001260| 22 88 aa 83 0b 20 88 29 | 29 08 41 89 10 ac 55 c7 |".... .)|).A...U.|
|00001270| 87 22 20 5b 68 6f 6f 6b | 6c 69 73 74 20 73 79 6d |." [hook|list sym|
|00001280| 20 62 6f 75 6e 64 70 20 | 76 61 6c 75 65 20 6c 61 | boundp |value la|
|00001290| 6d 62 64 61 20 6d 61 70 | 63 61 72 20 66 75 6e 63 |mbda map|car func|
|000012a0| 61 6c 6c 20 6e 69 6c 5d | 20 34 20 22 5c 0a 54 61 |all nil]| 4 "\.Ta|
|000012b0| 6b 65 73 20 68 6f 6f 6b | 20 6e 61 6d 65 73 20 61 |kes hook| names a|
|000012c0| 6e 64 20 72 75 6e 73 20 | 65 61 63 68 20 6f 6e 65 |nd runs |each one|
|000012d0| 20 69 6e 20 74 75 72 6e | 2e 20 20 4d 61 6a 6f 72 | in turn|.  Major|
|000012e0| 20 6d 6f 64 65 20 66 75 | 6e 63 74 69 6f 6e 73 20 | mode fu|nctions |
|000012f0| 75 73 65 20 74 68 69 73 | 2e 0a 45 61 63 68 20 61 |use this|..Each a|
|00001300| 72 67 75 6d 65 6e 74 20 | 73 68 6f 75 6c 64 20 62 |rgument |should b|
|00001310| 65 20 61 20 73 79 6d 62 | 6f 6c 2c 20 61 20 68 6f |e a symb|ol, a ho|
|00001320| 6f 6b 20 76 61 72 69 61 | 62 6c 65 2e 0a 54 68 65 |ok varia|ble..The|
|00001330| 73 65 20 73 79 6d 62 6f | 6c 73 20 61 72 65 20 70 |se symbo|ls are p|
|00001340| 72 6f 63 65 73 73 65 64 | 20 69 6e 20 74 68 65 20 |rocessed| in the |
|00001350| 6f 72 64 65 72 20 73 70 | 65 63 69 66 69 65 64 2e |order sp|ecified.|
|00001360| 0a 49 66 20 61 20 68 6f | 6f 6b 20 73 79 6d 62 6f |.If a ho|ok symbo|
|00001370| 6c 20 68 61 73 20 61 20 | 6e 6f 6e 2d 6e 69 6c 20 |l has a |non-nil |
|00001380| 76 61 6c 75 65 2c 20 74 | 68 61 74 20 76 61 6c 75 |value, t|hat valu|
|00001390| 65 20 6d 61 79 20 62 65 | 20 61 20 66 75 6e 63 74 |e may be| a funct|
|000013a0| 69 6f 6e 0a 6f 72 20 61 | 20 6c 69 73 74 20 6f 66 |ion.or a| list of|
|000013b0| 20 66 75 6e 63 74 69 6f | 6e 73 20 74 6f 20 62 65 | functio|ns to be|
|000013c0| 20 63 61 6c 6c 65 64 20 | 74 6f 20 72 75 6e 20 74 | called |to run t|
|000013d0| 68 65 20 68 6f 6f 6b 2e | 0a 49 66 20 74 68 65 20 |he hook.|.If the |
|000013e0| 76 61 6c 75 65 20 69 73 | 20 61 20 66 75 6e 63 74 |value is| a funct|
|000013f0| 69 6f 6e 2c 20 69 74 20 | 69 73 20 63 61 6c 6c 65 |ion, it |is calle|
|00001400| 64 20 77 69 74 68 20 6e | 6f 20 61 72 67 75 6d 65 |d with n|o argume|
|00001410| 6e 74 73 2e 0a 49 66 20 | 69 74 20 69 73 20 61 20 |nts..If |it is a |
|00001420| 6c 69 73 74 2c 20 74 68 | 65 20 65 6c 65 6d 65 6e |list, th|e elemen|
|00001430| 74 73 20 61 72 65 20 63 | 61 6c 6c 65 64 2c 20 69 |ts are c|alled, i|
|00001440| 6e 20 6f 72 64 65 72 2c | 20 77 69 74 68 20 6e 6f |n order,| with no|
|00001450| 20 61 72 67 75 6d 65 6e | 74 73 2e 22 5d 29 0a 28 | argumen|ts."]).(|
|00001460| 64 65 66 63 6f 6e 73 74 | 20 72 75 6e 2d 68 6f 6f |defconst| run-hoo|
|00001470| 6b 73 20 27 72 75 6e 2d | 68 6f 6f 6b 73 20 22 5c |ks 'run-|hooks "\|
|00001480| 0a 56 61 72 69 61 62 6c | 65 20 62 79 20 77 68 69 |.Variabl|e by whi|
|00001490| 63 68 20 43 20 70 72 69 | 6d 69 74 69 76 65 73 20 |ch C pri|mitives |
|000014a0| 66 69 6e 64 20 74 68 65 | 20 66 75 6e 63 74 69 6f |find the| functio|
|000014b0| 6e 20 60 72 75 6e 2d 68 | 6f 6f 6b 73 27 2e 0a 44 |n `run-h|ooks'..D|
|000014c0| 6f 6e 27 74 20 63 68 61 | 6e 67 65 20 69 74 2e 22 |on't cha|nge it."|
|000014d0| 29 0a 28 66 73 65 74 20 | 27 61 64 64 2d 68 6f 6f |).(fset |'add-hoo|
|000014e0| 6b 20 23 5b 28 68 6f 6f | 6b 2d 76 61 72 20 66 75 |k #[(hoo|k-var fu|
|000014f0| 6e 63 74 69 6f 6e 20 26 | 6f 70 74 69 6f 6e 61 6c |nction &|optional|
|00001500| 20 61 74 2d 65 6e 64 29 | 20 22 c0 09 21 ac 84 09 | at-end)| "..!...|
|00001510| c2 4c 88 09 4a 89 1b 3c | ab 86 0b 40 c4 3d ab 83 |.L..J..<|...@.=..|
|00001520| 0b 43 13 0d 0b 9d 3f ad | 90 09 0e 06 ab 87 c7 0b |.C....?.|........|
|00001530| 0d 43 5c 22 aa 83 0d 0b | 42 4c 29 87 22 20 5b 62 |.C\"....|BL)." [b|
|00001540| 6f 75 6e 64 70 20 68 6f | 6f 6b 2d 76 61 72 20 6e |oundp ho|ok-var n|
|00001550| 69 6c 20 6f 6c 64 20 6c | 61 6d 62 64 61 20 66 75 |il old l|ambda fu|
|00001560| 6e 63 74 69 6f 6e 20 61 | 74 2d 65 6e 64 20 61 70 |nction a|t-end ap|
|00001570| 70 65 6e 64 5d 20 35 20 | 22 5c 0a 41 64 64 20 61 |pend] 5 |"\.Add a|
|00001580| 20 66 75 6e 63 74 69 6f | 6e 20 74 6f 20 61 20 68 | functio|n to a h|
|00001590| 6f 6f 6b 2e 0a 46 69 72 | 73 74 20 61 72 67 75 6d |ook..Fir|st argum|
|000015a0| 65 6e 74 20 48 4f 4f 4b | 2d 56 41 52 20 28 61 20 |ent HOOK|-VAR (a |
|000015b0| 73 79 6d 62 6f 6c 29 20 | 69 73 20 74 68 65 20 6e |symbol) |is the n|
|000015c0| 61 6d 65 20 6f 66 20 61 | 20 68 6f 6f 6b 2c 20 73 |ame of a| hook, s|
|000015d0| 65 63 6f 6e 64 0a 20 61 | 72 67 75 6d 65 6e 74 20 |econd. a|rgument |
|000015e0| 46 55 4e 43 54 49 4f 4e | 20 69 73 20 74 68 65 20 |FUNCTION| is the |
|000015f0| 66 75 6e 63 74 69 6f 6e | 20 74 6f 20 61 64 64 2e |function| to add.|
|00001600| 0a 54 68 69 72 64 20 28 | 6f 70 74 69 6f 6e 61 6c |.Third (|optional|
|00001610| 29 20 61 72 67 75 6d 65 | 6e 74 20 41 54 2d 45 4e |) argume|nt AT-EN|
|00001620| 44 20 6d 65 61 6e 73 20 | 74 6f 20 61 64 64 20 74 |D means |to add t|
|00001630| 68 65 20 66 75 6e 63 74 | 69 6f 6e 20 61 74 20 74 |he funct|ion at t|
|00001640| 68 65 20 65 6e 64 0a 20 | 6f 66 20 74 68 65 20 68 |he end. |of the h|
|00001650| 6f 6f 6b 20 6c 69 73 74 | 20 69 6e 73 74 65 61 64 |ook list| instead|
|00001660| 20 6f 66 20 74 68 65 20 | 62 65 67 69 6e 6e 69 6e | of the |beginnin|
|00001670| 67 2e 20 20 49 66 20 74 | 68 65 20 66 75 6e 63 74 |g.  If t|he funct|
|00001680| 69 6f 6e 20 69 73 20 61 | 6c 72 65 61 64 79 0a 20 |ion is a|lready. |
|00001690| 70 72 65 73 65 6e 74 2c | 20 74 68 69 73 20 68 61 |present,| this ha|
|000016a0| 73 20 6e 6f 20 65 66 66 | 65 63 74 2e 0a 52 65 74 |s no eff|ect..Ret|
|000016b0| 75 72 6e 73 20 6e 69 6c | 20 69 66 20 46 55 4e 43 |urns nil| if FUNC|
|000016c0| 54 49 4f 4e 20 77 61 73 | 20 61 6c 72 65 61 64 79 |TION was| already|
|000016d0| 20 70 72 65 73 65 6e 74 | 20 69 6e 20 48 4f 4f 4b | present| in HOOK|
|000016e0| 2d 56 41 52 2c 20 65 6c | 73 65 20 6e 65 77 0a 20 |-VAR, el|se new. |
|000016f0| 76 61 6c 75 65 20 6f 66 | 20 48 4f 4f 4b 2d 56 41 |value of| HOOK-VA|
|00001700| 52 2e 22 5d 29 0a 28 66 | 73 65 74 20 27 72 65 6d |R."]).(f|set 'rem|
|00001710| 6f 76 65 2d 68 6f 6f 6b | 20 23 5b 28 68 6f 6f 6b |ove-hook| #[(hook|
|00001720| 2d 76 61 72 20 66 75 6e | 63 74 69 6f 6e 29 20 22 |-var fun|ction) "|
|00001730| c0 19 c2 0b 21 ac 83 c0 | aa 99 0c 0b 4a 89 11 3d |....!...|....J..=|
|00001740| ab 85 c0 89 13 aa 8c 09 | 3a ad 88 0b c5 0c c6 09 |........|:.......|
|00001750| 21 5c 22 4c 29 87 22 20 | 5b 6e 69 6c 20 76 61 6c |!\"L)." |[nil val|
|00001760| 20 62 6f 75 6e 64 70 20 | 68 6f 6f 6b 2d 76 61 72 | boundp |hook-var|
|00001770| 20 66 75 6e 63 74 69 6f | 6e 20 64 65 6c 71 20 63 | functio|n delq c|
|00001780| 6f 70 79 2d 73 65 71 75 | 65 6e 63 65 5d 20 35 20 |opy-sequ|ence] 5 |
|00001790| 22 5c 0a 52 65 6d 6f 76 | 65 20 61 20 66 75 6e 63 |"\.Remov|e a func|
|000017a0| 74 69 6f 6e 20 66 72 6f | 6d 20 61 20 68 6f 6f 6b |tion fro|m a hook|
|000017b0| 2c 20 69 66 20 69 74 20 | 69 73 20 70 72 65 73 65 |, if it |is prese|
|000017c0| 6e 74 2e 0a 46 69 72 73 | 74 20 61 72 67 75 6d 65 |nt..Firs|t argume|
|000017d0| 6e 74 20 48 4f 4f 4b 2d | 56 41 52 20 28 61 20 73 |nt HOOK-|VAR (a s|
|000017e0| 79 6d 62 6f 6c 29 20 69 | 73 20 74 68 65 20 6e 61 |ymbol) i|s the na|
|000017f0| 6d 65 20 6f 66 20 61 20 | 68 6f 6f 6b 2c 20 73 65 |me of a |hook, se|
|00001800| 63 6f 6e 64 0a 20 61 72 | 67 75 6d 65 6e 74 20 46 |cond. ar|gument F|
|00001810| 55 4e 43 54 49 4f 4e 20 | 69 73 20 74 68 65 20 66 |UNCTION |is the f|
|00001820| 75 6e 63 74 69 6f 6e 20 | 74 6f 20 72 65 6d 6f 76 |unction |to remov|
|00001830| 65 20 28 63 6f 6d 70 61 | 72 65 64 20 77 69 74 68 |e (compa|red with|
|00001840| 20 60 65 71 27 29 2e 22 | 5d 29 0a 28 66 73 65 74 | `eq')."|]).(fset|
|00001850| 20 27 6d 6f 6d 65 6e 74 | 61 72 79 2d 73 74 72 69 | 'moment|ary-stri|
|00001860| 6e 67 2d 64 69 73 70 6c | 61 79 20 23 5b 28 73 74 |ng-displ|ay #[(st|
|00001870| 72 69 6e 67 20 70 6f 73 | 20 26 6f 70 74 69 6f 6e |ring pos| &option|
|00001880| 61 6c 20 65 78 69 74 2d | 63 68 61 72 20 6d 65 73 |al exit-|char mes|
|00001890| 73 61 67 65 29 20 22 08 | ac 82 c1 10 c2 c3 20 0c |sage) ".|...... .|
|000018a0| c2 1d 1e 06 1e 07 1e 08 | c9 8e 8a 0e 5c 6e 62 88 |........|....\nb.|
|000018b0| c2 14 cb 0e 0c 21 88 60 | 15 29 cd 0e 0d ae 81 ce |.....!.`|.)......|
|000018c0| cf 08 21 5c 22 88 d0 d1 | 20 21 1e 12 d3 0e 12 21 |..!\"...| !.....!|
|000018d0| 08 3d ae 85 0e 12 89 16 | 14 2e 06 87 22 20 5b 65 |.=......|...." [e|
|000018e0| 78 69 74 2d 63 68 61 72 | 20 33 32 20 6e 69 6c 20 |xit-char| 32 nil |
|000018f0| 62 75 66 66 65 72 2d 6d | 6f 64 69 66 69 65 64 2d |buffer-m|odified-|
|00001900| 70 20 62 75 66 66 65 72 | 2d 66 69 6c 65 2d 6e 61 |p buffer|-file-na|
|00001910| 6d 65 20 69 6e 73 65 72 | 74 2d 65 6e 64 20 6e 61 |me inser|t-end na|
|00001920| 6d 65 20 6d 6f 64 69 66 | 69 65 64 20 62 75 66 66 |me modif|ied buff|
|00001930| 65 72 2d 72 65 61 64 2d | 6f 6e 6c 79 20 28 28 62 |er-read-|only ((b|
|00001940| 79 74 65 2d 63 6f 64 65 | 20 22 08 ab 86 8a 09 08 |yte-code| "......|
|00001950| 7c 88 29 5c 6e 13 c4 0d | 21 87 22 20 5b 69 6e 73 ||.)\n...|!." [ins|
|00001960| 65 72 74 2d 65 6e 64 20 | 70 6f 73 20 6e 61 6d 65 |ert-end |pos name|
|00001970| 20 62 75 66 66 65 72 2d | 66 69 6c 65 2d 6e 61 6d | buffer-|file-nam|
|00001980| 65 20 73 65 74 2d 62 75 | 66 66 65 72 2d 6d 6f 64 |e set-bu|ffer-mod|
|00001990| 69 66 69 65 64 2d 70 20 | 6d 6f 64 69 66 69 65 64 |ified-p |modified|
|000019a0| 5d 20 32 29 29 20 70 6f | 73 20 69 6e 73 65 72 74 |] 2)) po|s insert|
|000019b0| 2d 62 65 66 6f 72 65 2d | 6d 61 72 6b 65 72 73 20 |-before-|markers |
|000019c0| 73 74 72 69 6e 67 20 6d | 65 73 73 61 67 65 20 22 |string m|essage "|
|000019d0| 54 79 70 65 20 25 73 20 | 74 6f 20 63 6f 6e 74 69 |Type %s |to conti|
|000019e0| 6e 75 65 20 65 64 69 74 | 69 6e 67 2e 22 20 73 69 |nue edit|ing." si|
|000019f0| 6e 67 6c 65 2d 6b 65 79 | 2d 64 65 73 63 72 69 70 |ngle-key|-descrip|
|00001a00| 74 69 6f 6e 20 6e 65 78 | 74 2d 63 6f 6d 6d 61 6e |tion nex|t-comman|
|00001a10| 64 2d 65 76 65 6e 74 20 | 61 6c 6c 6f 63 61 74 65 |d-event |allocate|
|00001a20| 2d 65 76 65 6e 74 20 65 | 76 65 6e 74 20 65 76 65 |-event e|vent eve|
|00001a30| 6e 74 2d 74 6f 2d 63 68 | 61 72 61 63 74 65 72 20 |nt-to-ch|aracter |
|00001a40| 75 6e 72 65 61 64 2d 63 | 6f 6d 6d 61 6e 64 2d 65 |unread-c|ommand-e|
|00001a50| 76 65 6e 74 5d 20 34 20 | 22 5c 0a 4d 6f 6d 65 6e |vent] 4 |"\.Momen|
|00001a60| 74 61 72 69 6c 79 20 64 | 69 73 70 6c 61 79 20 53 |tarily d|isplay S|
|00001a70| 54 52 49 4e 47 20 69 6e | 20 74 68 65 20 62 75 66 |TRING in| the buf|
|00001a80| 66 65 72 20 61 74 20 50 | 4f 53 2e 0a 44 69 73 70 |fer at P|OS..Disp|
|00001a90| 6c 61 79 20 72 65 6d 61 | 69 6e 73 20 75 6e 74 69 |lay rema|ins unti|
|00001aa0| 6c 20 6e 65 78 74 20 63 | 68 61 72 61 63 74 65 72 |l next c|haracter|
|00001ab0| 20 69 73 20 74 79 70 65 | 64 2e 0a 49 66 20 74 68 | is type|d..If th|
|00001ac0| 65 20 63 68 61 72 20 69 | 73 20 45 58 49 54 2d 43 |e char i|s EXIT-C|
|00001ad0| 48 41 52 20 28 6f 70 74 | 69 6f 6e 61 6c 20 74 68 |HAR (opt|ional th|
|00001ae0| 69 72 64 20 61 72 67 2c | 20 64 65 66 61 75 6c 74 |ird arg,| default|
|00001af0| 20 69 73 20 53 50 43 29 | 20 69 74 20 69 73 20 73 | is SPC)| it is s|
|00001b00| 77 61 6c 6c 6f 77 65 64 | 3b 0a 6f 74 68 65 72 77 |wallowed|;.otherw|
|00001b10| 69 73 65 20 69 74 20 69 | 73 20 74 68 65 6e 20 61 |ise it i|s then a|
|00001b20| 76 61 69 6c 61 62 6c 65 | 20 61 73 20 69 6e 70 75 |vailable| as inpu|
|00001b30| 74 20 28 61 73 20 61 20 | 63 6f 6d 6d 61 6e 64 20 |t (as a |command |
|00001b40| 69 66 20 6e 6f 74 68 69 | 6e 67 20 65 6c 73 65 29 |if nothi|ng else)|
|00001b50| 2e 0a 44 69 73 70 6c 61 | 79 20 4d 45 53 53 41 47 |..Displa|y MESSAG|
|00001b60| 45 20 28 6f 70 74 69 6f | 6e 61 6c 20 66 6f 75 72 |E (optio|nal four|
|00001b70| 74 68 20 61 72 67 29 20 | 69 6e 20 74 68 65 20 65 |th arg) |in the e|
|00001b80| 63 68 6f 20 61 72 65 61 | 2e 0a 49 66 20 4d 45 53 |cho area|..If MES|
|00001b90| 53 41 47 45 20 69 73 20 | 6e 69 6c 2c 20 69 6e 73 |SAGE is |nil, ins|
|00001ba0| 74 72 75 63 74 69 6f 6e | 73 20 74 6f 20 74 79 70 |truction|s to typ|
|00001bb0| 65 20 45 58 49 54 2d 43 | 48 41 52 20 61 72 65 20 |e EXIT-C|HAR are |
|00001bc0| 64 69 73 70 6c 61 79 65 | 64 20 74 68 65 72 65 2e |displaye|d there.|
|00001bd0| 22 5d 29 0a 28 66 73 65 | 74 20 27 73 74 61 72 74 |"]).(fse|t 'start|
|00001be0| 2d 70 72 6f 63 65 73 73 | 2d 73 68 65 6c 6c 2d 63 |-process|-shell-c|
|00001bf0| 6f 6d 6d 61 6e 64 20 23 | 5b 28 6e 61 6d 65 20 62 |ommand #|[(name b|
|00001c00| 75 66 66 65 72 20 26 72 | 65 73 74 20 61 72 67 73 |uffer &r|est args|
|00001c10| 29 20 22 08 c1 3d ab 88 | c2 c3 0c 0d 0e 06 24 87 |) "..=..|......$.|
|00001c20| c3 0c 0d 0e 07 c8 c9 ca | cb 0e 06 cc 23 50 25 87 |........|....#P%.|
|00001c30| 22 20 5b 73 79 73 74 65 | 6d 2d 74 79 70 65 20 76 |" [syste|m-type v|
|00001c40| 61 78 2d 76 6d 73 20 61 | 70 70 6c 79 20 73 74 61 |ax-vms a|pply sta|
|00001c50| 72 74 2d 70 72 6f 63 65 | 73 73 20 6e 61 6d 65 20 |rt-proce|ss name |
|00001c60| 62 75 66 66 65 72 20 61 | 72 67 73 20 73 68 65 6c |buffer a|rgs shel|
|00001c70| 6c 2d 66 69 6c 65 2d 6e | 61 6d 65 20 22 2d 63 22 |l-file-n|ame "-c"|
|00001c80| 20 22 65 78 65 63 20 22 | 20 6d 61 70 63 6f 6e 63 | "exec "| mapconc|
|00001c90| 61 74 20 69 64 65 6e 74 | 69 74 79 20 22 20 22 5d |at ident|ity " "]|
|00001ca0| 20 31 30 20 22 5c 0a 53 | 74 61 72 74 20 61 20 70 | 10 "\.S|tart a p|
|00001cb0| 72 6f 67 72 61 6d 20 69 | 6e 20 61 20 73 75 62 70 |rogram i|n a subp|
|00001cc0| 72 6f 63 65 73 73 2e 20 | 20 52 65 74 75 72 6e 20 |rocess. | Return |
|00001cd0| 74 68 65 20 70 72 6f 63 | 65 73 73 20 6f 62 6a 65 |the proc|ess obje|
|00001ce0| 63 74 20 66 6f 72 20 69 | 74 2e 0a 41 72 67 73 20 |ct for i|t..Args |
|00001cf0| 61 72 65 20 4e 41 4d 45 | 20 42 55 46 46 45 52 20 |are NAME| BUFFER |
|00001d00| 43 4f 4d 4d 41 4e 44 20 | 26 72 65 73 74 20 43 4f |COMMAND |&rest CO|
|00001d10| 4d 4d 41 4e 44 2d 41 52 | 47 53 2e 0a 4e 41 4d 45 |MMAND-AR|GS..NAME|
|00001d20| 20 69 73 20 6e 61 6d 65 | 20 66 6f 72 20 70 72 6f | is name| for pro|
|00001d30| 63 65 73 73 2e 20 20 49 | 74 20 69 73 20 6d 6f 64 |cess.  I|t is mod|
|00001d40| 69 66 69 65 64 20 69 66 | 20 6e 65 63 65 73 73 61 |ified if| necessa|
|00001d50| 72 79 20 74 6f 20 6d 61 | 6b 65 20 69 74 20 75 6e |ry to ma|ke it un|
|00001d60| 69 71 75 65 2e 0a 42 55 | 46 46 45 52 20 69 73 20 |ique..BU|FFER is |
|00001d70| 74 68 65 20 62 75 66 66 | 65 72 20 6f 72 20 28 62 |the buff|er or (b|
|00001d80| 75 66 66 65 72 2d 6e 61 | 6d 65 29 20 74 6f 20 61 |uffer-na|me) to a|
|00001d90| 73 73 6f 63 69 61 74 65 | 20 77 69 74 68 20 74 68 |ssociate| with th|
|00001da0| 65 20 70 72 6f 63 65 73 | 73 2e 0a 20 50 72 6f 63 |e proces|s.. Proc|
|00001db0| 65 73 73 20 6f 75 74 70 | 75 74 20 67 6f 65 73 20 |ess outp|ut goes |
|00001dc0| 61 74 20 65 6e 64 20 6f | 66 20 74 68 61 74 20 62 |at end o|f that b|
|00001dd0| 75 66 66 65 72 2c 20 75 | 6e 6c 65 73 73 20 79 6f |uffer, u|nless yo|
|00001de0| 75 20 73 70 65 63 69 66 | 79 0a 20 61 6e 20 6f 75 |u specif|y. an ou|
|00001df0| 74 70 75 74 20 73 74 72 | 65 61 6d 20 6f 72 20 66 |tput str|eam or f|
|00001e00| 69 6c 74 65 72 20 66 75 | 6e 63 74 69 6f 6e 20 74 |ilter fu|nction t|
|00001e10| 6f 20 68 61 6e 64 6c 65 | 20 74 68 65 20 6f 75 74 |o handle| the out|
|00001e20| 70 75 74 2e 0a 20 42 55 | 46 46 45 52 20 6d 61 79 |put.. BU|FFER may|
|00001e30| 20 62 65 20 61 6c 73 6f | 20 6e 69 6c 2c 20 6d 65 | be also| nil, me|
|00001e40| 61 6e 69 6e 67 20 74 68 | 61 74 20 74 68 69 73 20 |aning th|at this |
|00001e50| 70 72 6f 63 65 73 73 20 | 69 73 20 6e 6f 74 20 61 |process |is not a|
|00001e60| 73 73 6f 63 69 61 74 65 | 64 0a 20 77 69 74 68 20 |ssociate|d. with |
|00001e70| 61 6e 79 20 62 75 66 66 | 65 72 0a 54 68 69 72 64 |any buff|er.Third|
|00001e80| 20 61 72 67 20 69 73 20 | 63 6f 6d 6d 61 6e 64 20 | arg is |command |
|00001e90| 6e 61 6d 65 2c 20 74 68 | 65 20 6e 61 6d 65 20 6f |name, th|e name o|
|00001ea0| 66 20 61 20 73 68 65 6c | 6c 20 63 6f 6d 6d 61 6e |f a shel|l comman|
|00001eb0| 64 2e 0a 52 65 6d 61 69 | 6e 69 6e 67 20 61 72 67 |d..Remai|ning arg|
|00001ec0| 75 6d 65 6e 74 73 20 61 | 72 65 20 74 68 65 20 61 |uments a|re the a|
|00001ed0| 72 67 75 6d 65 6e 74 73 | 20 66 6f 72 20 74 68 65 |rguments| for the|
|00001ee0| 20 63 6f 6d 6d 61 6e 64 | 2e 0a 57 69 6c 64 63 61 | command|..Wildca|
|00001ef0| 72 64 73 20 61 6e 64 20 | 72 65 64 69 72 65 63 74 |rds and |redirect|
|00001f00| 69 6f 6e 20 61 72 65 20 | 68 61 6e 64 6c 65 20 61 |ion are |handle a|
|00001f10| 73 20 75 73 75 61 6c 20 | 69 6e 20 74 68 65 20 73 |s usual |in the s|
|00001f20| 68 65 6c 6c 2e 22 5d 29 | 0a 28 66 73 65 74 20 27 |hell."])|.(fset '|
|00001f30| 75 73 65 72 2d 6f 72 69 | 67 69 6e 61 6c 2d 6c 6f |user-ori|ginal-lo|
|00001f40| 67 69 6e 2d 6e 61 6d 65 | 20 23 5b 6e 69 6c 20 22 |gin-name| #[nil "|
|00001f50| c0 c1 21 ae 87 c0 c2 21 | ae 82 c3 20 87 22 20 5b |..!....!|... ." [|
|00001f60| 67 65 74 65 6e 76 20 22 | 4c 4f 47 4e 41 4d 45 22 |getenv "|LOGNAME"|
|00001f70| 20 22 55 53 45 52 22 20 | 75 73 65 72 2d 6c 6f 67 | "USER" |user-log|
|00001f80| 69 6e 2d 6e 61 6d 65 5d | 20 32 20 22 5c 0a 52 65 |in-name]| 2 "\.Re|
|00001f90| 74 75 72 6e 20 75 73 65 | 72 27 73 20 6c 6f 67 69 |turn use|r's logi|
|00001fa0| 6e 20 6e 61 6d 65 20 66 | 72 6f 6d 20 6f 72 69 67 |n name f|rom orig|
|00001fb0| 69 6e 61 6c 20 6c 6f 67 | 69 6e 2e 0a 54 68 69 73 |inal log|in..This|
|00001fc0| 20 74 72 69 65 73 20 74 | 6f 20 72 65 6d 61 69 6e | tries t|o remain|
|00001fd0| 20 75 6e 61 66 66 65 63 | 74 65 64 20 62 79 20 60 | unaffec|ted by `|
|00001fe0| 73 75 27 2c 20 62 79 20 | 6c 6f 6f 6b 69 6e 67 20 |su', by |looking |
|00001ff0| 69 6e 20 65 6e 76 69 72 | 6f 6e 6d 65 6e 74 20 76 |in envir|onment v|
|00002000| 61 72 69 61 62 6c 65 73 | 2e 22 5d 29 0a 28 66 73 |ariables|."]).(fs|
|00002010| 65 74 20 27 72 65 64 72 | 61 77 2d 6d 6f 64 65 2d |et 'redr|aw-mode-|
|00002020| 6c 69 6e 65 20 23 5b 28 | 26 6f 70 74 69 6f 6e 61 |line #[(|&optiona|
|00002030| 6c 20 61 6c 6c 29 20 22 | 08 ab 86 8a c1 20 71 88 |l all) "|..... q.|
|00002040| 29 c2 c3 20 21 87 22 20 | 5b 61 6c 6c 20 6f 74 68 |).. !." |[all oth|
|00002050| 65 72 2d 62 75 66 66 65 | 72 20 73 65 74 2d 62 75 |er-buffe|r set-bu|
|00002060| 66 66 65 72 2d 6d 6f 64 | 69 66 69 65 64 2d 70 20 |ffer-mod|ified-p |
|00002070| 62 75 66 66 65 72 2d 6d | 6f 64 69 66 69 65 64 2d |buffer-m|odified-|
|00002080| 70 5d 20 32 20 22 5c 0a | 46 6f 72 63 65 20 74 68 |p] 2 "\.|Force th|
|00002090| 65 20 6d 6f 64 65 2d 6c | 69 6e 65 20 6f 66 20 74 |e mode-l|ine of t|
|000020a0| 68 65 20 63 75 72 72 65 | 6e 74 20 62 75 66 66 65 |he curre|nt buffe|
|000020b0| 72 20 74 6f 20 62 65 20 | 72 65 64 69 73 70 6c 61 |r to be |redispla|
|000020c0| 79 65 64 2e 0a 57 69 74 | 68 20 6f 70 74 69 6f 6e |yed..Wit|h option|
|000020d0| 61 6c 20 6e 6f 6e 2d 6e | 69 6c 20 41 4c 4c 20 74 |al non-n|il ALL t|
|000020e0| 68 65 6e 20 66 6f 72 63 | 65 20 74 68 65 6e 20 66 |hen forc|e then f|
|000020f0| 6f 72 63 65 20 72 65 64 | 69 73 70 6c 61 79 20 6f |orce red|isplay o|
|00002100| 66 20 61 6c 6c 20 6d 6f | 64 65 2d 6c 69 6e 65 73 |f all mo|de-lines|
|00002110| 2e 22 5d 29 0a 28 66 73 | 65 74 20 27 66 6f 72 63 |."]).(fs|et 'forc|
|00002120| 65 2d 6d 6f 64 65 2d 6c | 69 6e 65 2d 75 70 64 61 |e-mode-l|ine-upda|
|00002130| 74 65 20 27 72 65 64 72 | 61 77 2d 6d 6f 64 65 2d |te 'redr|aw-mode-|
|00002140| 6c 69 6e 65 29 0a 28 66 | 73 65 74 20 27 6c 6f 63 |line).(f|set 'loc|
|00002150| 61 6c 2d 6b 65 79 2d 62 | 69 6e 64 69 6e 67 20 23 |al-key-b|inding #|
|00002160| 5b 28 6b 65 79 73 29 20 | 22 c0 20 89 19 ad 84 c2 |[(keys) |". .....|
|00002170| 09 0b 5c 22 29 87 22 20 | 5b 63 75 72 72 65 6e 74 |..\")." |[current|
|00002180| 2d 6c 6f 63 61 6c 2d 6d | 61 70 20 6d 61 70 20 6c |-local-m|ap map l|
|00002190| 6f 6f 6b 75 70 2d 6b 65 | 79 20 6b 65 79 73 5d 20 |ookup-ke|y keys] |
|000021a0| 34 20 22 5c 0a 52 65 74 | 75 72 6e 20 74 68 65 20 |4 "\.Ret|urn the |
|000021b0| 62 69 6e 64 69 6e 67 20 | 66 6f 72 20 63 6f 6d 6d |binding |for comm|
|000021c0| 61 6e 64 20 4b 45 59 53 | 20 69 6e 20 63 75 72 72 |and KEYS| in curr|
|000021d0| 65 6e 74 20 6c 6f 63 61 | 6c 20 6b 65 79 6d 61 70 |ent loca|l keymap|
|000021e0| 20 6f 6e 6c 79 2e 0a 4b | 45 59 53 20 69 73 20 61 | only..K|EYS is a|
|000021f0| 20 73 74 72 69 6e 67 2c | 20 61 20 76 65 63 74 6f | string,| a vecto|
|00002200| 72 20 6f 66 20 65 76 65 | 6e 74 73 2c 20 6f 72 20 |r of eve|nts, or |
|00002210| 61 20 76 65 63 74 6f 72 | 20 6f 66 20 6b 65 79 2d |a vector| of key-|
|00002220| 64 65 73 63 72 69 70 74 | 69 6f 6e 20 6c 69 73 74 |descript|ion list|
|00002230| 73 0a 61 73 20 64 65 73 | 63 72 69 62 65 64 20 69 |s.as des|cribed i|
|00002240| 6e 20 74 68 65 20 64 6f | 63 75 6d 65 6e 74 61 74 |n the do|cumentat|
|00002250| 69 6f 6e 20 66 6f 72 20 | 74 68 65 20 60 64 65 66 |ion for |the `def|
|00002260| 69 6e 65 2d 6b 65 79 27 | 20 66 75 6e 63 74 69 6f |ine-key'| functio|
|00002270| 6e 2e 0a 54 68 65 20 62 | 69 6e 64 69 6e 67 20 69 |n..The b|inding i|
|00002280| 73 20 70 72 6f 62 61 62 | 6c 79 20 61 20 73 79 6d |s probab|ly a sym|
|00002290| 62 6f 6c 20 77 69 74 68 | 20 61 20 66 75 6e 63 74 |bol with| a funct|
|000022a0| 69 6f 6e 20 64 65 66 69 | 6e 69 74 69 6f 6e 3b 20 |ion defi|nition; |
|000022b0| 73 65 65 0a 74 68 65 20 | 64 6f 63 75 6d 65 6e 74 |see.the |document|
|000022c0| 61 74 69 6f 6e 20 66 6f | 72 20 60 6c 6f 6f 6b 75 |ation fo|r `looku|
|000022d0| 70 2d 6b 65 79 27 20 66 | 6f 72 20 6d 6f 72 65 20 |p-key' f|or more |
|000022e0| 69 6e 66 6f 72 6d 61 74 | 69 6f 6e 2e 22 5d 29 0a |informat|ion."]).|
|000022f0| 28 66 73 65 74 20 27 67 | 6c 6f 62 61 6c 2d 6b 65 |(fset 'g|lobal-ke|
|00002300| 79 2d 62 69 6e 64 69 6e | 67 20 23 5b 28 6b 65 79 |y-bindin|g #[(key|
|00002310| 73 29 20 22 c0 c1 20 5c | 6e 5c 22 87 22 20 5b 6c |s) ".. \|n\"." [l|
|00002320| 6f 6f 6b 75 70 2d 6b 65 | 79 20 63 75 72 72 65 6e |ookup-ke|y curren|
|00002330| 74 2d 67 6c 6f 62 61 6c | 2d 6d 61 70 20 6b 65 79 |t-global|-map key|
|00002340| 73 5d 20 33 20 22 5c 0a | 52 65 74 75 72 6e 20 74 |s] 3 "\.|Return t|
|00002350| 68 65 20 62 69 6e 64 69 | 6e 67 20 66 6f 72 20 63 |he bindi|ng for c|
|00002360| 6f 6d 6d 61 6e 64 20 4b | 45 59 53 20 69 6e 20 63 |ommand K|EYS in c|
|00002370| 75 72 72 65 6e 74 20 67 | 6c 6f 62 61 6c 20 6b 65 |urrent g|lobal ke|
|00002380| 79 6d 61 70 20 6f 6e 6c | 79 2e 0a 4b 45 59 53 20 |ymap onl|y..KEYS |
|00002390| 69 73 20 61 20 73 74 72 | 69 6e 67 20 6f 72 20 76 |is a str|ing or v|
|000023a0| 65 63 74 6f 72 20 6f 66 | 20 65 76 65 6e 74 73 2c |ector of| events,|
|000023b0| 20 61 20 73 65 71 75 65 | 6e 63 65 20 6f 66 20 6b | a seque|nce of k|
|000023c0| 65 79 73 74 72 6f 6b 65 | 73 2e 0a 54 68 65 20 62 |eystroke|s..The b|
|000023d0| 69 6e 64 69 6e 67 20 69 | 73 20 70 72 6f 62 61 62 |inding i|s probab|
|000023e0| 6c 79 20 61 20 73 79 6d | 62 6f 6c 20 77 69 74 68 |ly a sym|bol with|
|000023f0| 20 61 20 66 75 6e 63 74 | 69 6f 6e 20 64 65 66 69 | a funct|ion defi|
|00002400| 6e 69 74 69 6f 6e 3b 20 | 73 65 65 0a 74 68 65 20 |nition; |see.the |
|00002410| 64 6f 63 75 6d 65 6e 74 | 61 74 69 6f 6e 20 66 6f |document|ation fo|
|00002420| 72 20 60 6c 6f 6f 6b 75 | 70 2d 6b 65 79 27 20 66 |r `looku|p-key' f|
|00002430| 6f 72 20 6d 6f 72 65 20 | 69 6e 66 6f 72 6d 61 74 |or more |informat|
|00002440| 69 6f 6e 2e 22 5d 29 0a | 28 66 73 65 74 20 27 67 |ion."]).|(fset 'g|
|00002450| 6c 6f 62 61 6c 2d 73 65 | 74 2d 6b 65 79 20 23 5b |lobal-se|t-key #[|
|00002460| 28 6b 65 79 73 20 66 75 | 6e 63 74 69 6f 6e 29 20 |(keys fu|nction) |
|00002470| 22 c0 c1 20 5c 6e 0b 23 | 87 22 20 5b 64 65 66 69 |".. \n.#|." [defi|
|00002480| 6e 65 2d 6b 65 79 20 63 | 75 72 72 65 6e 74 2d 67 |ne-key c|urrent-g|
|00002490| 6c 6f 62 61 6c 2d 6d 61 | 70 20 6b 65 79 73 20 66 |lobal-ma|p keys f|
|000024a0| 75 6e 63 74 69 6f 6e 5d | 20 34 20 22 5c 0a 47 69 |unction]| 4 "\.Gi|
|000024b0| 76 65 20 4b 45 59 20 61 | 20 67 6c 6f 62 61 6c 20 |ve KEY a| global |
|000024c0| 62 69 6e 64 69 6e 67 20 | 61 73 20 43 4f 4d 4d 41 |binding |as COMMA|
|000024d0| 4e 44 2e 0a 43 4f 4d 4d | 41 4e 44 20 69 73 20 61 |ND..COMM|AND is a|
|000024e0| 20 73 79 6d 62 6f 6c 20 | 6e 61 6d 69 6e 67 20 61 | symbol |naming a|
|000024f0| 6e 20 69 6e 74 65 72 61 | 63 74 69 76 65 6c 79 2d |n intera|ctively-|
|00002500| 63 61 6c 6c 61 62 6c 65 | 20 66 75 6e 63 74 69 6f |callable| functio|
|00002510| 6e 2e 0a 4b 45 59 53 20 | 69 73 20 61 20 73 74 72 |n..KEYS |is a str|
|00002520| 69 6e 67 2c 20 61 20 76 | 65 63 74 6f 72 20 6f 66 |ing, a v|ector of|
|00002530| 20 65 76 65 6e 74 73 2c | 20 6f 72 20 61 20 76 65 | events,| or a ve|
|00002540| 63 74 6f 72 20 6f 66 20 | 6b 65 79 2d 64 65 73 63 |ctor of |key-desc|
|00002550| 72 69 70 74 69 6f 6e 20 | 6c 69 73 74 73 0a 61 73 |ription |lists.as|
|00002560| 20 64 65 73 63 72 69 62 | 65 64 20 69 6e 20 74 68 | describ|ed in th|
|00002570| 65 20 64 6f 63 75 6d 65 | 6e 74 61 74 69 6f 6e 20 |e docume|ntation |
|00002580| 66 6f 72 20 74 68 65 20 | 60 64 65 66 69 6e 65 2d |for the |`define-|
|00002590| 6b 65 79 27 20 66 75 6e | 63 74 69 6f 6e 2e 0a 4e |key' fun|ction..N|
|000025a0| 6f 74 65 20 74 68 61 74 | 20 69 66 20 4b 45 59 20 |ote that| if KEY |
|000025b0| 68 61 73 20 61 20 6c 6f | 63 61 6c 20 62 69 6e 64 |has a lo|cal bind|
|000025c0| 69 6e 67 20 69 6e 20 74 | 68 65 20 63 75 72 72 65 |ing in t|he curre|
|000025d0| 6e 74 20 62 75 66 66 65 | 72 0a 74 68 61 74 20 6c |nt buffe|r.that l|
|000025e0| 6f 63 61 6c 20 62 69 6e | 64 69 6e 67 20 77 69 6c |ocal bin|ding wil|
|000025f0| 6c 20 63 6f 6e 74 69 6e | 75 65 20 74 6f 20 73 68 |l contin|ue to sh|
|00002600| 61 64 6f 77 20 61 6e 79 | 20 67 6c 6f 62 61 6c 20 |adow any| global |
|00002610| 62 69 6e 64 69 6e 67 2e | 22 20 22 6b 53 65 74 20 |binding.|" "kSet |
|00002620| 6b 65 79 20 67 6c 6f 62 | 61 6c 6c 79 3a 20 5c 6e |key glob|ally: \n|
|00002630| 43 53 65 74 20 6b 65 79 | 20 25 73 20 74 6f 20 63 |CSet key| %s to c|
|00002640| 6f 6d 6d 61 6e 64 3a 20 | 22 5d 29 0a 28 66 73 65 |ommand: |"]).(fse|
|00002650| 74 20 27 6c 6f 63 61 6c | 2d 73 65 74 2d 6b 65 79 |t 'local|-set-key|
|00002660| 20 23 5b 28 6b 65 79 73 | 20 66 75 6e 63 74 69 6f | #[(keys| functio|
|00002670| 6e 29 20 22 c0 20 ac 85 | c1 c2 20 21 88 c3 c0 20 |n) ". ..|.. !... |
|00002680| 0c 0d 23 87 22 20 5b 63 | 75 72 72 65 6e 74 2d 6c |..#." [c|urrent-l|
|00002690| 6f 63 61 6c 2d 6d 61 70 | 20 75 73 65 2d 6c 6f 63 |ocal-map| use-loc|
|000026a0| 61 6c 2d 6d 61 70 20 6d | 61 6b 65 2d 73 70 61 72 |al-map m|ake-spar|
|000026b0| 73 65 2d 6b 65 79 6d 61 | 70 20 64 65 66 69 6e 65 |se-keyma|p define|
|000026c0| 2d 6b 65 79 20 6b 65 79 | 73 20 66 75 6e 63 74 69 |-key key|s functi|
|000026d0| 6f 6e 5d 20 34 20 22 5c | 0a 47 69 76 65 20 4b 45 |on] 4 "\|.Give KE|
|000026e0| 59 20 61 20 6c 6f 63 61 | 6c 20 62 69 6e 64 69 6e |Y a loca|l bindin|
|000026f0| 67 20 61 73 20 43 4f 4d | 4d 41 4e 44 2e 0a 43 4f |g as COM|MAND..CO|
|00002700| 4d 4d 41 4e 44 20 69 73 | 20 61 20 73 79 6d 62 6f |MMAND is| a symbo|
|00002710| 6c 20 6e 61 6d 69 6e 67 | 20 61 6e 20 69 6e 74 65 |l naming| an inte|
|00002720| 72 61 63 74 69 76 65 6c | 79 2d 63 61 6c 6c 61 62 |ractivel|y-callab|
|00002730| 6c 65 20 66 75 6e 63 74 | 69 6f 6e 2e 0a 4b 45 59 |le funct|ion..KEY|
|00002740| 53 20 69 73 20 61 20 73 | 74 72 69 6e 67 2c 20 61 |S is a s|tring, a|
|00002750| 20 76 65 63 74 6f 72 20 | 6f 66 20 65 76 65 6e 74 | vector |of event|
|00002760| 73 2c 20 6f 72 20 61 20 | 76 65 63 74 6f 72 20 6f |s, or a |vector o|
|00002770| 66 20 6b 65 79 2d 64 65 | 73 63 72 69 70 74 69 6f |f key-de|scriptio|
|00002780| 6e 20 6c 69 73 74 73 0a | 61 73 20 64 65 73 63 72 |n lists.|as descr|
|00002790| 69 62 65 64 20 69 6e 20 | 74 68 65 20 64 6f 63 75 |ibed in |the docu|
|000027a0| 6d 65 6e 74 61 74 69 6f | 6e 20 66 6f 72 20 74 68 |mentatio|n for th|
|000027b0| 65 20 60 64 65 66 69 6e | 65 2d 6b 65 79 27 20 66 |e `defin|e-key' f|
|000027c0| 75 6e 63 74 69 6f 6e 2e | 0a 54 68 65 20 62 69 6e |unction.|.The bin|
|000027d0| 64 69 6e 67 20 67 6f 65 | 73 20 69 6e 20 74 68 65 |ding goe|s in the|
|000027e0| 20 63 75 72 72 65 6e 74 | 20 62 75 66 66 65 72 27 | current| buffer'|
|000027f0| 73 20 6c 6f 63 61 6c 20 | 6d 61 70 2c 0a 77 68 69 |s local |map,.whi|
|00002800| 63 68 20 69 73 20 73 68 | 61 72 65 64 20 77 69 74 |ch is sh|ared wit|
|00002810| 68 20 6f 74 68 65 72 20 | 62 75 66 66 65 72 73 20 |h other |buffers |
|00002820| 69 6e 20 74 68 65 20 73 | 61 6d 65 20 6d 61 6a 6f |in the s|ame majo|
|00002830| 72 20 6d 6f 64 65 2e 22 | 20 22 6b 53 65 74 20 6b |r mode."| "kSet k|
|00002840| 65 79 20 6c 6f 63 61 6c | 6c 79 3a 20 5c 6e 43 53 |ey local|ly: \nCS|
|00002850| 65 74 20 6b 65 79 20 25 | 73 20 6c 6f 63 61 6c 6c |et key %|s locall|
|00002860| 79 20 74 6f 20 63 6f 6d | 6d 61 6e 64 3a 20 22 5d |y to com|mand: "]|
|00002870| 29 0a 28 66 73 65 74 20 | 27 67 6c 6f 62 61 6c 2d |).(fset |'global-|
|00002880| 75 6e 73 65 74 2d 6b 65 | 79 20 23 5b 28 6b 65 79 |unset-ke|y #[(key|
|00002890| 73 29 20 22 c0 09 c2 5c | 22 87 22 20 5b 67 6c 6f |s) "...\|"." [glo|
|000028a0| 62 61 6c 2d 73 65 74 2d | 6b 65 79 20 6b 65 79 73 |bal-set-|key keys|
|000028b0| 20 6e 69 6c 5d 20 33 20 | 22 5c 0a 52 65 6d 6f 76 | nil] 3 |"\.Remov|
|000028c0| 65 20 67 6c 6f 62 61 6c | 20 62 69 6e 64 69 6e 67 |e global| binding|
|000028d0| 20 6f 66 20 4b 45 59 2e | 0a 4b 45 59 53 20 69 73 | of KEY.|.KEYS is|
|000028e0| 20 61 20 73 74 72 69 6e | 67 2c 20 61 20 76 65 63 | a strin|g, a vec|
|000028f0| 74 6f 72 20 6f 66 20 65 | 76 65 6e 74 73 2c 20 6f |tor of e|vents, o|
|00002900| 72 20 61 20 76 65 63 74 | 6f 72 20 6f 66 20 6b 65 |r a vect|or of ke|
|00002910| 79 2d 64 65 73 63 72 69 | 70 74 69 6f 6e 20 6c 69 |y-descri|ption li|
|00002920| 73 74 73 0a 61 73 20 64 | 65 73 63 72 69 62 65 64 |sts.as d|escribed|
|00002930| 20 69 6e 20 74 68 65 20 | 64 6f 63 75 6d 65 6e 74 | in the |document|
|00002940| 61 74 69 6f 6e 20 66 6f | 72 20 74 68 65 20 60 64 |ation fo|r the `d|
|00002950| 65 66 69 6e 65 2d 6b 65 | 79 27 20 66 75 6e 63 74 |efine-ke|y' funct|
|00002960| 69 6f 6e 2e 22 20 22 6b | 55 6e 73 65 74 20 6b 65 |ion." "k|Unset ke|
|00002970| 79 20 67 6c 6f 62 61 6c | 6c 79 3a 20 22 5d 29 0a |y global|ly: "]).|
|00002980| 28 66 73 65 74 20 27 6c | 6f 63 61 6c 2d 75 6e 73 |(fset 'l|ocal-uns|
|00002990| 65 74 2d 6b 65 79 20 23 | 5b 28 6b 65 79 73 29 20 |et-key #|[(keys) |
|000029a0| 22 c0 20 ad 86 c1 c0 20 | 5c 6e c3 23 87 22 20 5b |". .... |\n.#." [|
|000029b0| 63 75 72 72 65 6e 74 2d | 6c 6f 63 61 6c 2d 6d 61 |current-|local-ma|
|000029c0| 70 20 64 65 66 69 6e 65 | 2d 6b 65 79 20 6b 65 79 |p define|-key key|
|000029d0| 73 20 6e 69 6c 5d 20 34 | 20 22 5c 0a 52 65 6d 6f |s nil] 4| "\.Remo|
|000029e0| 76 65 20 6c 6f 63 61 6c | 20 62 69 6e 64 69 6e 67 |ve local| binding|
|000029f0| 20 6f 66 20 4b 45 59 2e | 0a 4b 45 59 53 20 69 73 | of KEY.|.KEYS is|
|00002a00| 20 61 20 73 74 72 69 6e | 67 2c 20 61 20 76 65 63 | a strin|g, a vec|
|00002a10| 74 6f 72 20 6f 66 20 65 | 76 65 6e 74 73 2c 20 6f |tor of e|vents, o|
|00002a20| 72 20 61 20 76 65 63 74 | 6f 72 20 6f 66 20 6b 65 |r a vect|or of ke|
|00002a30| 79 2d 64 65 73 63 72 69 | 70 74 69 6f 6e 20 6c 69 |y-descri|ption li|
|00002a40| 73 74 73 0a 61 73 20 64 | 65 73 63 72 69 62 65 64 |sts.as d|escribed|
|00002a50| 20 69 6e 20 74 68 65 20 | 64 6f 63 75 6d 65 6e 74 | in the |document|
|00002a60| 61 74 69 6f 6e 20 66 6f | 72 20 74 68 65 20 60 64 |ation fo|r the `d|
|00002a70| 65 66 69 6e 65 2d 6b 65 | 79 27 20 66 75 6e 63 74 |efine-ke|y' funct|
|00002a80| 69 6f 6e 2e 22 20 22 6b | 55 6e 73 65 74 20 6b 65 |ion." "k|Unset ke|
|00002a90| 79 20 6c 6f 63 61 6c 6c | 79 3a 20 22 5d 29 0a 28 |y locall|y: "]).(|
|00002aa0| 66 73 65 74 20 27 64 65 | 66 69 6e 65 2d 70 72 65 |fset 'de|fine-pre|
|00002ab0| 66 69 78 2d 63 6f 6d 6d | 61 6e 64 20 23 5b 28 6e |fix-comm|and #[(n|
|00002ac0| 61 6d 65 20 26 6f 70 74 | 69 6f 6e 61 6c 20 6d 61 |ame &opt|ional ma|
|00002ad0| 70 76 61 72 29 20 22 c0 | 20 19 c2 09 0b 5c 22 88 |pvar) ".| ....\".|
|00002ae0| 0b 09 4d 88 0c ac 86 0b | 09 4c 88 aa 89 0c c5 3d |..M.....|.L.....=|
|00002af0| ac 84 0c 09 4c 88 0b 29 | 87 22 20 5b 6d 61 6b 65 |....L..)|." [make|
|00002b00| 2d 73 70 61 72 73 65 2d | 6b 65 79 6d 61 70 20 6d |-sparse-|keymap m|
|00002b10| 61 70 20 73 65 74 2d 6b | 65 79 6d 61 70 2d 6e 61 |ap set-k|eymap-na|
|00002b20| 6d 65 20 6e 61 6d 65 20 | 6d 61 70 76 61 72 20 74 |me name |mapvar t|
|00002b30| 5d 20 33 20 22 5c 0a 44 | 65 66 69 6e 65 20 43 4f |] 3 "\.D|efine CO|
|00002b40| 4d 4d 41 4e 44 20 61 73 | 20 61 20 70 72 65 66 69 |MMAND as| a prefi|
|00002b50| 78 20 63 6f 6d 6d 61 6e | 64 2e 0a 41 20 6e 65 77 |x comman|d..A new|
|00002b60| 20 73 70 61 72 73 65 20 | 6b 65 79 6d 61 70 20 69 | sparse |keymap i|
|00002b70| 73 20 73 74 6f 72 65 64 | 20 61 73 20 43 4f 4d 4d |s stored| as COMM|
|00002b80| 41 4e 44 27 73 20 66 75 | 6e 63 74 69 6f 6e 20 64 |AND's fu|nction d|
|00002b90| 65 66 69 6e 69 74 69 6f | 6e 2e 0a 49 66 20 73 65 |efinitio|n..If se|
|00002ba0| 63 6f 6e 64 20 6f 70 74 | 69 6f 6e 61 6c 20 61 72 |cond opt|ional ar|
|00002bb0| 67 75 6d 65 6e 74 20 4d | 41 50 56 41 52 20 69 73 |gument M|APVAR is|
|00002bc0| 20 6e 6f 74 20 73 70 65 | 63 69 66 69 65 64 2c 0a | not spe|cified,.|
|00002bd0| 20 43 4f 4d 4d 41 4e 44 | 27 73 20 76 61 6c 75 65 | COMMAND|'s value|
|00002be0| 20 28 61 73 20 77 65 6c | 6c 20 61 73 20 69 74 73 | (as wel|l as its|
|00002bf0| 20 66 75 6e 63 74 69 6f | 6e 20 64 65 66 69 6e 69 | functio|n defini|
|00002c00| 74 69 6f 6e 29 20 69 73 | 20 73 65 74 20 74 6f 20 |tion) is| set to |
|00002c10| 74 68 65 20 6b 65 79 6d | 61 70 2e 0a 49 66 20 61 |the keym|ap..If a|
|00002c20| 20 73 65 63 6f 6e 64 20 | 6f 70 74 69 6f 6e 61 6c | second |optional|
|00002c30| 20 61 72 67 75 6d 65 6e | 74 20 4d 41 50 56 41 52 | argumen|t MAPVAR|
|00002c40| 20 69 73 20 67 69 76 65 | 6e 20 61 6e 64 20 69 73 | is give|n and is|
|00002c50| 20 6e 6f 74 20 60 74 27 | 2c 0a 20 20 74 68 65 20 | not `t'|,.  the |
|00002c60| 6d 61 70 20 69 73 20 73 | 74 6f 72 65 64 20 61 73 |map is s|tored as|
|00002c70| 20 69 74 73 20 76 61 6c | 75 65 2e 0a 52 65 67 61 | its val|ue..Rega|
|00002c80| 72 64 6c 65 73 73 20 6f | 66 20 4d 41 50 56 41 52 |rdless o|f MAPVAR|
|00002c90| 2c 20 43 4f 4d 4d 41 4e | 44 27 73 20 66 75 6e 63 |, COMMAN|D's func|
|00002ca0| 74 69 6f 6e 2d 76 61 6c | 75 65 20 69 73 20 61 6c |tion-val|ue is al|
|00002cb0| 77 61 79 73 20 73 65 74 | 20 74 6f 20 74 68 65 20 |ways set| to the |
|00002cc0| 6b 65 79 6d 61 70 2e 22 | 5d 29 0a                |keymap."|]).     |
+--------+-------------------------+-------------------------+--------+--------+