/ Otherware / Otherware_1_SB_Development.iso / amiga / utility / misc / e1858src.lha / emacs-18.58 / lisp / subr.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0a 28 64 65 66 75 6e 20 | 6f 6e 65 2d 77 69 6e 64 |.(defun |one-wind|
|00000010| 6f 77 2d 70 20 28 26 6f | 70 74 69 6f 6e 61 6c 20 |ow-p (&o|ptional |
|00000020| 61 72 67 29 20 22 5c 0a | 52 65 74 75 72 6e 73 20 |arg) "\.|Returns |
|00000030| 6e 6f 6e 2d 6e 69 6c 20 | 69 66 20 74 68 65 72 65 |non-nil |if there|
|00000040| 20 69 73 20 6f 6e 6c 79 | 20 6f 6e 65 20 77 69 6e | is only| one win|
|00000050| 64 6f 77 2e 0a 4f 70 74 | 69 6f 6e 61 6c 20 61 72 |dow..Opt|ional ar|
|00000060| 67 20 4e 4f 4d 49 4e 49 | 20 6e 6f 6e 2d 6e 69 6c |g NOMINI| non-nil|
|00000070| 20 6d 65 61 6e 73 20 64 | 6f 6e 27 74 20 63 6f 75 | means d|on't cou|
|00000080| 6e 74 20 74 68 65 20 6d | 69 6e 69 62 75 66 66 65 |nt the m|inibuffe|
|00000090| 72 0a 65 76 65 6e 20 69 | 66 20 69 74 20 69 73 20 |r.even i|f it is |
|000000a0| 61 63 74 69 76 65 2e 22 | 20 28 62 79 74 65 2d 63 |active."| (byte-c|
|000000b0| 6f 64 65 20 22 c1 20 c2 | c1 20 08 85 0a 00 c0 5c |ode ". .|. .....\|
|000000c0| 22 3d 87 22 20 5b 61 72 | 67 20 73 65 6c 65 63 74 |"=." [ar|g select|
|000000d0| 65 64 2d 77 69 6e 64 6f | 77 20 6e 65 78 74 2d 77 |ed-windo|w next-w|
|000000e0| 69 6e 64 6f 77 5d 20 36 | 29 29 0a 0a 28 64 65 66 |indow] 6|))..(def|
|000000f0| 75 6e 20 72 65 61 64 2d | 71 75 6f 74 65 64 2d 63 |un read-|quoted-c|
|00000100| 68 61 72 20 28 26 6f 70 | 74 69 6f 6e 61 6c 20 70 |har (&op|tional p|
|00000110| 72 6f 6d 70 74 29 20 22 | 5c 0a 4c 69 6b 65 20 60 |rompt) "|\.Like `|
|00000120| 72 65 61 64 2d 63 68 61 | 72 27 2c 20 65 78 63 65 |read-cha|r', exce|
|00000130| 70 74 20 74 68 61 74 20 | 69 66 20 74 68 65 20 66 |pt that |if the f|
|00000140| 69 72 73 74 20 63 68 61 | 72 61 63 74 65 72 20 72 |irst cha|racter r|
|00000150| 65 61 64 20 69 73 20 61 | 6e 20 6f 63 74 61 6c 0a |ead is a|n octal.|
|00000160| 64 69 67 69 74 2c 20 77 | 65 20 72 65 61 64 20 75 |digit, w|e read u|
|00000170| 70 20 74 6f 20 74 77 6f | 20 6d 6f 72 65 20 6f 63 |p to two| more oc|
|00000180| 74 61 6c 20 64 69 67 69 | 74 73 20 61 6e 64 20 72 |tal digi|ts and r|
|00000190| 65 74 75 72 6e 20 74 68 | 65 20 63 68 61 72 61 63 |eturn th|e charac|
|000001a0| 74 65 72 0a 72 65 70 72 | 65 73 65 6e 74 65 64 20 |ter.repr|esented |
|000001b0| 62 79 20 74 68 65 20 6f | 63 74 61 6c 20 6e 75 6d |by the o|ctal num|
|000001c0| 62 65 72 20 63 6f 6e 73 | 69 73 74 69 6e 67 20 6f |ber cons|isting o|
|000001d0| 66 20 74 68 6f 73 65 20 | 64 69 67 69 74 73 2e 0a |f those |digits..|
|000001e0| 4f 70 74 69 6f 6e 61 6c | 20 61 72 67 75 6d 65 6e |Optional| argumen|
|000001f0| 74 20 50 52 4f 4d 50 54 | 20 73 70 65 63 69 66 69 |t PROMPT| specifi|
|00000200| 65 73 20 61 20 73 74 72 | 69 6e 67 20 74 6f 20 75 |es a str|ing to u|
|00000210| 73 65 20 74 6f 20 70 72 | 6f 6d 70 74 20 74 68 65 |se to pr|ompt the|
|00000220| 20 75 73 65 72 2e 22 20 | 28 62 79 74 65 2d 63 6f | user." |(byte-co|
|00000230| 64 65 20 22 ca ca c5 1a | 19 18 08 cb 57 85 75 00 |de "....|....W.u.|
|00000240| cc 08 21 c5 1c 1b 0e 06 | 85 1c 00 cd ce 0e 06 5c |..!.....|.......\|
|00000250| 22 88 72 89 12 88 0b 85 | 29 00 c5 89 16 07 2a 88 |".r.....|).....*.|
|00000260| 0a 3f 86 71 00 cf 0a 58 | 85 39 00 0a d0 58 83 5d |.?.q...X|.9...X.]|
|00000270| 00 d1 09 d2 5c 22 0a cf | 5a 5c 5c 11 08 54 89 10 |....\"..|Z\\..T..|
|00000280| 88 0e 06 85 5a 00 cd d3 | d4 0e 06 0a 23 89 16 06 |....Z...|....#...|
|00000290| 21 82 71 00 08 ca 56 83 | 6c 00 0a 16 08 d5 89 10 |!.q...V.|l.......|
|000002a0| 82 71 00 0a 11 d5 89 10 | 88 82 06 00 88 d6 d7 09 |.q......|........|
|000002b0| 5c 22 2b 87 22 20 5b 63 | 6f 75 6e 74 20 63 6f 64 |\"+." [c|ount cod|
|000002c0| 65 20 63 68 61 72 20 69 | 6e 68 69 62 69 74 2d 71 |e char i|nhibit-q|
|000002d0| 75 69 74 20 68 65 6c 70 | 2d 66 6f 72 6d 20 6e 69 |uit help|-form ni|
|000002e0| 6c 20 70 72 6f 6d 70 74 | 20 71 75 69 74 2d 66 6c |l prompt| quit-fl|
|000002f0| 61 67 20 75 6e 72 65 61 | 64 2d 63 6f 6d 6d 61 6e |ag unrea|d-comman|
|00000300| 64 2d 63 68 61 72 20 74 | 20 30 20 33 20 7a 65 72 |d-char t| 0 3 zer|
|00000310| 6f 70 20 6d 65 73 73 61 | 67 65 20 22 25 73 2d 22 |op messa|ge "%s-"|
|00000320| 20 34 38 20 35 35 20 2a | 20 38 20 66 6f 72 6d 61 | 48 55 *| 8 forma|
|00000330| 74 20 22 25 73 20 25 63 | 22 20 32 35 39 20 6c 6f |t "%s %c|" 259 lo|
|00000340| 67 61 6e 64 20 32 35 35 | 5d 20 39 29 29 0a 0a 28 |gand 255|] 9))..(|
|00000350| 64 65 66 75 6e 20 65 72 | 72 6f 72 20 28 26 72 65 |defun er|ror (&re|
|00000360| 73 74 20 61 72 67 73 29 | 20 22 5c 0a 53 69 67 6e |st args)| "\.Sign|
|00000370| 61 6c 20 61 6e 20 65 72 | 72 6f 72 2c 20 6d 61 6b |al an er|ror, mak|
|00000380| 69 6e 67 20 65 72 72 6f | 72 20 6d 65 73 73 61 67 |ing erro|r messag|
|00000390| 65 20 62 79 20 70 61 73 | 73 69 6e 67 20 61 6c 6c |e by pas|sing all|
|000003a0| 20 61 72 67 73 20 74 6f | 20 60 66 6f 72 6d 61 74 | args to| `format|
|000003b0| 27 2e 22 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |'." (byt|e-code "|
|000003c0| c0 85 10 00 c2 c3 c4 c5 | 09 5c 22 43 5c 22 88 82 |........|.\"C\"..|
|000003d0| 00 00 87 22 20 5b 74 20 | 61 72 67 73 20 73 69 67 |..." [t |args sig|
|000003e0| 6e 61 6c 20 65 72 72 6f | 72 20 61 70 70 6c 79 20 |nal erro|r apply |
|000003f0| 66 6f 72 6d 61 74 5d 20 | 36 29 29 0a 0a 28 64 65 |format] |6))..(de|
|00000400| 66 75 6e 20 75 6e 64 65 | 66 69 6e 65 64 20 6e 69 |fun unde|fined ni|
|00000410| 6c 20 28 69 6e 74 65 72 | 61 63 74 69 76 65 29 20 |l (inter|active) |
|00000420| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 88 c1 20 |(byte-co|de "... |
|00000430| 87 22 20 5b 6e 69 6c 20 | 64 69 6e 67 5d 20 32 29 |." [nil |ding] 2)|
|00000440| 29 0a 0a 28 70 75 74 20 | 28 71 75 6f 74 65 20 75 |)..(put |(quote u|
|00000450| 6e 64 65 66 69 6e 65 64 | 29 20 28 71 75 6f 74 65 |ndefined|) (quote|
|00000460| 20 73 75 70 70 72 65 73 | 73 2d 6b 65 79 6d 61 70 | suppres|s-keymap|
|00000470| 29 20 74 29 0a 0a 28 64 | 65 66 75 6e 20 73 75 70 |) t)..(d|efun sup|
|00000480| 70 72 65 73 73 2d 6b 65 | 79 6d 61 70 20 28 6d 61 |press-ke|ymap (ma|
|00000490| 70 20 26 6f 70 74 69 6f | 6e 61 6c 20 61 72 67 29 |p &optio|nal arg)|
|000004a0| 20 22 5c 0a 4d 61 6b 65 | 20 4d 41 50 20 6f 76 65 | "\.Make| MAP ove|
|000004b0| 72 72 69 64 65 20 61 6c | 6c 20 62 75 66 66 65 72 |rride al|l buffer|
|000004c0| 2d 6d 6f 64 69 66 79 69 | 6e 67 20 63 6f 6d 6d 61 |-modifyi|ng comma|
|000004d0| 6e 64 73 20 74 6f 20 62 | 65 20 75 6e 64 65 66 69 |nds to b|e undefi|
|000004e0| 6e 65 64 2e 0a 57 6f 72 | 6b 73 20 62 79 20 6b 6e |ned..Wor|ks by kn|
|000004f0| 6f 77 69 6e 67 20 77 68 | 69 63 68 20 63 6f 6d 6d |owing wh|ich comm|
|00000500| 61 6e 64 73 20 61 72 65 | 20 6e 6f 72 6d 61 6c 6c |ands are| normall|
|00000510| 79 20 62 75 66 66 65 72 | 2d 6d 6f 64 69 66 79 69 |y buffer|-modifyi|
|00000520| 6e 67 2e 0a 4e 6f 72 6d | 61 6c 6c 79 20 61 6c 73 |ng..Norm|ally als|
|00000530| 6f 20 6d 61 6b 65 73 20 | 64 69 67 69 74 73 20 73 |o makes |digits s|
|00000540| 65 74 20 6e 75 6d 65 72 | 69 63 20 61 72 67 2c 0a |et numer|ic arg,.|
|00000550| 62 75 74 20 6f 70 74 69 | 6f 6e 61 6c 20 73 65 63 |but opti|onal sec|
|00000560| 6f 6e 64 20 61 72 67 20 | 4e 4f 44 49 47 49 54 53 |ond arg |NODIGITS|
|00000570| 20 6e 6f 6e 2d 6e 69 6c | 20 70 72 65 76 65 6e 74 | non-nil| prevent|
|00000580| 73 20 74 68 69 73 2e 22 | 20 28 62 79 74 65 2d 63 |s this."| (byte-c|
|00000590| 6f 64 65 20 22 c4 18 08 | c5 57 85 15 00 09 08 c6 |ode "...|.W......|
|000005a0| 49 88 08 54 89 10 88 82 | 02 00 29 88 0a 86 3a 00 |I..T....|..)...:.|
|000005b0| c7 1b 09 c8 c9 49 88 ca | 89 13 88 0b cb 58 85 39 |.....I..|.....X.9|
|000005c0| 00 09 0b cc 49 88 0b 54 | 89 13 88 82 26 00 29 87 |....I..T|....&.).|
|000005d0| 22 20 5b 69 20 6d 61 70 | 20 61 72 67 20 6c 6f 6f |" [i map| arg loo|
|000005e0| 70 20 33 32 20 31 32 37 | 20 75 6e 64 65 66 69 6e |p 32 127| undefin|
|000005f0| 65 64 20 6e 69 6c 20 34 | 35 20 6e 65 67 61 74 69 |ed nil 4|5 negati|
|00000600| 76 65 2d 61 72 67 75 6d | 65 6e 74 20 34 38 20 35 |ve-argum|ent 48 5|
|00000610| 37 20 64 69 67 69 74 2d | 61 72 67 75 6d 65 6e 74 |7 digit-|argument|
|00000620| 5d 20 34 29 29 0a 0a 28 | 64 65 66 75 6e 20 73 75 |] 4))..(|defun su|
|00000630| 62 73 74 69 74 75 74 65 | 2d 6b 65 79 2d 64 65 66 |bstitute|-key-def|
|00000640| 69 6e 69 74 69 6f 6e 20 | 28 6f 6c 64 64 65 66 20 |inition |(olddef |
|00000650| 6e 65 77 64 65 66 20 6b | 65 79 6d 61 70 29 20 22 |newdef k|eymap) "|
|00000660| 5c 0a 52 65 70 6c 61 63 | 65 20 4f 4c 44 44 45 46 |\.Replac|e OLDDEF|
|00000670| 20 77 69 74 68 20 4e 45 | 57 44 45 46 20 66 6f 72 | with NE|WDEF for|
|00000680| 20 61 6e 79 20 6b 65 79 | 73 20 69 6e 20 4b 45 59 | any key|s in KEY|
|00000690| 4d 41 50 20 6e 6f 77 20 | 64 65 66 69 6e 65 64 20 |MAP now |defined |
|000006a0| 61 73 20 4f 4c 44 44 45 | 46 2e 0a 49 6e 20 6f 74 |as OLDDE|F..In ot|
|000006b0| 68 65 72 20 77 6f 72 64 | 73 2c 20 4f 4c 44 44 45 |her word|s, OLDDE|
|000006c0| 46 20 69 73 20 72 65 70 | 6c 61 63 65 64 20 77 69 |F is rep|laced wi|
|000006d0| 74 68 20 4e 45 57 44 45 | 46 20 77 68 65 72 65 20 |th NEWDE|F where |
|000006e0| 65 76 65 72 20 69 74 20 | 61 70 70 65 61 72 73 2e |ever it |appears.|
|000006f0| 22 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c5 08 |" (byte-|code "..|
|00000700| 21 83 2a 00 08 47 c6 1a | 19 0a 09 57 85 26 00 08 |!.*..G..|...W.&..|
|00000710| 0a 48 0b 3d 85 1d 00 08 | 0a 0c 49 88 0a 54 89 12 |.H.=....|..I..T..|
|00000720| 88 82 0b 00 2a 82 46 00 | 08 85 46 00 c7 c8 08 21 |....*.F.|..F....!|
|00000730| 21 0b 3d 85 3d 00 c9 08 | 40 0c 5c 22 88 08 41 89 |!.=.=...|@.\"..A.|
|00000740| 10 88 82 2a 00 87 22 20 | 5b 6b 65 79 6d 61 70 20 |...*.." |[keymap |
|00000750| 6c 65 6e 20 69 20 6f 6c | 64 64 65 66 20 6e 65 77 |len i ol|ddef new|
|00000760| 64 65 66 20 61 72 72 61 | 79 70 20 30 20 63 64 72 |def arra|yp 0 cdr|
|00000770| 2d 73 61 66 65 20 63 61 | 72 2d 73 61 66 65 20 73 |-safe ca|r-safe s|
|00000780| 65 74 63 64 72 5d 20 37 | 29 29 0a 0a 28 66 73 65 |etcdr] 7|))..(fse|
|00000790| 74 20 28 71 75 6f 74 65 | 20 69 67 6e 6f 72 65 29 |t (quote| ignore)|
|000007a0| 20 28 71 75 6f 74 65 20 | 28 6c 61 6d 62 64 61 20 | (quote |(lambda |
|000007b0| 28 26 72 65 73 74 20 69 | 67 6e 6f 72 65 29 20 6e |(&rest i|gnore) n|
|000007c0| 69 6c 29 29 29 0a 0a 28 | 66 73 65 74 20 28 71 75 |il)))..(|fset (qu|
|000007d0| 6f 74 65 20 6d 61 6b 65 | 2d 73 79 6e 74 61 78 2d |ote make|-syntax-|
|000007e0| 74 61 62 6c 65 29 20 28 | 71 75 6f 74 65 20 63 6f |table) (|quote co|
|000007f0| 70 79 2d 73 79 6e 74 61 | 78 2d 74 61 62 6c 65 29 |py-synta|x-table)|
|00000800| 29 0a 0a 28 66 73 65 74 | 20 28 71 75 6f 74 65 20 |)..(fset| (quote |
|00000810| 64 6f 74 29 20 28 71 75 | 6f 74 65 20 70 6f 69 6e |dot) (qu|ote poin|
|00000820| 74 29 29 0a 0a 28 66 73 | 65 74 20 28 71 75 6f 74 |t))..(fs|et (quot|
|00000830| 65 20 64 6f 74 2d 6d 61 | 72 6b 65 72 29 20 28 71 |e dot-ma|rker) (q|
|00000840| 75 6f 74 65 20 70 6f 69 | 6e 74 2d 6d 61 72 6b 65 |uote poi|nt-marke|
|00000850| 72 29 29 0a 0a 28 66 73 | 65 74 20 28 71 75 6f 74 |r))..(fs|et (quot|
|00000860| 65 20 64 6f 74 2d 6d 69 | 6e 29 20 28 71 75 6f 74 |e dot-mi|n) (quot|
|00000870| 65 20 70 6f 69 6e 74 2d | 6d 69 6e 29 29 0a 0a 28 |e point-|min))..(|
|00000880| 66 73 65 74 20 28 71 75 | 6f 74 65 20 64 6f 74 2d |fset (qu|ote dot-|
|00000890| 6d 61 78 29 20 28 71 75 | 6f 74 65 20 70 6f 69 6e |max) (qu|ote poin|
|000008a0| 74 2d 6d 61 78 29 29 0a | 0a 28 66 73 65 74 20 28 |t-max)).|.(fset (|
|000008b0| 71 75 6f 74 65 20 77 69 | 6e 64 6f 77 2d 64 6f 74 |quote wi|ndow-dot|
|000008c0| 29 20 28 71 75 6f 74 65 | 20 77 69 6e 64 6f 77 2d |) (quote| window-|
|000008d0| 70 6f 69 6e 74 29 29 0a | 0a 28 66 73 65 74 20 28 |point)).|.(fset (|
|000008e0| 71 75 6f 74 65 20 73 65 | 74 2d 77 69 6e 64 6f 77 |quote se|t-window|
|000008f0| 2d 64 6f 74 29 20 28 71 | 75 6f 74 65 20 73 65 74 |-dot) (q|uote set|
|00000900| 2d 77 69 6e 64 6f 77 2d | 70 6f 69 6e 74 29 29 0a |-window-|point)).|
|00000910| 0a 28 66 73 65 74 20 28 | 71 75 6f 74 65 20 72 65 |.(fset (|quote re|
|00000920| 61 64 2d 69 6e 70 75 74 | 29 20 28 71 75 6f 74 65 |ad-input|) (quote|
|00000930| 20 72 65 61 64 2d 73 74 | 72 69 6e 67 29 29 0a 0a | read-st|ring))..|
|00000940| 28 66 73 65 74 20 28 71 | 75 6f 74 65 20 73 65 6e |(fset (q|uote sen|
|00000950| 64 2d 73 74 72 69 6e 67 | 29 20 28 71 75 6f 74 65 |d-string|) (quote|
|00000960| 20 70 72 6f 63 65 73 73 | 2d 73 65 6e 64 2d 73 74 | process|-send-st|
|00000970| 72 69 6e 67 29 29 0a 0a | 28 66 73 65 74 20 28 71 |ring))..|(fset (q|
|00000980| 75 6f 74 65 20 73 65 6e | 64 2d 72 65 67 69 6f 6e |uote sen|d-region|
|00000990| 29 20 28 71 75 6f 74 65 | 20 70 72 6f 63 65 73 73 |) (quote| process|
|000009a0| 2d 73 65 6e 64 2d 72 65 | 67 69 6f 6e 29 29 0a 0a |-send-re|gion))..|
|000009b0| 28 66 73 65 74 20 28 71 | 75 6f 74 65 20 73 68 6f |(fset (q|uote sho|
|000009c0| 77 2d 62 75 66 66 65 72 | 29 20 28 71 75 6f 74 65 |w-buffer|) (quote|
|000009d0| 20 73 65 74 2d 77 69 6e | 64 6f 77 2d 62 75 66 66 | set-win|dow-buff|
|000009e0| 65 72 29 29 0a 0a 28 66 | 73 65 74 20 28 71 75 6f |er))..(f|set (quo|
|000009f0| 74 65 20 73 74 72 69 6e | 67 3d 29 20 28 71 75 6f |te strin|g=) (quo|
|00000a00| 74 65 20 73 74 72 69 6e | 67 2d 65 71 75 61 6c 29 |te strin|g-equal)|
|00000a10| 29 0a 0a 28 66 73 65 74 | 20 28 71 75 6f 74 65 20 |)..(fset| (quote |
|00000a20| 73 74 72 69 6e 67 3c 29 | 20 28 71 75 6f 74 65 20 |string<)| (quote |
|00000a30| 73 74 72 69 6e 67 2d 6c | 65 73 73 70 29 29 0a 0a |string-l|essp))..|
|00000a40| 28 66 73 65 74 20 28 71 | 75 6f 74 65 20 6d 6f 64 |(fset (q|uote mod|
|00000a50| 29 20 28 71 75 6f 74 65 | 20 25 29 29 0a 0a 28 66 |) (quote| %))..(f|
|00000a60| 73 65 74 20 28 71 75 6f | 74 65 20 6d 6f 76 65 2d |set (quo|te move-|
|00000a70| 6d 61 72 6b 65 72 29 20 | 28 71 75 6f 74 65 20 73 |marker) |(quote s|
|00000a80| 65 74 2d 6d 61 72 6b 65 | 72 29 29 0a 0a 28 66 73 |et-marke|r))..(fs|
|00000a90| 65 74 20 28 71 75 6f 74 | 65 20 65 71 6c 29 20 28 |et (quot|e eql) (|
|00000aa0| 71 75 6f 74 65 20 65 71 | 29 29 0a 0a 28 66 73 65 |quote eq|))..(fse|
|00000ab0| 74 20 28 71 75 6f 74 65 | 20 6e 6f 74 29 20 28 71 |t (quote| not) (q|
|00000ac0| 75 6f 74 65 20 6e 75 6c | 6c 29 29 0a 0a 28 66 73 |uote nul|l))..(fs|
|00000ad0| 65 74 20 28 71 75 6f 74 | 65 20 6e 75 6d 62 65 72 |et (quot|e number|
|00000ae0| 70 29 20 28 71 75 6f 74 | 65 20 69 6e 74 65 67 65 |p) (quot|e intege|
|00000af0| 72 70 29 29 0a 0a 28 66 | 73 65 74 20 28 71 75 6f |rp))..(f|set (quo|
|00000b00| 74 65 20 72 70 6c 61 63 | 61 29 20 28 71 75 6f 74 |te rplac|a) (quot|
|00000b10| 65 20 73 65 74 63 61 72 | 29 29 0a 0a 28 66 73 65 |e setcar|))..(fse|
|00000b20| 74 20 28 71 75 6f 74 65 | 20 72 70 6c 61 63 64 29 |t (quote| rplacd)|
|00000b30| 20 28 71 75 6f 74 65 20 | 73 65 74 63 64 72 29 29 | (quote |setcdr))|
|00000b40| 0a 0a 28 66 73 65 74 20 | 28 71 75 6f 74 65 20 62 |..(fset |(quote b|
|00000b50| 65 65 70 29 20 28 71 75 | 6f 74 65 20 64 69 6e 67 |eep) (qu|ote ding|
|00000b60| 29 29 0a 0a 28 66 73 65 | 74 20 28 71 75 6f 74 65 |))..(fse|t (quote|
|00000b70| 20 69 6e 64 65 6e 74 2d | 74 6f 2d 63 6f 6c 75 6d | indent-|to-colum|
|00000b80| 6e 29 20 28 71 75 6f 74 | 65 20 69 6e 64 65 6e 74 |n) (quot|e indent|
|00000b90| 2d 74 6f 29 29 0a 0a 28 | 66 73 65 74 20 28 71 75 |-to))..(|fset (qu|
|00000ba0| 6f 74 65 20 62 61 63 6b | 77 61 72 64 2d 64 65 6c |ote back|ward-del|
|00000bb0| 65 74 65 2d 63 68 61 72 | 29 20 28 71 75 6f 74 65 |ete-char|) (quote|
|00000bc0| 20 64 65 6c 65 74 65 2d | 62 61 63 6b 77 61 72 64 | delete-|backward|
|00000bd0| 2d 63 68 61 72 29 29 0a | 0a 28 64 65 66 76 61 72 |-char)).|.(defvar|
|00000be0| 20 67 6c 6f 62 61 6c 2d | 6d 61 70 20 6e 69 6c 20 | global-|map nil |
|00000bf0| 22 5c 0a 44 65 66 61 75 | 6c 74 20 67 6c 6f 62 61 |"\.Defau|lt globa|
|00000c00| 6c 20 6b 65 79 6d 61 70 | 20 6d 61 70 70 69 6e 67 |l keymap| mapping|
|00000c10| 20 45 6d 61 63 73 20 6b | 65 79 62 6f 61 72 64 20 | Emacs k|eyboard |
|00000c20| 69 6e 70 75 74 20 69 6e | 74 6f 20 63 6f 6d 6d 61 |input in|to comma|
|00000c30| 6e 64 73 2e 0a 54 68 65 | 20 76 61 6c 75 65 20 69 |nds..The| value i|
|00000c40| 73 20 61 20 6b 65 79 6d | 61 70 20 77 68 69 63 68 |s a keym|ap which|
|00000c50| 20 69 73 20 75 73 75 61 | 6c 6c 79 20 28 62 75 74 | is usua|lly (but|
|00000c60| 20 6e 6f 74 20 6e 65 63 | 65 73 73 61 72 69 6c 79 | not nec|essarily|
|00000c70| 29 20 45 6d 61 63 73 27 | 73 0a 67 6c 6f 62 61 6c |) Emacs'|s.global|
|00000c80| 20 6d 61 70 2e 22 29 0a | 0a 28 64 65 66 76 61 72 | map.").|.(defvar|
|00000c90| 20 63 74 6c 2d 78 2d 6d | 61 70 20 6e 69 6c 20 22 | ctl-x-m|ap nil "|
|00000ca0| 5c 0a 44 65 66 61 75 6c | 74 20 6b 65 79 6d 61 70 |\.Defaul|t keymap|
|00000cb0| 20 66 6f 72 20 43 2d 78 | 20 63 6f 6d 6d 61 6e 64 | for C-x| command|
|00000cc0| 73 2e 0a 54 68 65 20 6e | 6f 72 6d 61 6c 20 67 6c |s..The n|ormal gl|
|00000cd0| 6f 62 61 6c 20 64 65 66 | 69 6e 69 74 69 6f 6e 20 |obal def|inition |
|00000ce0| 6f 66 20 74 68 65 20 63 | 68 61 72 61 63 74 65 72 |of the c|haracter|
|00000cf0| 20 43 2d 78 20 69 6e 64 | 69 72 65 63 74 73 20 74 | C-x ind|irects t|
|00000d00| 6f 20 74 68 69 73 20 6b | 65 79 6d 61 70 2e 22 29 |o this k|eymap.")|
|00000d10| 0a 0a 28 64 65 66 76 61 | 72 20 65 73 63 2d 6d 61 |..(defva|r esc-ma|
|00000d20| 70 20 6e 69 6c 20 22 5c | 0a 44 65 66 61 75 6c 74 |p nil "\|.Default|
|00000d30| 20 6b 65 79 6d 61 70 20 | 66 6f 72 20 45 53 43 20 | keymap |for ESC |
|00000d40| 28 6d 65 74 61 29 20 63 | 6f 6d 6d 61 6e 64 73 2e |(meta) c|ommands.|
|00000d50| 0a 54 68 65 20 6e 6f 72 | 6d 61 6c 20 67 6c 6f 62 |.The nor|mal glob|
|00000d60| 61 6c 20 64 65 66 69 6e | 69 74 69 6f 6e 20 6f 66 |al defin|ition of|
|00000d70| 20 74 68 65 20 63 68 61 | 72 61 63 74 65 72 20 45 | the cha|racter E|
|00000d80| 53 43 20 69 6e 64 69 72 | 65 63 74 73 20 74 6f 20 |SC indir|ects to |
|00000d90| 74 68 69 73 20 6b 65 79 | 6d 61 70 2e 22 29 0a 0a |this key|map.")..|
|00000da0| 28 64 65 66 76 61 72 20 | 6d 6f 75 73 65 2d 6d 61 |(defvar |mouse-ma|
|00000db0| 70 20 6e 69 6c 20 22 5c | 0a 4b 65 79 6d 61 70 20 |p nil "\|.Keymap |
|00000dc0| 66 6f 72 20 6d 6f 75 73 | 65 20 63 6f 6d 6d 61 6e |for mous|e comman|
|00000dd0| 64 73 20 66 72 6f 6d 20 | 74 68 65 20 58 20 77 69 |ds from |the X wi|
|00000de0| 6e 64 6f 77 20 73 79 73 | 74 65 6d 2e 22 29 0a 0a |ndow sys|tem.")..|
|00000df0| 28 64 65 66 75 6e 20 72 | 75 6e 2d 68 6f 6f 6b 73 |(defun r|un-hooks|
|00000e00| 20 28 26 72 65 73 74 20 | 68 6f 6f 6b 6c 69 73 74 | (&rest |hooklist|
|00000e10| 29 20 22 5c 0a 54 61 6b | 65 73 20 68 6f 6f 6b 20 |) "\.Tak|es hook |
|00000e20| 6e 61 6d 65 73 20 61 6e | 64 20 72 75 6e 73 20 65 |names an|d runs e|
|00000e30| 61 63 68 20 6f 6e 65 20 | 69 6e 20 74 75 72 6e 2e |ach one |in turn.|
|00000e40| 20 20 4d 61 6a 6f 72 20 | 6d 6f 64 65 20 66 75 6e |  Major |mode fun|
|00000e50| 63 74 69 6f 6e 73 20 75 | 73 65 20 74 68 69 73 2e |ctions u|se this.|
|00000e60| 0a 45 61 63 68 20 61 72 | 67 75 6d 65 6e 74 20 73 |.Each ar|gument s|
|00000e70| 68 6f 75 6c 64 20 62 65 | 20 61 20 73 79 6d 62 6f |hould be| a symbo|
|00000e80| 6c 2c 20 61 20 68 6f 6f | 6b 20 76 61 72 69 61 62 |l, a hoo|k variab|
|00000e90| 6c 65 2e 0a 54 68 65 73 | 65 20 73 79 6d 62 6f 6c |le..Thes|e symbol|
|00000ea0| 73 20 61 72 65 20 70 72 | 6f 63 65 73 73 65 64 20 |s are pr|ocessed |
|00000eb0| 69 6e 20 74 68 65 20 6f | 72 64 65 72 20 73 70 65 |in the o|rder spe|
|00000ec0| 63 69 66 69 65 64 2e 0a | 49 66 20 61 20 68 6f 6f |cified..|If a hoo|
|00000ed0| 6b 20 73 79 6d 62 6f 6c | 20 68 61 73 20 61 20 6e |k symbol| has a n|
|00000ee0| 6f 6e 2d 6e 69 6c 20 76 | 61 6c 75 65 2c 20 74 68 |on-nil v|alue, th|
|00000ef0| 61 74 20 76 61 6c 75 65 | 20 6d 61 79 20 62 65 20 |at value| may be |
|00000f00| 61 20 66 75 6e 63 74 69 | 6f 6e 0a 6f 72 20 61 20 |a functi|on.or a |
|00000f10| 6c 69 73 74 20 6f 66 20 | 66 75 6e 63 74 69 6f 6e |list of |function|
|00000f20| 73 20 74 6f 20 62 65 20 | 63 61 6c 6c 65 64 20 74 |s to be |called t|
|00000f30| 6f 20 72 75 6e 20 74 68 | 65 20 68 6f 6f 6b 2e 0a |o run th|e hook..|
|00000f40| 49 66 20 74 68 65 20 76 | 61 6c 75 65 20 69 73 20 |If the v|alue is |
|00000f50| 61 20 66 75 6e 63 74 69 | 6f 6e 2c 20 69 74 20 69 |a functi|on, it i|
|00000f60| 73 20 63 61 6c 6c 65 64 | 20 77 69 74 68 20 6e 6f |s called| with no|
|00000f70| 20 61 72 67 75 6d 65 6e | 74 73 2e 0a 49 66 20 69 | argumen|ts..If i|
|00000f80| 74 20 69 73 20 61 20 6c | 69 73 74 2c 20 74 68 65 |t is a l|ist, the|
|00000f90| 20 65 6c 65 6d 65 6e 74 | 73 20 61 72 65 20 63 61 | element|s are ca|
|00000fa0| 6c 6c 65 64 2c 20 69 6e | 20 6f 72 64 65 72 2c 20 |lled, in| order, |
|00000fb0| 77 69 74 68 20 6e 6f 20 | 61 72 67 75 6d 65 6e 74 |with no |argument|
|00000fc0| 73 2e 22 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |s." (byt|e-code "|
|00000fd0| 08 85 37 00 08 40 19 c3 | 09 21 85 2d 00 09 4a 85 |..7..@..|.!.-..J.|
|00000fe0| 2d 00 09 4a 1a 0a 3c 85 | 1f 00 0a 40 c4 3d 3f 83 |-..J..<.|...@.=?.|
|00000ff0| 29 00 c5 c6 0a 5c 22 82 | 2c 00 c6 0a 21 29 29 88 |)....\".|,...!)).|
|00001000| 08 41 89 10 88 82 00 00 | 87 22 20 5b 68 6f 6f 6b |.A......|." [hook|
|00001010| 6c 69 73 74 20 73 79 6d | 20 76 61 6c 75 65 20 62 |list sym| value b|
|00001020| 6f 75 6e 64 70 20 6c 61 | 6d 62 64 61 20 6d 61 70 |oundp la|mbda map|
|00001030| 63 61 72 20 66 75 6e 63 | 61 6c 6c 5d 20 36 29 29 |car func|all] 6))|
|00001040| 0a 0a 28 64 65 66 75 6e | 20 6d 6f 6d 65 6e 74 61 |..(defun| momenta|
|00001050| 72 79 2d 73 74 72 69 6e | 67 2d 64 69 73 70 6c 61 |ry-strin|g-displa|
|00001060| 79 20 28 73 74 72 69 6e | 67 20 70 6f 73 20 26 6f |y (strin|g pos &o|
|00001070| 70 74 69 6f 6e 61 6c 20 | 65 78 69 74 2d 63 68 61 |ptional |exit-cha|
|00001080| 72 20 6d 65 73 73 61 67 | 65 29 20 22 5c 0a 4d 6f |r messag|e) "\.Mo|
|00001090| 6d 65 6e 74 61 72 69 6c | 79 20 64 69 73 70 6c 61 |mentaril|y displa|
|000010a0| 79 20 53 54 52 49 4e 47 | 20 69 6e 20 74 68 65 20 |y STRING| in the |
|000010b0| 62 75 66 66 65 72 20 61 | 74 20 50 4f 53 2e 0a 44 |buffer a|t POS..D|
|000010c0| 69 73 70 6c 61 79 20 72 | 65 6d 61 69 6e 73 20 75 |isplay r|emains u|
|000010d0| 6e 74 69 6c 20 6e 65 78 | 74 20 63 68 61 72 61 63 |ntil nex|t charac|
|000010e0| 74 65 72 20 69 73 20 74 | 79 70 65 64 2e 0a 49 66 |ter is t|yped..If|
|000010f0| 20 74 68 65 20 63 68 61 | 72 20 69 73 20 45 58 49 | the cha|r is EXI|
|00001100| 54 2d 43 48 41 52 20 28 | 6f 70 74 69 6f 6e 61 6c |T-CHAR (|optional|
|00001110| 20 74 68 69 72 64 20 61 | 72 67 2c 20 64 65 66 61 | third a|rg, defa|
|00001120| 75 6c 74 20 69 73 20 53 | 50 43 29 20 69 74 20 69 |ult is S|PC) it i|
|00001130| 73 20 73 77 61 6c 6c 6f | 77 65 64 3b 0a 6f 74 68 |s swallo|wed;.oth|
|00001140| 65 72 77 69 73 65 20 69 | 74 20 69 73 20 74 68 65 |erwise i|t is the|
|00001150| 6e 20 61 76 61 69 6c 61 | 62 6c 65 20 61 73 20 69 |n availa|ble as i|
|00001160| 6e 70 75 74 20 28 61 73 | 20 61 20 63 6f 6d 6d 61 |nput (as| a comma|
|00001170| 6e 64 20 69 66 20 6e 6f | 74 68 69 6e 67 20 65 6c |nd if no|thing el|
|00001180| 73 65 29 2e 0a 44 69 73 | 70 6c 61 79 20 4d 45 53 |se)..Dis|play MES|
|00001190| 53 41 47 45 20 28 6f 70 | 74 69 6f 6e 61 6c 20 66 |SAGE (op|tional f|
|000011a0| 6f 75 72 74 68 20 61 72 | 67 29 20 69 6e 20 74 68 |ourth ar|g) in th|
|000011b0| 65 20 65 63 68 6f 20 61 | 72 65 61 2e 0a 49 66 20 |e echo a|rea..If |
|000011c0| 4d 45 53 53 41 47 45 20 | 69 73 20 6e 69 6c 2c 20 |MESSAGE |is nil, |
|000011d0| 69 6e 73 74 72 75 63 74 | 69 6f 6e 73 20 74 6f 20 |instruct|ions to |
|000011e0| 74 79 70 65 20 45 58 49 | 54 2d 43 48 41 52 20 61 |type EXI|T-CHAR a|
|000011f0| 72 65 20 64 69 73 70 6c | 61 79 65 64 20 74 68 65 |re displ|ayed the|
|00001200| 72 65 2e 22 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |re." (by|te-code |
|00001210| 22 08 86 07 00 cc 89 10 | 88 c2 cd 20 0d c2 1e 06 |".......|... ....|
|00001220| 1c 1b 19 ce 8e 8a 0e 07 | 62 88 c2 89 15 88 cf 0e |........|b.......|
|00001230| 08 21 88 60 89 16 06 29 | 88 c9 0e 09 86 2f 00 d0 |.!.`...)|...../..|
|00001240| d1 08 21 5c 22 88 72 1e | 0a 0e 0a 08 3d 86 43 00 |..!\".r.|....=.C.|
|00001250| 0e 0a 89 16 0b 29 29 2c | 87 22 20 5b 65 78 69 74 |.....)),|." [exit|
|00001260| 2d 63 68 61 72 20 62 75 | 66 66 65 72 2d 72 65 61 |-char bu|ffer-rea|
|00001270| 64 2d 6f 6e 6c 79 20 6e | 69 6c 20 6d 6f 64 69 66 |d-only n|il modif|
|00001280| 69 65 64 20 6e 61 6d 65 | 20 62 75 66 66 65 72 2d |ied name| buffer-|
|00001290| 66 69 6c 65 2d 6e 61 6d | 65 20 69 6e 73 65 72 74 |file-nam|e insert|
|000012a0| 2d 65 6e 64 20 70 6f 73 | 20 73 74 72 69 6e 67 20 |-end pos| string |
|000012b0| 6d 65 73 73 61 67 65 20 | 63 68 61 72 20 75 6e 72 |message |char unr|
|000012c0| 65 61 64 2d 63 6f 6d 6d | 61 6e 64 2d 63 68 61 72 |ead-comm|and-char|
|000012d0| 20 33 32 20 62 75 66 66 | 65 72 2d 6d 6f 64 69 66 | 32 buff|er-modif|
|000012e0| 69 65 64 2d 70 20 28 28 | 62 79 74 65 2d 63 6f 64 |ied-p ((|byte-cod|
|000012f0| 65 20 22 08 85 0a 00 8a | c5 09 08 5c 22 29 88 0b |e ".....|...\")..|
|00001300| 89 12 88 c6 0c 21 87 22 | 20 5b 69 6e 73 65 72 74 |.....!."| [insert|
|00001310| 2d 65 6e 64 20 70 6f 73 | 20 62 75 66 66 65 72 2d |-end pos| buffer-|
|00001320| 66 69 6c 65 2d 6e 61 6d | 65 20 6e 61 6d 65 20 6d |file-nam|e name m|
|00001330| 6f 64 69 66 69 65 64 20 | 64 65 6c 65 74 65 2d 72 |odified |delete-r|
|00001340| 65 67 69 6f 6e 20 73 65 | 74 2d 62 75 66 66 65 72 |egion se|t-buffer|
|00001350| 2d 6d 6f 64 69 66 69 65 | 64 2d 70 5d 20 33 29 29 |-modifie|d-p] 3))|
|00001360| 20 69 6e 73 65 72 74 2d | 62 65 66 6f 72 65 2d 6d | insert-|before-m|
|00001370| 61 72 6b 65 72 73 20 22 | 54 79 70 65 20 25 73 20 |arkers "|Type %s |
|00001380| 74 6f 20 63 6f 6e 74 69 | 6e 75 65 20 65 64 69 74 |to conti|nue edit|
|00001390| 69 6e 67 2e 22 20 73 69 | 6e 67 6c 65 2d 6b 65 79 |ing." si|ngle-key|
|000013a0| 2d 64 65 73 63 72 69 70 | 74 69 6f 6e 5d 20 36 29 |-descrip|tion] 6)|
|000013b0| 29 0a 0a 28 64 65 66 75 | 6e 20 75 6e 64 6f 2d 73 |)..(defu|n undo-s|
|000013c0| 74 61 72 74 20 6e 69 6c | 20 22 5c 0a 4d 6f 76 65 |tart nil| "\.Move|
|000013d0| 20 75 6e 64 6f 2d 70 6f | 69 6e 74 65 72 20 74 6f | undo-po|inter to|
|000013e0| 20 66 72 6f 6e 74 20 6f | 66 20 75 6e 64 6f 20 72 | front o|f undo r|
|000013f0| 65 63 6f 72 64 73 2e 0a | 54 68 65 20 6e 65 78 74 |ecords..|The next|
|00001400| 20 63 61 6c 6c 20 74 6f | 20 75 6e 64 6f 2d 6d 6f | call to| undo-mo|
|00001410| 72 65 20 77 69 6c 6c 20 | 75 6e 64 6f 20 74 68 65 |re will |undo the|
|00001420| 20 6d 6f 73 74 20 72 65 | 63 65 6e 74 6c 79 20 6d | most re|cently m|
|00001430| 61 64 65 20 63 68 61 6e | 67 65 2e 22 20 28 62 79 |ade chan|ge." (by|
|00001440| 74 65 2d 63 6f 64 65 20 | 22 08 c1 3d 85 09 00 c3 |te-code |"..=....|
|00001450| c4 21 88 08 89 12 87 22 | 20 5b 62 75 66 66 65 72 |.!....."| [buffer|
|00001460| 2d 75 6e 64 6f 2d 6c 69 | 73 74 20 74 20 70 65 6e |-undo-li|st t pen|
|00001470| 64 69 6e 67 2d 75 6e 64 | 6f 2d 6c 69 73 74 20 65 |ding-und|o-list e|
|00001480| 72 72 6f 72 20 22 4e 6f | 20 75 6e 64 6f 20 69 6e |rror "No| undo in|
|00001490| 66 6f 72 6d 61 74 69 6f | 6e 20 69 6e 20 74 68 69 |formatio|n in thi|
|000014a0| 73 20 62 75 66 66 65 72 | 22 5d 20 33 29 29 0a 0a |s buffer|"] 3))..|
|000014b0| 28 64 65 66 75 6e 20 75 | 6e 64 6f 2d 6d 6f 72 65 |(defun u|ndo-more|
|000014c0| 20 28 63 6f 75 6e 74 29 | 20 22 5c 0a 55 6e 64 6f | (count)| "\.Undo|
|000014d0| 20 62 61 63 6b 20 4e 20 | 75 6e 64 6f 2d 62 6f 75 | back N |undo-bou|
|000014e0| 6e 64 61 72 69 65 73 20 | 62 65 79 6f 6e 64 20 77 |ndaries |beyond w|
|000014f0| 68 61 74 20 77 61 73 20 | 61 6c 72 65 61 64 79 20 |hat was |already |
|00001500| 75 6e 64 6f 6e 65 20 72 | 65 63 65 6e 74 6c 79 2e |undone r|ecently.|
|00001510| 0a 43 61 6c 6c 20 75 6e | 64 6f 2d 73 74 61 72 74 |.Call un|do-start|
|00001520| 20 74 6f 20 67 65 74 20 | 72 65 61 64 79 20 74 6f | to get |ready to|
|00001530| 20 75 6e 64 6f 20 72 65 | 63 65 6e 74 20 63 68 61 | undo re|cent cha|
|00001540| 6e 67 65 73 2c 0a 74 68 | 65 6e 20 63 61 6c 6c 20 |nges,.th|en call |
|00001550| 75 6e 64 6f 2d 6d 6f 72 | 65 20 6f 6e 65 20 6f 72 |undo-mor|e one or|
|00001560| 20 6d 6f 72 65 20 74 69 | 6d 65 73 20 74 6f 20 75 | more ti|mes to u|
|00001570| 6e 64 6f 20 74 68 65 6d | 2e 22 20 28 62 79 74 65 |ndo them|." (byte|
|00001580| 2d 63 6f 64 65 20 22 08 | 86 07 00 c2 c3 21 88 c4 |-code ".|.....!..|
|00001590| 09 08 5c 22 89 10 87 22 | 20 5b 70 65 6e 64 69 6e |..\"..."| [pendin|
|000015a0| 67 2d 75 6e 64 6f 2d 6c | 69 73 74 20 63 6f 75 6e |g-undo-l|ist coun|
|000015b0| 74 20 65 72 72 6f 72 20 | 22 4e 6f 20 66 75 72 74 |t error |"No furt|
|000015c0| 68 65 72 20 75 6e 64 6f | 20 69 6e 66 6f 72 6d 61 |her undo| informa|
|000015d0| 74 69 6f 6e 22 20 70 72 | 69 6d 69 74 69 76 65 2d |tion" pr|imitive-|
|000015e0| 75 6e 64 6f 5d 20 34 29 | 29 0a                   |undo] 4)|).      |
+--------+-------------------------+-------------------------+--------+--------+