home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / lucid / lemacs-19.6 / lisp / prim / options.elc < prev    next >
Emacs Compiled Lisp  |  1993-04-01  |  2.8 KB

open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text


This file was processed as: Emacs Compiled Lisp (other/emacsCompiledLisp).
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
1% dexvert Emacs Compiled Lisp (other/emacsCompiledLisp) magic Unsupported
1% dexvert Combustion 2 Particle Library (other/combustion2ParticleLibrary) ext Unsupported
100% file Emacs/XEmacs v19 byte-compiled Lisp data default
99% file data default
100% TrID Emacs/XEmacs byte-compiled Lisp (generic) default
100% xdgMime text/x-emacs-lisp default (weak)



hex view
+--------+-------------------------+-------------------------+--------+--------+
|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 | 39 3a 32 35 3a 31 35 20 |Feb 1 1|9:25:15 |
|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 70 72 69 | 6d 2f 6f 70 74 69 6f 6e |lisp/pri|m/option|
|00000080| 73 2e 65 6c 0a 3b 3b 3b | 20 65 6d 61 63 73 20 76 |s.el.;;;| emacs v|
|00000090| 65 72 73 69 6f 6e 20 31 | 39 2e 34 2e 31 33 20 4c |ersion 1|9.4.13 L|
|000000a0| 75 63 69 64 2e 0a 3b 3b | 3b 20 62 79 74 65 63 6f |ucid..;;|; byteco|
|000000b0| 6d 70 20 76 65 72 73 69 | 6f 6e 20 32 2e 31 30 3b |mp versi|on 2.10;|
|000000c0| 20 20 31 2d 66 65 62 2d | 39 33 2e 0a 3b 3b 3b 20 | 1-feb-|93..;;; |
|000000d0| 6f 70 74 69 6d 69 7a 61 | 74 69 6f 6e 20 69 73 20 |optimiza|tion is |
|000000e0| 6f 6e 2e 0a 3b 3b 3b 20 | 74 68 69 73 20 66 69 6c |on..;;; |this fil|
|000000f0| 65 20 75 73 65 73 20 6f | 70 63 6f 64 65 73 20 77 |e uses o|pcodes w|
|00000100| 68 69 63 68 20 64 6f 20 | 6e 6f 74 20 65 78 69 73 |hich do |not exis|
|00000110| 74 20 69 6e 20 45 6d 61 | 63 73 31 38 2e 0a 0a 28 |t in Ema|cs18...(|
|00000120| 69 66 20 28 61 6e 64 20 | 28 62 6f 75 6e 64 70 20 |if (and |(boundp |
|00000130| 27 65 6d 61 63 73 2d 76 | 65 72 73 69 6f 6e 29 0a |'emacs-v|ersion).|
|00000140| 09 20 28 6f 72 20 28 61 | 6e 64 20 28 62 6f 75 6e |. (or (a|nd (boun|
|00000150| 64 70 20 27 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |dp 'epoc|h::versi|
|00000160| 6f 6e 29 20 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |on) epoc|h::versi|
|00000170| 6f 6e 29 0a 09 20 20 20 | 20 20 28 73 74 72 69 6e |on).. | (strin|
|00000180| 67 2d 6c 65 73 73 70 20 | 65 6d 61 63 73 2d 76 65 |g-lessp |emacs-ve|
|00000190| 72 73 69 6f 6e 20 22 31 | 39 22 29 29 29 0a 20 20 |rsion "1|9"))). |
|000001a0| 20 20 28 65 72 72 6f 72 | 20 22 54 68 69 73 20 66 | (error| "This f|
|000001b0| 69 6c 65 20 77 61 73 20 | 63 6f 6d 70 69 6c 65 64 |ile was |compiled|
|000001c0| 20 66 6f 72 20 45 6d 61 | 63 73 31 39 2e 22 29 29 | for Ema|cs19."))|
|000001d0| 0a 0a 28 66 73 65 74 20 | 27 6c 69 73 74 2d 6f 70 |..(fset |'list-op|
|000001e0| 74 69 6f 6e 73 20 23 5b | 6e 69 6c 20 22 8a c0 c1 |tions #[|nil "...|
|000001f0| 21 71 88 c2 20 88 29 c1 | 90 c3 1c c5 c6 21 88 c7 |!q.. .).|.....!..|
|00000200| 0c c8 5c 22 89 14 ad bc | 0c 40 1e 09 ca cb 21 88 |..\"....|.@....!.|
|00000210| cc 0e 09 21 88 ca cd 21 | 88 ce 0e 09 21 ab 88 cc |...!...!|....!...|
|00000220| 0e 09 4a 21 88 aa 84 ca | cf 21 88 d0 20 88 ca d1 |..J!....|.!.. ...|
|00000230| d2 0e 09 d3 5c 22 21 21 | 88 ca d4 21 88 29 0c 41 |....\"!!|...!.).A|
|00000240| 89 14 ac 45 c3 29 91 87 | 22 20 5b 67 65 74 2d 62 |...E.)..|" [get-b|
|00000250| 75 66 66 65 72 2d 63 72 | 65 61 74 65 20 22 2a 4c |uffer-cr|eate "*L|
|00000260| 69 73 74 20 4f 70 74 69 | 6f 6e 73 2a 22 20 45 64 |ist Opti|ons*" Ed|
|00000270| 69 74 2d 6f 70 74 69 6f | 6e 73 2d 6d 6f 64 65 20 |it-optio|ns-mode |
|00000280| 6e 69 6c 20 76 61 72 73 | 20 6d 61 70 61 74 6f 6d |nil vars| mapatom|
|00000290| 73 20 23 5b 28 73 79 6d | 29 20 22 c0 09 21 ad 85 |s #[(sym|) "..!..|
|000002a0| 09 5c 6e 42 89 12 87 22 | 20 5b 75 73 65 72 2d 76 |.\nB..."| [user-v|
|000002b0| 61 72 69 61 62 6c 65 2d | 70 20 73 79 6d 20 76 61 |ariable-|p sym va|
|000002c0| 72 73 5d 20 32 5d 20 73 | 6f 72 74 20 73 74 72 69 |rs] 2] s|ort stri|
|000002d0| 6e 67 2d 6c 65 73 73 70 | 20 73 79 6d 20 70 72 69 |ng-lessp| sym pri|
|000002e0| 6e 63 20 22 3b 3b 20 22 | 20 70 72 69 6e 31 20 22 |nc ";; "| prin1 "|
|000002f0| 3a 5c 6e 09 22 20 62 6f | 75 6e 64 70 20 22 3c 75 |:\n." bo|undp "<u|
|00000300| 6e 62 6f 75 6e 64 3e 22 | 20 74 65 72 70 72 69 20 |nbound>"| terpri |
|00000310| 73 75 62 73 74 69 74 75 | 74 65 2d 63 6f 6d 6d 61 |substitu|te-comma|
|00000320| 6e 64 2d 6b 65 79 73 20 | 64 6f 63 75 6d 65 6e 74 |nd-keys |document|
|00000330| 61 74 69 6f 6e 2d 70 72 | 6f 70 65 72 74 79 20 76 |ation-pr|operty v|
|00000340| 61 72 69 61 62 6c 65 2d | 64 6f 63 75 6d 65 6e 74 |ariable-|document|
|00000350| 61 74 69 6f 6e 20 22 5c | 6e 3b 3b 5c 6e 22 5d 20 |ation "\|n;;\n"] |
|00000360| 37 20 22 5c 0a 44 69 73 | 70 6c 61 79 20 61 20 6c |7 "\.Dis|play a l|
|00000370| 69 73 74 20 6f 66 20 45 | 6d 61 63 73 20 75 73 65 |ist of E|macs use|
|00000380| 72 20 6f 70 74 69 6f 6e | 73 2c 20 77 69 74 68 20 |r option|s, with |
|00000390| 76 61 6c 75 65 73 20 61 | 6e 64 20 64 6f 63 75 6d |values a|nd docum|
|000003a0| 65 6e 74 61 74 69 6f 6e | 2e 22 20 6e 69 6c 5d 29 |entation|." nil])|
|000003b0| 0a 28 66 73 65 74 20 27 | 65 64 69 74 2d 6f 70 74 |.(fset '|edit-opt|
|000003c0| 69 6f 6e 73 20 23 5b 6e | 69 6c 20 22 c0 20 88 c1 |ions #[n|il ". ..|
|000003d0| c2 21 87 22 20 5b 6c 69 | 73 74 2d 6f 70 74 69 6f |.!." [li|st-optio|
|000003e0| 6e 73 20 70 6f 70 2d 74 | 6f 2d 62 75 66 66 65 72 |ns pop-t|o-buffer|
|000003f0| 20 22 2a 4c 69 73 74 20 | 4f 70 74 69 6f 6e 73 2a | "*List |Options*|
|00000400| 22 5d 20 32 20 22 5c 0a | 45 64 69 74 20 61 20 6c |"] 2 "\.|Edit a l|
|00000410| 69 73 74 20 6f 66 20 45 | 6d 61 63 73 20 75 73 65 |ist of E|macs use|
|00000420| 72 20 6f 70 74 69 6f 6e | 20 76 61 6c 75 65 73 2e |r option| values.|
|00000430| 0a 53 65 6c 65 63 74 73 | 20 61 20 62 75 66 66 65 |.Selects| a buffe|
|00000440| 72 20 63 6f 6e 74 61 69 | 6e 69 6e 67 20 73 75 63 |r contai|ning suc|
|00000450| 68 20 61 20 6c 69 73 74 | 2c 0a 69 6e 20 77 68 69 |h a list|,.in whi|
|00000460| 63 68 20 74 68 65 72 65 | 20 61 72 65 20 63 6f 6d |ch there| are com|
|00000470| 6d 61 6e 64 73 20 74 6f | 20 73 65 74 20 74 68 65 |mands to| set the|
|00000480| 20 6f 70 74 69 6f 6e 20 | 76 61 6c 75 65 73 2e 0a | option |values..|
|00000490| 54 79 70 65 20 5c 5c 5b | 64 65 73 63 72 69 62 65 |Type \\[|describe|
|000004a0| 2d 6d 6f 64 65 5d 20 69 | 6e 20 74 68 61 74 20 62 |-mode] i|n that b|
|000004b0| 75 66 66 65 72 20 66 6f | 72 20 61 20 6c 69 73 74 |uffer fo|r a list|
|000004c0| 20 6f 66 20 63 6f 6d 6d | 61 6e 64 73 2e 22 20 6e | of comm|ands." n|
|000004d0| 69 6c 5d 29 0a 28 64 65 | 66 76 61 72 20 45 64 69 |il]).(de|fvar Edi|
|000004e0| 74 2d 6f 70 74 69 6f 6e | 73 2d 6d 6f 64 65 2d 6d |t-option|s-mode-m|
|000004f0| 61 70 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |ap (byte|-code ".|
|00000500| 20 19 c2 09 c3 c4 23 88 | c2 09 c5 c6 23 88 c2 09 | .....#.|....#...|
|00000510| c7 c8 23 88 c2 09 c9 ca | 23 88 c2 09 cb cc 23 88 |..#.....|#.....#.|
|00000520| c2 09 cd ce 23 88 c2 09 | cf ce 23 88 09 29 87 22 |....#...|..#..)."|
|00000530| 20 5b 6d 61 6b 65 2d 6b | 65 79 6d 61 70 20 6d 61 | [make-k|eymap ma|
|00000540| 70 20 64 65 66 69 6e 65 | 2d 6b 65 79 20 22 73 22 |p define|-key "s"|
|00000550| 20 45 64 69 74 2d 6f 70 | 74 69 6f 6e 73 2d 73 65 | Edit-op|tions-se|
|00000560| 74 20 22 78 22 20 45 64 | 69 74 2d 6f 70 74 69 6f |t "x" Ed|it-optio|
|00000570| 6e 73 2d 74 6f 67 67 6c | 65 20 22 31 22 20 45 64 |ns-toggl|e "1" Ed|
|00000580| 69 74 2d 6f 70 74 69 6f | 6e 73 2d 74 20 22 30 22 |it-optio|ns-t "0"|
|00000590| 20 45 64 69 74 2d 6f 70 | 74 69 6f 6e 73 2d 6e 69 | Edit-op|tions-ni|
|000005a0| 6c 20 22 70 22 20 62 61 | 63 6b 77 61 72 64 2d 70 |l "p" ba|ckward-p|
|000005b0| 61 72 61 67 72 61 70 68 | 20 22 20 22 20 66 6f 72 |aragraph| " " for|
|000005c0| 77 61 72 64 2d 70 61 72 | 61 67 72 61 70 68 20 22 |ward-par|agraph "|
|000005d0| 6e 22 5d 20 34 29 20 22 | 5c 0a 22 29 0a 28 70 75 |n"] 4) "|\.").(pu|
|000005e0| 74 20 27 45 64 69 74 2d | 6f 70 74 69 6f 6e 73 2d |t 'Edit-|options-|
|000005f0| 6d 6f 64 65 20 27 6d 6f | 64 65 2d 63 6c 61 73 73 |mode 'mo|de-class|
|00000600| 20 27 73 70 65 63 69 61 | 6c 29 0a 28 66 73 65 74 | 'specia|l).(fset|
|00000610| 20 27 45 64 69 74 2d 6f | 70 74 69 6f 6e 73 2d 6d | 'Edit-o|ptions-m|
|00000620| 6f 64 65 20 23 5b 6e 69 | 6c 20 22 c0 20 88 c1 5c |ode #[ni|l ". ..\|
|00000630| 6e 21 88 c3 0c 21 88 c5 | c6 21 88 c7 16 06 c5 c8 |n!...!..|.!......|
|00000640| 21 88 c9 16 08 ca 16 0b | cc 16 0d ce 89 16 0f 87 |!.......|........|
|00000650| 22 20 5b 6b 69 6c 6c 2d | 61 6c 6c 2d 6c 6f 63 61 |" [kill-|all-loca|
|00000660| 6c 2d 76 61 72 69 61 62 | 6c 65 73 20 73 65 74 2d |l-variab|les set-|
|00000670| 73 79 6e 74 61 78 2d 74 | 61 62 6c 65 20 65 6d 61 |syntax-t|able ema|
|00000680| 63 73 2d 6c 69 73 70 2d | 6d 6f 64 65 2d 73 79 6e |cs-lisp-|mode-syn|
|00000690| 74 61 78 2d 74 61 62 6c | 65 20 75 73 65 2d 6c 6f |tax-tabl|e use-lo|
|000006a0| 63 61 6c 2d 6d 61 70 20 | 45 64 69 74 2d 6f 70 74 |cal-map |Edit-opt|
|000006b0| 69 6f 6e 73 2d 6d 6f 64 | 65 2d 6d 61 70 20 6d 61 |ions-mod|e-map ma|
|000006c0| 6b 65 2d 6c 6f 63 61 6c | 2d 76 61 72 69 61 62 6c |ke-local|-variabl|
|000006d0| 65 20 70 61 72 61 67 72 | 61 70 68 2d 73 65 70 61 |e paragr|aph-sepa|
|000006e0| 72 61 74 65 20 22 5b 5e | 00 2d 7f 5d 22 20 70 61 |rate "[^|.-.]" pa|
|000006f0| 72 61 67 72 61 70 68 2d | 73 74 61 72 74 20 22 5e |ragraph-|start "^|
|00000700| 09 22 20 74 20 74 72 75 | 6e 63 61 74 65 2d 6c 69 |." t tru|ncate-li|
|00000710| 6e 65 73 20 45 64 69 74 | 2d 6f 70 74 69 6f 6e 73 |nes Edit|-options|
|00000720| 2d 6d 6f 64 65 20 6d 61 | 6a 6f 72 2d 6d 6f 64 65 |-mode ma|jor-mode|
|00000730| 20 22 4f 70 74 69 6f 6e | 73 22 20 6d 6f 64 65 2d | "Option|s" mode-|
|00000740| 6e 61 6d 65 5d 20 32 20 | 22 5c 0a 4d 61 6a 6f 72 |name] 2 |"\.Major|
|00000750| 20 6d 6f 64 65 20 66 6f | 72 20 65 64 69 74 69 6e | mode fo|r editin|
|00000760| 67 20 45 6d 61 63 73 20 | 75 73 65 72 20 6f 70 74 |g Emacs |user opt|
|00000770| 69 6f 6e 20 73 65 74 74 | 69 6e 67 73 2e 0a 53 70 |ion sett|ings..Sp|
|00000780| 65 63 69 61 6c 20 63 6f | 6d 6d 61 6e 64 73 20 61 |ecial co|mmands a|
|00000790| 72 65 3a 0a 73 20 2d 2d | 20 73 65 74 20 76 61 72 |re:.s --| set var|
|000007a0| 69 61 62 6c 65 20 70 6f | 69 6e 74 20 70 6f 69 6e |iable po|int poin|
|000007b0| 74 73 20 61 74 2e 20 20 | 4e 65 77 20 76 61 6c 75 |ts at. |New valu|
|000007c0| 65 20 72 65 61 64 20 75 | 73 69 6e 67 20 6d 69 6e |e read u|sing min|
|000007d0| 69 62 75 66 66 65 72 2e | 0a 78 20 2d 2d 20 74 6f |ibuffer.|.x -- to|
|000007e0| 67 67 6c 65 20 76 61 72 | 69 61 62 6c 65 2c 20 74 |ggle var|iable, t|
|000007f0| 20 2d 3e 20 6e 69 6c 2c | 20 6e 69 6c 20 2d 3e 20 | -> nil,| nil -> |
|00000800| 74 2e 0a 31 20 2d 2d 20 | 73 65 74 20 76 61 72 69 |t..1 -- |set vari|
|00000810| 61 62 6c 65 20 74 6f 20 | 74 2e 0a 30 20 2d 2d 20 |able to |t..0 -- |
|00000820| 73 65 74 20 76 61 72 69 | 61 62 6c 65 20 74 6f 20 |set vari|able to |
|00000830| 6e 69 6c 2e 0a 43 68 61 | 6e 67 65 64 20 76 61 6c |nil..Cha|nged val|
|00000840| 75 65 73 20 6d 61 64 65 | 20 62 79 20 74 68 65 73 |ues made| by thes|
|00000850| 65 20 63 6f 6d 6d 61 6e | 64 73 20 74 61 6b 65 20 |e comman|ds take |
|00000860| 65 66 66 65 63 74 20 69 | 6d 6d 65 64 69 61 74 65 |effect i|mmediate|
|00000870| 6c 79 2e 0a 0a 45 61 63 | 68 20 76 61 72 69 61 62 |ly...Eac|h variab|
|00000880| 6c 65 20 64 65 73 63 72 | 69 70 74 69 6f 6e 20 69 |le descr|iption i|
|00000890| 73 20 61 20 70 61 72 61 | 67 72 61 70 68 2e 0a 46 |s a para|graph..F|
|000008a0| 6f 72 20 63 6f 6e 76 65 | 6e 69 65 6e 63 65 2c 20 |or conve|nience, |
|000008b0| 74 68 65 20 63 68 61 72 | 61 63 74 65 72 73 20 70 |the char|acters p|
|000008c0| 20 61 6e 64 20 6e 20 6d | 6f 76 65 20 62 61 63 6b | and n m|ove back|
|000008d0| 20 61 6e 64 20 66 6f 72 | 77 61 72 64 20 62 79 20 | and for|ward by |
|000008e0| 70 61 72 61 67 72 61 70 | 68 73 2e 22 5d 29 0a 28 |paragrap|hs."]).(|
|000008f0| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 c1 4d 88 c2 |byte-cod|e "..M..|
|00000900| c3 4d 88 c4 c5 4d 88 c6 | c7 4d 88 c8 c9 4d 87 22 |.M...M..|.M...M."|
|00000910| 20 5b 45 64 69 74 2d 6f | 70 74 69 6f 6e 73 2d 73 | [Edit-o|ptions-s|
|00000920| 65 74 20 23 5b 6e 69 6c | 20 22 c0 c1 21 87 22 20 |et #[nil| "..!." |
|00000930| 5b 45 64 69 74 2d 6f 70 | 74 69 6f 6e 73 2d 6d 6f |[Edit-op|tions-mo|
|00000940| 64 69 66 79 20 28 6c 61 | 6d 62 64 61 20 28 76 61 |dify (la|mbda (va|
|00000950| 72 29 20 28 65 76 61 6c | 2d 6d 69 6e 69 62 75 66 |r) (eval|-minibuf|
|00000960| 66 65 72 20 28 63 6f 6e | 63 61 74 20 22 4e 65 77 |fer (con|cat "New|
|00000970| 20 22 20 28 73 79 6d 62 | 6f 6c 2d 6e 61 6d 65 20 | " (symb|ol-name |
|00000980| 76 61 72 29 20 22 3a 20 | 22 29 29 29 5d 20 32 20 |var) ": |")))] 2 |
|00000990| 6e 69 6c 20 6e 69 6c 5d | 20 45 64 69 74 2d 6f 70 |nil nil]| Edit-op|
|000009a0| 74 69 6f 6e 73 2d 74 6f | 67 67 6c 65 20 23 5b 6e |tions-to|ggle #[n|
|000009b0| 69 6c 20 22 c0 c1 21 87 | 22 20 5b 45 64 69 74 2d |il "..!.|" [Edit-|
|000009c0| 6f 70 74 69 6f 6e 73 2d | 6d 6f 64 69 66 79 20 28 |options-|modify (|
|000009d0| 6c 61 6d 62 64 61 20 28 | 76 61 72 29 20 28 6e 6f |lambda (|var) (no|
|000009e0| 74 20 28 73 79 6d 62 6f | 6c 2d 76 61 6c 75 65 20 |t (symbo|l-value |
|000009f0| 76 61 72 29 29 29 5d 20 | 32 20 6e 69 6c 20 6e 69 |var)))] |2 nil ni|
|00000a00| 6c 5d 20 45 64 69 74 2d | 6f 70 74 69 6f 6e 73 2d |l] Edit-|options-|
|00000a10| 74 20 23 5b 6e 69 6c 20 | 22 c0 c1 21 87 22 20 5b |t #[nil |"..!." [|
|00000a20| 45 64 69 74 2d 6f 70 74 | 69 6f 6e 73 2d 6d 6f 64 |Edit-opt|ions-mod|
|00000a30| 69 66 79 20 28 6c 61 6d | 62 64 61 20 28 76 61 72 |ify (lam|bda (var|
|00000a40| 29 20 74 29 5d 20 32 20 | 6e 69 6c 20 6e 69 6c 5d |) t)] 2 |nil nil]|
|00000a50| 20 45 64 69 74 2d 6f 70 | 74 69 6f 6e 73 2d 6e 69 | Edit-op|tions-ni|
|00000a60| 6c 20 23 5b 6e 69 6c 20 | 22 c0 c1 21 87 22 20 5b |l #[nil |"..!." [|
|00000a70| 45 64 69 74 2d 6f 70 74 | 69 6f 6e 73 2d 6d 6f 64 |Edit-opt|ions-mod|
|00000a80| 69 66 79 20 28 6c 61 6d | 62 64 61 20 28 76 61 72 |ify (lam|bda (var|
|00000a90| 29 20 6e 69 6c 29 5d 20 | 32 20 6e 69 6c 20 6e 69 |) nil)] |2 nil ni|
|00000aa0| 6c 5d 20 45 64 69 74 2d | 6f 70 74 69 6f 6e 73 2d |l] Edit-|options-|
|00000ab0| 6d 6f 64 69 66 79 20 23 | 5b 28 6d 6f 64 66 75 6e |modify #|[(modfun|
|00000ac0| 29 20 22 8a c0 89 19 1a | c3 c4 21 88 c5 75 88 60 |) ".....|..!..u.`|
|00000ad0| 11 8c 09 c0 7f 88 60 53 | 7d 88 09 62 88 c6 70 21 |......`S|}..b..p!|
|00000ae0| 12 29 09 62 88 c7 79 88 | c7 75 88 8a 5c 6e 0e 08 |.).b..y.|.u..\n..|
|00000af0| 5c 6e 21 4c 88 29 c9 c7 | 21 88 ca 5c 6e 4a 70 5c |\n!L.)..|!..\nJp\|
|00000b00| 22 2b 87 22 20 5b 6e 69 | 6c 20 70 6f 73 20 76 61 |"+." [ni|l pos va|
|00000b10| 72 20 72 65 2d 73 65 61 | 72 63 68 2d 62 61 63 6b |r re-sea|rch-back|
|00000b20| 77 61 72 64 20 22 5e 3b | 3b 20 22 20 33 20 72 65 |ward "^;|; " 3 re|
|00000b30| 61 64 20 31 20 6d 6f 64 | 66 75 6e 20 6b 69 6c 6c |ad 1 mod|fun kill|
|00000b40| 2d 73 65 78 70 20 70 72 | 69 6e 31 5d 20 33 5d 5d |-sexp pr|in1] 3]]|
|00000b50| 20 32 29 0a | | 2). | |
+--------+-------------------------+-------------------------+--------+--------+