/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / lucid / lemacs-19.6 / lisp / ilisp / ilisp-bat.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 77 7a 40 74 68 61 |piled by| jwz@tha|
|00000020| 6c 69 64 6f 6d 69 64 65 | 20 6f 6e 20 4d 6f 6e 20 |lidomide| on Mon |
|00000030| 46 65 62 20 20 31 20 31 | 38 3a 35 34 3a 33 30 20 |Feb  1 1|8:54:30 |
|00000040| 31 39 39 33 0a 3b 3b 3b | 20 66 72 6f 6d 20 66 69 |1993.;;;| from fi|
|00000050| 6c 65 20 2f 63 61 64 69 | 6c 6c 61 63 31 2f 63 6f |le /cadi|llac1/co|
|00000060| 64 65 2f 62 75 69 6c 64 | 2f 6c 65 6d 61 63 73 2f |de/build|/lemacs/|
|00000070| 6c 69 73 70 2f 69 6c 69 | 73 70 2f 69 6c 69 73 70 |lisp/ili|sp/ilisp|
|00000080| 2d 62 61 74 2e 65 6c 0a | 3b 3b 3b 20 65 6d 61 63 |-bat.el.|;;; emac|
|00000090| 73 20 76 65 72 73 69 6f | 6e 20 31 39 2e 34 2e 31 |s versio|n 19.4.1|
|000000a0| 33 20 4c 75 63 69 64 2e | 0a 3b 3b 3b 20 62 79 74 |3 Lucid.|.;;; byt|
|000000b0| 65 63 6f 6d 70 20 76 65 | 72 73 69 6f 6e 20 32 2e |ecomp ve|rsion 2.|
|000000c0| 31 30 3b 20 20 31 2d 66 | 65 62 2d 39 33 2e 0a 3b |10;  1-f|eb-93..;|
|000000d0| 3b 3b 20 6f 70 74 69 6d | 69 7a 61 74 69 6f 6e 20 |;; optim|ization |
|000000e0| 69 73 20 6f 6e 2e 0a 3b | 3b 3b 20 74 68 69 73 20 |is on..;|;; this |
|000000f0| 66 69 6c 65 20 75 73 65 | 73 20 6f 70 63 6f 64 65 |file use|s opcode|
|00000100| 73 20 77 68 69 63 68 20 | 64 6f 20 6e 6f 74 20 65 |s which |do not e|
|00000110| 78 69 73 74 20 69 6e 20 | 45 6d 61 63 73 31 38 2e |xist in |Emacs18.|
|00000120| 0a 0a 28 69 66 20 28 61 | 6e 64 20 28 62 6f 75 6e |..(if (a|nd (boun|
|00000130| 64 70 20 27 65 6d 61 63 | 73 2d 76 65 72 73 69 6f |dp 'emac|s-versio|
|00000140| 6e 29 0a 09 20 28 6f 72 | 20 28 61 6e 64 20 28 62 |n).. (or| (and (b|
|00000150| 6f 75 6e 64 70 20 27 65 | 70 6f 63 68 3a 3a 76 65 |oundp 'e|poch::ve|
|00000160| 72 73 69 6f 6e 29 20 65 | 70 6f 63 68 3a 3a 76 65 |rsion) e|poch::ve|
|00000170| 72 73 69 6f 6e 29 0a 09 | 20 20 20 20 20 28 73 74 |rsion)..|     (st|
|00000180| 72 69 6e 67 2d 6c 65 73 | 73 70 20 65 6d 61 63 73 |ring-les|sp emacs|
|00000190| 2d 76 65 72 73 69 6f 6e | 20 22 31 39 22 29 29 29 |-version| "19")))|
|000001a0| 0a 20 20 20 20 28 65 72 | 72 6f 72 20 22 54 68 69 |.    (er|ror "Thi|
|000001b0| 73 20 66 69 6c 65 20 77 | 61 73 20 63 6f 6d 70 69 |s file w|as compi|
|000001c0| 6c 65 64 20 66 6f 72 20 | 45 6d 61 63 73 31 39 2e |led for |Emacs19.|
|000001d0| 22 29 29 0a 0a 28 66 73 | 65 74 20 27 6d 61 72 6b |"))..(fs|et 'mark|
|000001e0| 2d 63 68 61 6e 67 65 2d | 6c 69 73 70 20 23 5b 28 |-change-|lisp #[(|
|000001f0| 61 72 67 29 20 22 c0 89 | 19 1a 8a c3 20 12 c4 20 |arg) "..|.... .. |
|00000200| 11 29 0d ab 9a c6 5c 6e | 0e 07 c8 23 40 1e 09 ca |.)....\n|...#@...|
|00000210| cb 09 5c 22 88 cc 0e 09 | 0e 07 5c 22 89 16 07 29 |..\"....|..\"...)|
|00000220| aa a0 ca cd 09 5c 22 88 | c6 5c 6e 0e 07 c8 23 3f |.....\".|.\n...#?|
|00000230| ad 92 ce 20 89 1e 0f 5c | 6e c0 93 88 0e 0f 0e 07 |... ...\|n.......|
|00000240| 42 89 16 07 29 2a 87 22 | 20 5b 6e 69 6c 20 6e 61 |B...)*."| [nil na|
|00000250| 6d 65 20 70 6f 69 6e 74 | 20 6c 69 73 70 2d 64 65 |me point| lisp-de|
|00000260| 66 75 6e 2d 62 65 67 69 | 6e 20 6c 69 73 70 2d 64 |fun-begi|n lisp-d|
|00000270| 65 66 2d 6e 61 6d 65 20 | 61 72 67 20 6c 69 73 70 |ef-name |arg lisp|
|00000280| 2d 6d 65 6d 6b 20 6c 69 | 73 70 2d 63 68 61 6e 67 |-memk li|sp-chang|
|00000290| 65 73 20 6d 61 72 6b 65 | 72 2d 70 6f 73 69 74 69 |es marke|r-positi|
|000002a0| 6f 6e 20 6d 61 72 6b 65 | 72 20 6d 65 73 73 61 67 |on marke|r messag|
|000002b0| 65 20 22 25 73 20 6d 61 | 72 6b 65 64 20 61 73 20 |e "%s ma|rked as |
|000002c0| 75 6e 63 68 61 6e 67 65 | 64 22 20 64 65 6c 71 20 |unchange|d" delq |
|000002d0| 22 25 73 20 6d 61 72 6b | 65 64 20 61 73 20 63 68 |"%s mark|ed as ch|
|000002e0| 61 6e 67 65 64 22 20 6d | 61 6b 65 2d 6d 61 72 6b |anged" m|ake-mark|
|000002f0| 65 72 20 6e 65 77 5d 20 | 35 20 22 5c 0a 4d 61 72 |er new] |5 "\.Mar|
|00000300| 6b 20 74 68 65 20 63 75 | 72 72 65 6e 74 20 64 65 |k the cu|rrent de|
|00000310| 66 75 6e 20 61 73 20 62 | 65 69 6e 67 20 63 68 61 |fun as b|eing cha|
|00000320| 6e 67 65 64 20 73 6f 20 | 74 68 61 74 20 6c 69 73 |nged so |that lis|
|00000330| 70 2d 65 76 61 6c 2d 63 | 68 61 6e 67 65 73 2c 0a |p-eval-c|hanges,.|
|00000340| 6f 72 20 6c 69 73 70 2d | 63 6f 6d 70 69 6c 65 2d |or lisp-|compile-|
|00000350| 63 68 61 6e 67 65 73 20 | 77 69 6c 6c 20 77 6f 72 |changes |will wor|
|00000360| 6b 20 6f 6e 20 69 74 2e | 20 20 57 69 74 68 20 61 |k on it.|  With a|
|00000370| 20 70 72 65 66 69 78 2c | 20 75 6e 6d 61 72 6b 2e | prefix,| unmark.|
|00000380| 22 20 22 50 22 5d 29 0a | 28 62 79 74 65 2d 63 6f |" "P"]).|(byte-co|
|00000390| 64 65 20 22 08 3c ab 84 | c1 08 42 10 5c 6e 3a ab |de ".<..|..B.\n:.|
|000003a0| 84 c1 5c 6e 42 12 c3 87 | 22 20 5b 70 6f 70 70 65 |..\nB...|" [poppe|
|000003b0| 72 2d 70 6f 70 2d 62 75 | 66 66 65 72 73 20 22 2a |r-pop-bu|ffers "*|
|000003c0| 43 68 61 6e 67 65 64 2d | 44 65 66 69 6e 69 74 69 |Changed-|Definiti|
|000003d0| 6f 6e 73 2a 22 20 70 6f | 70 70 65 72 2d 62 75 66 |ons*" po|pper-buf|
|000003e0| 66 65 72 73 2d 74 6f 2d | 73 6b 69 70 20 6e 69 6c |fers-to-|skip nil|
|000003f0| 5d 20 32 29 0a 28 66 73 | 65 74 20 27 6c 69 73 74 |] 2).(fs|et 'list|
|00000400| 2d 63 68 61 6e 67 65 73 | 2d 6c 69 73 70 20 23 5b |-changes|-lisp #[|
|00000410| 6e 69 6c 20 22 c0 c1 c2 | 0b 5c 22 21 89 1c ab 96 |nil "...|.\"!....|
|00000420| c5 90 c6 0c 21 88 8a c5 | 71 88 65 62 88 c7 20 88 |....!...|q.eb.. .|
|00000430| c8 63 29 91 aa 83 c9 ca | 21 29 87 22 20 5b 72 65 |.c).....|!)." [re|
|00000440| 76 65 72 73 65 20 6d 61 | 70 63 61 72 20 23 5b 28 |verse ma|pcar #[(|
|00000450| 63 68 61 6e 67 65 29 20 | 22 8a c0 09 21 71 88 09 |change) |"...!q..|
|00000460| 62 88 c2 20 29 87 22 20 | 5b 6d 61 72 6b 65 72 2d |b.. )." |[marker-|
|00000470| 62 75 66 66 65 72 20 63 | 68 61 6e 67 65 20 6c 69 |buffer c|hange li|
|00000480| 73 70 2d 64 65 66 2d 6e | 61 6d 65 5d 20 32 5d 20 |sp-def-n|ame] 2] |
|00000490| 6c 69 73 70 2d 63 68 61 | 6e 67 65 73 20 6e 61 6d |lisp-cha|nges nam|
|000004a0| 65 73 20 22 2a 43 68 61 | 6e 67 65 64 2d 44 65 66 |es "*Cha|nged-Def|
|000004b0| 69 6e 69 74 69 6f 6e 73 | 2a 22 20 64 69 73 70 6c |initions|*" displ|
|000004c0| 61 79 2d 63 6f 6d 70 6c | 65 74 69 6f 6e 2d 6c 69 |ay-compl|etion-li|
|000004d0| 73 74 20 6b 69 6c 6c 2d | 6c 69 6e 65 20 22 43 68 |st kill-|line "Ch|
|000004e0| 61 6e 67 65 64 20 4c 49 | 53 50 20 66 6f 72 6d 73 |anged LI|SP forms|
|000004f0| 3a 22 20 65 72 72 6f 72 | 20 22 4e 6f 20 63 68 61 |:" error| "No cha|
|00000500| 6e 67 65 64 20 64 65 66 | 69 6e 69 74 69 6f 6e 73 |nged def|initions|
|00000510| 22 5d 20 35 20 22 5c 0a | 4c 69 73 74 20 74 68 65 |"] 5 "\.|List the|
|00000520| 20 6e 61 6d 65 20 6f 66 | 20 4c 49 53 50 20 66 6f | name of| LISP fo|
|00000530| 72 6d 73 20 63 75 72 72 | 65 6e 74 6c 79 20 6d 61 |rms curr|ently ma|
|00000540| 72 6b 65 64 20 61 73 20 | 62 65 69 6e 67 20 63 68 |rked as |being ch|
|00000550| 61 6e 67 65 64 2e 22 20 | 6e 69 6c 5d 29 0a 28 66 |anged." |nil]).(f|
|00000560| 73 65 74 20 27 63 6c 65 | 61 72 2d 63 68 61 6e 67 |set 'cle|ar-chang|
|00000570| 65 73 2d 6c 69 73 70 20 | 23 5b 6e 69 6c 20 22 c0 |es-lisp |#[nil ".|
|00000580| c1 21 88 c2 89 13 87 22 | 20 5b 6d 65 73 73 61 67 |.!....."| [messag|
|00000590| 65 20 22 43 6c 65 61 72 | 65 64 20 63 68 61 6e 67 |e "Clear|ed chang|
|000005a0| 65 73 22 20 6e 69 6c 20 | 6c 69 73 70 2d 63 68 61 |es" nil |lisp-cha|
|000005b0| 6e 67 65 73 5d 20 32 20 | 22 5c 0a 43 6c 65 61 72 |nges] 2 |"\.Clear|
|000005c0| 20 74 68 65 20 6c 69 73 | 74 20 6f 66 20 4c 49 53 | the lis|t of LIS|
|000005d0| 50 20 66 6f 72 6d 73 20 | 63 75 72 72 65 6e 74 6c |P forms |currentl|
|000005e0| 79 20 6d 61 72 6b 65 64 | 20 61 73 20 62 65 69 6e |y marked| as bein|
|000005f0| 67 20 63 68 61 6e 67 65 | 64 2e 22 20 6e 69 6c 5d |g change|d." nil]|
|00000600| 29 0a 28 66 73 65 74 20 | 27 6c 69 73 70 2d 63 68 |).(fset |'lisp-ch|
|00000610| 61 6e 67 65 2d 68 61 6e | 64 6c 65 72 20 23 5b 28 |ange-han|dler #[(|
|00000620| 26 72 65 73 74 20 61 72 | 67 73 29 20 22 08 40 19 |&rest ar|gs) ".@.|
|00000630| 5c 6e ab 8d c3 09 0c c5 | 23 ac 86 0c 09 c6 42 a4 |\n......|#.....B.|
|00000640| 14 29 08 41 10 c7 0e 08 | 0e 09 5c 22 87 22 20 5b |.).A....|..\"." [|
|00000650| 69 6c 69 73 70 2d 70 65 | 6e 64 69 6e 67 2d 63 68 |ilisp-pe|nding-ch|
|00000660| 61 6e 67 65 73 20 63 68 | 61 6e 67 65 20 63 6f 6d |anges ch|ange com|
|00000670| 69 6e 74 2d 65 72 72 6f | 72 70 20 6c 69 73 70 2d |int-erro|rp lisp-|
|00000680| 6d 65 6d 6b 20 6c 69 73 | 70 2d 63 68 61 6e 67 65 |memk lis|p-change|
|00000690| 73 20 6d 61 72 6b 65 72 | 2d 70 6f 73 69 74 69 6f |s marker|-positio|
|000006a0| 6e 20 6e 69 6c 20 61 70 | 70 6c 79 20 63 6f 6d 69 |n nil ap|ply comi|
|000006b0| 6e 74 2d 68 61 6e 64 6c | 65 72 20 61 72 67 73 5d |nt-handl|er args]|
|000006c0| 20 34 20 22 5c 0a 48 61 | 6e 64 6c 65 20 61 6e 20 | 4 "\.Ha|ndle an |
|000006d0| 65 72 72 6f 72 20 64 75 | 72 69 6e 67 20 61 20 62 |error du|ring a b|
|000006e0| 61 74 63 68 20 70 72 6f | 63 65 73 73 20 62 79 20 |atch pro|cess by |
|000006f0| 6b 65 65 70 69 6e 67 20 | 74 68 65 20 63 68 61 6e |keeping |the chan|
|00000700| 67 65 20 6f 6e 20 74 68 | 65 0a 6c 69 73 74 20 61 |ge on th|e.list a|
|00000710| 6e 64 20 70 61 73 73 69 | 6e 67 20 69 74 20 6f 6e |nd passi|ng it on|
|00000720| 20 74 6f 20 74 68 65 20 | 6e 6f 72 6d 61 6c 20 65 | to the |normal e|
|00000730| 72 72 6f 72 20 68 61 6e | 64 6c 65 72 2e 22 5d 29 |rror han|dler."])|
|00000740| 0a 28 66 73 65 74 20 27 | 6c 69 73 70 2d 63 68 61 |.(fset '|lisp-cha|
|00000750| 6e 67 65 73 20 23 5b 28 | 63 6f 6d 6d 61 6e 64 20 |nges #[(|command |
|00000760| 6d 65 73 73 61 67 65 29 | 20 22 8a c0 20 71 88 09 |message)| ".. q..|
|00000770| ad 84 09 c2 3d 3f c3 0c | 21 c5 1e 06 1e 07 1e 08 |....=?..|!.......|
|00000780| 0e 09 0e 07 a4 16 09 c5 | 11 0e 5c 6e ab 8e 8a c5 |........|..\n....|
|00000790| 16 5c 6e cb cc 21 71 88 | 65 64 7c 88 29 0e 07 ab |.\n..!q.|ed|.)...|
|000007a0| b2 0e 07 40 1e 0d c5 1e | 0e cf 0e 0d 21 71 88 0e |...@....|....!q..|
|000007b0| 0d 62 88 d0 20 16 0e d1 | 20 88 0e 12 0e 0d 60 c5 |.b.. ...| .....`.|
|000007c0| d3 0e 14 0e 0e 5c 22 c5 | d5 26 06 88 0e 07 41 16 |.....\".|.&....A.|
|000007d0| 07 2a aa 4a d6 d7 20 d8 | 5c 22 88 0e 08 ab 85 d4 |.*.J.. .|\"......|
|000007e0| d9 21 aa 87 d4 da 21 88 | c5 89 14 2c 87 22 20 5b |.!....!.|...,." [|
|000007f0| 69 6c 69 73 70 2d 62 75 | 66 66 65 72 20 63 75 72 |ilisp-bu|ffer cur|
|00000800| 72 65 6e 74 2d 70 72 65 | 66 69 78 2d 61 72 67 20 |rent-pre|fix-arg |
|00000810| 2d 20 72 65 76 65 72 73 | 65 20 6c 69 73 70 2d 63 |- revers|e lisp-c|
|00000820| 68 61 6e 67 65 73 20 6e | 69 6c 20 6c 69 73 70 2d |hanges n|il lisp-|
|00000830| 77 61 69 74 2d 70 20 63 | 68 61 6e 67 65 73 20 6b |wait-p c|hanges k|
|00000840| 65 65 70 20 69 6c 69 73 | 70 2d 70 65 6e 64 69 6e |eep ilis|p-pendin|
|00000850| 67 2d 63 68 61 6e 67 65 | 73 20 63 6f 6d 69 6e 74 |g-change|s comint|
|00000860| 2d 71 75 65 75 65 2d 65 | 6d 70 74 69 65 64 20 67 |-queue-e|mptied g|
|00000870| 65 74 2d 62 75 66 66 65 | 72 2d 63 72 65 61 74 65 |et-buffe|r-create|
|00000880| 20 22 2a 45 72 72 6f 72 | 73 2a 22 20 63 68 61 6e | "*Error|s*" chan|
|00000890| 67 65 20 6e 61 6d 65 20 | 6d 61 72 6b 65 72 2d 62 |ge name |marker-b|
|000008a0| 75 66 66 65 72 20 6c 69 | 73 70 2d 64 65 66 2d 6e |uffer li|sp-def-n|
|000008b0| 61 6d 65 20 66 6f 72 77 | 61 72 64 2d 73 65 78 70 |ame forw|ard-sexp|
|000008c0| 20 63 6f 6d 6d 61 6e 64 | 20 66 6f 72 6d 61 74 20 | command| format |
|000008d0| 6d 65 73 73 61 67 65 20 | 6c 69 73 70 2d 63 68 61 |message |lisp-cha|
|000008e0| 6e 67 65 2d 68 61 6e 64 | 6c 65 72 20 63 6f 6d 69 |nge-hand|ler comi|
|000008f0| 6e 74 2d 73 65 6e 64 2d | 63 6f 64 65 20 69 6c 69 |nt-send-|code ili|
|00000900| 73 70 2d 70 72 6f 63 65 | 73 73 20 23 5b 6e 69 6c |sp-proce|ss #[nil|
|00000910| 20 22 8a c0 c1 21 71 88 | 65 64 7c 88 8a c2 71 88 | "...!q.|ed|...q.|
|00000920| c3 20 29 63 29 87 22 20 | 5b 67 65 74 2d 62 75 66 |. )c)." |[get-buf|
|00000930| 66 65 72 2d 63 72 65 61 | 74 65 20 22 2a 4c 61 73 |fer-crea|te "*Las|
|00000940| 74 2d 43 68 61 6e 67 65 | 73 2a 22 20 22 2a 45 72 |t-Change|s*" "*Er|
|00000950| 72 6f 72 73 2a 22 20 62 | 75 66 66 65 72 2d 73 74 |rors*" b|uffer-st|
|00000960| 72 69 6e 67 5d 20 32 5d | 20 22 53 74 61 72 74 65 |ring] 2]| "Starte|
|00000970| 64 2c 20 62 75 74 20 6b | 65 65 70 69 6e 67 20 63 |d, but k|eeping c|
|00000980| 68 61 6e 67 65 73 22 20 | 22 53 74 61 72 74 65 64 |hanges" |"Started|
|00000990| 20 63 68 61 6e 67 65 73 | 22 5d 20 37 20 22 5c 0a | changes|"] 7 "\.|
|000009a0| 41 70 70 6c 79 20 43 4f | 4d 4d 41 4e 44 20 74 6f |Apply CO|MMAND to|
|000009b0| 20 65 61 63 68 20 6f 66 | 20 74 68 65 20 63 68 61 | each of| the cha|
|000009c0| 6e 67 65 73 20 61 6e 64 | 20 75 73 65 20 4d 45 53 |nges and| use MES|
|000009d0| 53 41 47 45 20 74 6f 20 | 70 72 69 6e 74 20 61 0a |SAGE to |print a.|
|000009e0| 6d 65 73 73 61 67 65 20 | 67 69 76 65 6e 20 74 68 |message |given th|
|000009f0| 65 20 6e 61 6d 65 20 6f | 66 20 74 68 65 20 63 68 |e name o|f the ch|
|00000a00| 61 6e 67 65 2e 20 20 49 | 66 20 74 68 65 72 65 20 |ange.  I|f there |
|00000a10| 69 73 20 61 20 70 6f 73 | 69 74 69 76 65 20 70 72 |is a pos|itive pr|
|00000a20| 65 66 69 78 2c 0a 74 68 | 65 20 63 68 61 6e 67 65 |efix,.th|e change|
|00000a30| 20 6c 69 73 74 20 77 69 | 6c 6c 20 6e 6f 74 20 62 | list wi|ll not b|
|00000a40| 65 20 63 68 61 6e 67 65 | 64 2e 22 5d 29 0a 28 66 |e change|d."]).(f|
|00000a50| 73 65 74 20 27 65 76 61 | 6c 2d 63 68 61 6e 67 65 |set 'eva|l-change|
|00000a60| 73 2d 6c 69 73 70 20 23 | 5b 6e 69 6c 20 22 c0 c1 |s-lisp #|[nil "..|
|00000a70| c2 5c 22 87 22 20 5b 6c | 69 73 70 2d 63 68 61 6e |.\"." [l|isp-chan|
|00000a80| 67 65 73 20 65 76 61 6c | 2d 72 65 67 69 6f 6e 2d |ges eval|-region-|
|00000a90| 6c 69 73 70 20 22 45 76 | 61 6c 75 61 74 65 20 63 |lisp "Ev|aluate c|
|00000aa0| 68 61 6e 67 65 64 20 25 | 73 22 5d 20 33 20 22 5c |hanged %|s"] 3 "\|
|00000ab0| 0a 45 76 61 6c 75 61 74 | 65 20 74 68 65 20 66 6f |.Evaluat|e the fo|
|00000ac0| 72 6d 73 20 6d 61 72 6b | 65 64 20 61 73 20 62 65 |rms mark|ed as be|
|00000ad0| 69 6e 67 20 63 68 61 6e | 67 65 64 2e 20 20 57 69 |ing chan|ged.  Wi|
|00000ae0| 74 68 20 70 72 65 66 69 | 78 2c 20 64 6f 20 6e 6f |th prefi|x, do no|
|00000af0| 74 0a 63 6c 65 61 72 20 | 74 68 65 20 63 68 61 6e |t.clear |the chan|
|00000b00| 67 65 20 6c 69 73 74 2e | 22 20 6e 69 6c 5d 29 0a |ge list.|" nil]).|
|00000b10| 28 66 73 65 74 20 27 63 | 6f 6d 70 69 6c 65 2d 63 |(fset 'c|ompile-c|
|00000b20| 68 61 6e 67 65 73 2d 6c | 69 73 70 20 23 5b 6e 69 |hanges-l|isp #[ni|
|00000b30| 6c 20 22 c0 c1 c2 5c 22 | 87 22 20 5b 6c 69 73 70 |l "...\"|." [lisp|
|00000b40| 2d 63 68 61 6e 67 65 73 | 20 63 6f 6d 70 69 6c 65 |-changes| compile|
|00000b50| 2d 72 65 67 69 6f 6e 2d | 6c 69 73 70 20 22 43 6f |-region-|lisp "Co|
|00000b60| 6d 70 69 6c 65 20 63 68 | 61 6e 67 65 64 20 25 73 |mpile ch|anged %s|
|00000b70| 22 5d 20 33 20 22 5c 0a | 43 6f 6d 70 69 6c 65 20 |"] 3 "\.|Compile |
|00000b80| 74 68 65 20 66 6f 72 6d | 73 20 6d 61 72 6b 65 64 |the form|s marked|
|00000b90| 20 61 73 20 62 65 69 6e | 67 20 63 68 61 6e 67 65 | as bein|g change|
|00000ba0| 64 2e 20 20 57 69 74 68 | 20 70 72 65 66 69 78 2c |d.  With| prefix,|
|00000bb0| 20 64 6f 20 6e 6f 74 0a | 63 6c 65 61 72 20 74 68 | do not.|clear th|
|00000bc0| 65 20 63 68 61 6e 67 65 | 20 6c 69 73 74 2e 22 20 |e change| list." |
|00000bd0| 6e 69 6c 5d 29 0a       |                         |nil]).  |        |
+--------+-------------------------+-------------------------+--------+--------+