/ Fresh Fish 6 / FreshFish_September1994.bin / bbs / gnu / emacs-18.59-src.lha / GNU / src / amiga / emacs-18.59 / lisp / c-fill.elc

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0a 28 64 65 66 76 61 72 | 20 63 2d 63 6f 6d 6d 65 |.(defvar| c-comme|
|00000010| 6e 74 2d 73 74 61 72 74 | 69 6e 67 2d 62 6c 61 6e |nt-start|ing-blan|
|00000020| 6b 20 74 20 22 5c 0a 2a | 43 6f 6e 74 72 6f 6c 73 |k t "\.*|Controls|
|00000030| 20 77 68 65 74 68 65 72 | 20 67 6c 6f 62 61 6c 20 | whether| global |
|00000040| 63 6f 6d 6d 65 6e 74 73 | 20 68 61 76 65 20 61 6e |comments| have an|
|00000050| 20 69 6e 69 74 69 61 6c | 20 62 6c 61 6e 6b 20 6c | initial| blank l|
|00000060| 69 6e 65 2e 22 29 0a 0a | 28 64 65 66 76 61 72 20 |ine.")..|(defvar |
|00000070| 63 2d 63 6f 6d 6d 65 6e | 74 2d 69 6e 64 65 6e 74 |c-commen|t-indent|
|00000080| 69 6e 67 20 74 20 22 5c | 0a 2a 49 66 20 73 65 74 |ing t "\|.*If set|
|00000090| 20 67 6c 6f 62 61 6c 20 | 63 6f 6d 6d 65 6e 74 73 | global |comments|
|000000a0| 20 61 72 65 20 69 6e 64 | 65 6e 74 65 64 20 74 6f | are ind|ented to|
|000000b0| 20 74 68 65 20 6c 65 76 | 65 6c 20 6f 66 20 74 68 | the lev|el of th|
|000000c0| 65 20 70 72 65 76 69 6f | 75 73 20 6c 69 6e 65 2e |e previo|us line.|
|000000d0| 22 29 0a 0a 28 64 65 66 | 76 61 72 20 63 2d 63 6f |")..(def|var c-co|
|000000e0| 6d 6d 65 6e 74 2d 68 61 | 6e 67 69 6e 67 2d 69 6e |mment-ha|nging-in|
|000000f0| 64 65 6e 74 20 74 20 22 | 5c 0a 2a 49 66 20 74 72 |dent t "|\.*If tr|
|00000100| 75 65 2c 20 63 6f 6d 6d | 65 6e 74 73 20 77 69 6c |ue, comm|ents wil|
|00000110| 6c 20 62 65 20 61 75 74 | 6f 6d 61 74 69 63 61 6c |l be aut|omatical|
|00000120| 6c 79 20 69 6e 64 65 6e | 74 65 64 20 74 6f 20 74 |ly inden|ted to t|
|00000130| 68 65 20 64 61 73 68 2e | 22 29 0a 0a 28 64 65 66 |he dash.|")..(def|
|00000140| 76 61 72 20 63 2d 68 61 | 6e 67 2d 61 6c 72 65 61 |var c-ha|ng-alrea|
|00000150| 64 79 2d 64 6f 6e 65 20 | 74 20 22 5c 0a 49 66 20 |dy-done |t "\.If |
|00000160| 74 72 75 65 20 77 65 20 | 68 61 76 65 20 70 65 72 |true we |have per|
|00000170| 66 6f 72 6d 65 64 20 74 | 68 65 20 68 61 6e 69 6e |formed t|he hanin|
|00000180| 67 20 69 6e 64 65 6e 74 | 20 61 6c 72 65 61 64 79 |g indent| already|
|00000190| 20 66 6f 72 20 74 68 69 | 73 20 63 6f 6d 6d 65 6e | for thi|s commen|
|000001a0| 74 2e 22 29 0a 0a 28 64 | 65 66 76 61 72 20 63 2d |t.")..(d|efvar c-|
|000001b0| 63 6f 6d 6d 65 6e 74 2d | 6d 6f 64 65 2d 6d 61 70 |comment-|mode-map|
|000001c0| 20 6e 69 6c 20 22 5c 0a | 4b 65 79 6d 61 70 20 75 | nil "\.|Keymap u|
|000001d0| 73 65 64 20 69 6e 20 43 | 20 63 6f 6d 6d 65 6e 74 |sed in C| comment|
|000001e0| 20 6d 6f 64 65 2e 22 29 | 0a 0a 28 69 66 20 63 2d | mode.")|..(if c-|
|000001f0| 63 6f 6d 6d 65 6e 74 2d | 6d 6f 64 65 2d 6d 61 70 |comment-|mode-map|
|00000200| 20 6e 69 6c 20 28 73 65 | 74 71 20 63 2d 63 6f 6d | nil (se|tq c-com|
|00000210| 6d 65 6e 74 2d 6d 6f 64 | 65 2d 6d 61 70 20 28 63 |ment-mod|e-map (c|
|00000220| 6f 70 79 2d 6b 65 79 6d | 61 70 20 63 2d 6d 6f 64 |opy-keym|ap c-mod|
|00000230| 65 2d 6d 61 70 29 29 20 | 28 64 65 66 69 6e 65 2d |e-map)) |(define-|
|00000240| 6b 65 79 20 63 2d 63 6f | 6d 6d 65 6e 74 2d 6d 6f |key c-co|mment-mo|
|00000250| 64 65 2d 6d 61 70 20 22 | 1b 0d 22 20 28 71 75 6f |de-map "|.." (quo|
|00000260| 74 65 20 6e 65 77 6c 69 | 6e 65 29 29 20 28 64 65 |te newli|ne)) (de|
|00000270| 66 69 6e 65 2d 6b 65 79 | 20 63 2d 63 6f 6d 6d 65 |fine-key| c-comme|
|00000280| 6e 74 2d 6d 6f 64 65 2d | 6d 61 70 20 22 1b 71 22 |nt-mode-|map ".q"|
|00000290| 20 28 71 75 6f 74 65 20 | 73 65 74 2d 66 69 6c 6c | (quote |set-fill|
|000002a0| 2d 61 6e 64 2d 66 69 6c | 6c 29 29 20 28 64 65 66 |-and-fil|l)) (def|
|000002b0| 69 6e 65 2d 6b 65 79 20 | 63 2d 63 6f 6d 6d 65 6e |ine-key |c-commen|
|000002c0| 74 2d 6d 6f 64 65 2d 6d | 61 70 20 22 0d 22 20 28 |t-mode-m|ap "." (|
|000002d0| 71 75 6f 74 65 20 73 65 | 74 2d 66 69 6c 6c 2d 61 |quote se|t-fill-a|
|000002e0| 6e 64 2d 72 65 74 75 72 | 6e 29 29 29 0a 0a 28 64 |nd-retur|n)))..(d|
|000002f0| 65 66 75 6e 20 63 2d 63 | 6f 6d 6d 65 6e 74 20 6e |efun c-c|omment n|
|00000300| 69 6c 20 22 5c 0a 45 64 | 69 74 20 61 20 43 20 63 |il "\.Ed|it a C c|
|00000310| 6f 6d 6d 65 6e 74 20 77 | 69 74 68 20 66 69 6c 6c |omment w|ith fill|
|00000320| 69 6e 67 20 61 6e 64 20 | 69 6e 64 65 6e 74 61 74 |ing and |indentat|
|00000330| 69 6f 6e 2e 0a 54 68 69 | 73 20 70 65 72 66 6f 72 |ion..Thi|s perfor|
|00000340| 6d 73 20 68 61 6e 67 69 | 6e 67 20 69 6e 64 65 6e |ms hangi|ng inden|
|00000350| 74 61 74 69 6f 6e 2c 20 | 73 79 6d 6d 65 74 72 69 |tation, |symmetri|
|00000360| 63 20 70 6c 61 63 65 6d | 65 6e 74 20 6f 66 20 64 |c placem|ent of d|
|00000370| 65 6c 69 6d 69 74 65 72 | 73 2c 0a 20 61 6e 64 20 |elimiter|s,. and |
|00000380| 49 6e 64 65 6e 74 65 64 | 2d 54 65 78 74 20 6d 6f |Indented|-Text mo|
|00000390| 64 65 20 73 74 79 6c 65 | 20 69 6e 64 65 6e 74 61 |de style| indenta|
|000003a0| 74 69 6f 6e 2e 20 20 54 | 79 70 65 20 27 4d 2d 78 |tion.  T|ype 'M-x|
|000003b0| 20 61 70 72 6f 70 6f 73 | 0a 63 2d 63 6f 6d 6d 65 | apropos|.c-comme|
|000003c0| 6e 74 27 20 66 6f 72 20 | 69 6e 66 6f 72 6d 61 74 |nt' for |informat|
|000003d0| 69 6f 6e 20 6f 6e 20 6f | 70 74 69 6f 6e 73 2e 22 |ion on o|ptions."|
|000003e0| 20 28 69 6e 74 65 72 61 | 63 74 69 76 65 29 20 28 | (intera|ctive) (|
|000003f0| 62 79 74 65 2d 63 6f 64 | 65 20 22 cc 88 09 83 0a |byte-cod|e ".....|
|00000400| 00 d0 82 0b 00 d1 c3 d2 | 0e 06 cc cc cc cc 1e 09 |........|........|
|00000410| 1e 08 1e 06 1e 07 1d 1c | 1a 18 8a d3 d4 d5 c3 23 |........|.......#|
|00000420| 85 31 00 d6 d7 d8 60 60 | d9 5c 5c 5c 22 5c 22 29 |.1....``|.\\\"\")|
|00000430| 89 16 0a 88 cc 89 16 0b | 88 da 0e 0d 21 88 0e 0a |........|....!...|
|00000440| 3f 83 7e 00 db 20 88 dc | 63 88 dd 60 21 89 16 07 |?.~.. ..|c..`!...|
|00000450| 88 de 20 88 60 89 16 09 | 88 8a df 20 88 e0 d7 0e |.. .`...|... ....|
|00000460| 09 c3 23 29 85 6e 00 69 | e1 5c 5c e2 58 83 76 00 |..#).n.i|.\\.X.v.|
|00000470| e3 63 82 78 00 e4 63 88 | db 20 82 92 00 dd 60 21 |.c.x..c.|. ....`!|
|00000480| 89 16 07 88 de 20 88 e0 | e5 e6 20 c3 23 88 e7 e8 |..... ..|.. .#...|
|00000490| 21 88 0e 0e 85 d5 00 8a | 60 89 16 09 88 e7 e9 21 |!.......|`......!|
|000004a0| 88 e0 d7 0e 09 c3 23 3f | 86 b3 00 e0 e5 0e 09 c3 |......#?|........|
|000004b0| 23 3f 85 d4 00 ea d7 21 | 88 eb 0c 0e 09 c3 23 88 |#?.....!|......#.|
|000004c0| dd 60 21 89 16 07 88 ec | ed 21 3f 85 d4 00 ee ef |.`!.....|.!?.....|
|000004d0| 0e 07 5c 22 29 88 db 20 | 88 da 0e 0f 21 2e 08 87 |..\").. |....!...|
|000004e0| 22 20 5b 61 75 74 6f 2d | 66 69 6c 6c 2d 68 6f 6f |" [auto-|fill-hoo|
|000004f0| 6b 20 63 2d 63 6f 6d 6d | 65 6e 74 2d 69 6e 64 65 |k c-comm|ent-inde|
|00000500| 6e 74 69 6e 67 20 63 6f | 6d 6d 65 6e 74 2d 6d 75 |nting co|mment-mu|
|00000510| 6c 74 69 2d 6c 69 6e 65 | 20 74 20 63 6f 6d 6d 65 |lti-line| t comme|
|00000520| 6e 74 2d 73 74 61 72 74 | 2d 73 6b 69 70 20 70 61 |nt-start|-skip pa|
|00000530| 72 61 67 72 61 70 68 2d | 73 74 61 72 74 2d 72 65 |ragraph-|start-re|
|00000540| 66 20 70 61 72 61 67 72 | 61 70 68 2d 73 74 61 72 |f paragr|aph-star|
|00000550| 74 20 66 69 6c 6c 2d 70 | 72 65 66 69 78 20 70 61 |t fill-p|refix pa|
|00000560| 72 61 67 72 61 70 68 2d | 73 65 70 61 72 61 74 65 |ragraph-|separate|
|00000570| 20 6f 70 6f 69 6e 74 20 | 69 6e 2d 63 6f 6d 6d 65 | opoint |in-comme|
|00000580| 6e 74 20 63 2d 68 61 6e | 67 2d 61 6c 72 65 61 64 |nt c-han|g-alread|
|00000590| 79 2d 64 6f 6e 65 20 6e | 69 6c 20 63 2d 63 6f 6d |y-done n|il c-com|
|000005a0| 6d 65 6e 74 2d 6d 6f 64 | 65 2d 6d 61 70 20 63 2d |ment-mod|e-map c-|
|000005b0| 63 6f 6d 6d 65 6e 74 2d | 73 74 61 72 74 69 6e 67 |comment-|starting|
|000005c0| 2d 62 6c 61 6e 6b 20 63 | 2d 6d 6f 64 65 2d 6d 61 |-blank c|-mode-ma|
|000005d0| 70 20 64 6f 2d 69 6e 64 | 65 6e 74 65 64 2d 61 75 |p do-ind|ented-au|
|000005e0| 74 6f 2d 66 69 6c 6c 20 | 64 6f 2d 61 75 74 6f 2d |to-fill |do-auto-|
|000005f0| 66 69 6c 6c 20 22 2f 2a | 5c 5c 2a 2b 5b 20 09 5d |fill "/*|\\*+[ .]|
|00000600| 2a 22 20 72 65 2d 73 65 | 61 72 63 68 2d 62 61 63 |*" re-se|arch-bac|
|00000610| 6b 77 61 72 64 20 22 2f | 5c 5c 2a 5c 5c 7c 5c 5c |kward "/|\\*\\|\\|
|00000620| 2a 2f 22 20 30 20 73 74 | 72 69 6e 67 3d 20 22 2f |*/" 0 st|ring= "/|
|00000630| 2a 22 20 62 75 66 66 65 | 72 2d 73 75 62 73 74 72 |*" buffe|r-substr|
|00000640| 69 6e 67 20 32 20 75 73 | 65 2d 6c 6f 63 61 6c 2d |ing 2 us|e-local-|
|00000650| 6d 61 70 20 63 2d 69 6e | 64 65 6e 74 2d 6c 69 6e |map c-in|dent-lin|
|00000660| 65 20 22 2f 2a 20 22 20 | 67 65 74 2d 63 75 72 72 |e "/* " |get-curr|
|00000670| 65 6e 74 2d 66 69 6c 6c | 20 72 65 63 75 72 73 69 |ent-fill| recursi|
|00000680| 76 65 2d 65 64 69 74 20 | 62 65 67 69 6e 6e 69 6e |ve-edit |beginnin|
|00000690| 67 2d 6f 66 2d 6c 69 6e | 65 20 73 65 61 72 63 68 |g-of-lin|e search|
|000006a0| 2d 66 6f 72 77 61 72 64 | 20 33 20 37 39 20 22 20 |-forward| 3 79 " |
|000006b0| 2a 2f 22 20 22 0a 2a 2f | 22 20 22 2a 2f 22 20 62 |*/" ".*/|" "*/" b|
|000006c0| 75 66 66 65 72 2d 73 69 | 7a 65 20 66 6f 72 77 61 |uffer-si|ze forwa|
|000006d0| 72 64 2d 6c 69 6e 65 20 | 31 20 2d 31 20 73 65 61 |rd-line |1 -1 sea|
|000006e0| 72 63 68 2d 62 61 63 6b | 77 61 72 64 20 72 65 2d |rch-back|ward re-|
|000006f0| 73 65 61 72 63 68 2d 66 | 6f 72 77 61 72 64 20 6c |search-f|orward l|
|00000700| 6f 6f 6b 69 6e 67 2d 61 | 74 20 22 0a 22 20 69 6e |ooking-a|t "." in|
|00000710| 73 65 72 74 20 31 30 5d | 20 32 36 29 29 0a 0a 28 |sert 10]| 26))..(|
|00000720| 64 65 66 75 6e 20 73 65 | 74 2d 66 69 6c 6c 2d 61 |defun se|t-fill-a|
|00000730| 6e 64 2d 66 69 6c 6c 20 | 28 61 72 67 29 20 22 5c |nd-fill |(arg) "\|
|00000740| 0a 47 65 74 20 74 68 65 | 20 66 69 6c 6c 2d 70 72 |.Get the| fill-pr|
|00000750| 65 66 69 78 20 61 6e 64 | 20 66 69 6c 6c 20 74 68 |efix and| fill th|
|00000760| 65 20 63 75 72 72 65 6e | 74 20 70 61 72 61 67 72 |e curren|t paragr|
|00000770| 61 70 68 2e 22 20 28 69 | 6e 74 65 72 61 63 74 69 |aph." (i|nteracti|
|00000780| 76 65 20 22 50 22 29 20 | 28 62 79 74 65 2d 63 6f |ve "P") |(byte-co|
|00000790| 64 65 20 22 c2 88 c3 60 | 21 89 10 88 c4 09 21 87 |de "...`|!.....!.|
|000007a0| 22 20 5b 66 69 6c 6c 2d | 70 72 65 66 69 78 20 61 |" [fill-|prefix a|
|000007b0| 72 67 20 6e 69 6c 20 67 | 65 74 2d 63 75 72 72 65 |rg nil g|et-curre|
|000007c0| 6e 74 2d 66 69 6c 6c 20 | 66 69 6c 6c 2d 70 61 72 |nt-fill |fill-par|
|000007d0| 61 67 72 61 70 68 5d 20 | 33 29 29 0a 0a 28 64 65 |agraph] |3))..(de|
|000007e0| 66 75 6e 20 73 65 74 2d | 66 69 6c 6c 2d 61 6e 64 |fun set-|fill-and|
|000007f0| 2d 72 65 74 75 72 6e 20 | 6e 69 6c 20 22 5c 0a 53 |-return |nil "\.S|
|00000800| 65 74 20 74 68 65 20 63 | 75 72 72 65 6e 74 20 66 |et the c|urrent f|
|00000810| 69 6c 6c 20 70 72 65 66 | 69 78 20 61 6e 64 20 6d |ill pref|ix and m|
|00000820| 6f 76 65 20 74 6f 20 74 | 68 65 20 6e 65 78 74 20 |ove to t|he next |
|00000830| 6c 69 6e 65 2e 22 20 28 | 69 6e 74 65 72 61 63 74 |line." (|interact|
|00000840| 69 76 65 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |ive) (by|te-code |
|00000850| 22 c2 88 08 85 0b 00 c3 | 60 21 89 11 88 c4 c5 09 |".......|`!......|
|00000860| 5c 22 87 22 20 5b 63 2d | 63 6f 6d 6d 65 6e 74 2d |\"." [c-|comment-|
|00000870| 69 6e 64 65 6e 74 69 6e | 67 20 66 69 6c 6c 2d 70 |indentin|g fill-p|
|00000880| 72 65 66 69 78 20 6e 69 | 6c 20 67 65 74 2d 63 75 |refix ni|l get-cu|
|00000890| 72 72 65 6e 74 2d 66 69 | 6c 6c 20 69 6e 73 65 72 |rrent-fi|ll inser|
|000008a0| 74 20 31 30 5d 20 34 29 | 29 0a 0a 28 64 65 66 75 |t 10] 4)|)..(defu|
|000008b0| 6e 20 64 6f 2d 69 6e 64 | 65 6e 74 65 64 2d 61 75 |n do-ind|ented-au|
|000008c0| 74 6f 2d 66 69 6c 6c 20 | 6e 69 6c 20 22 5c 0a 50 |to-fill |nil "\.P|
|000008d0| 65 72 66 6f 72 6d 20 61 | 75 74 6f 2d 66 69 6c 6c |erform a|uto-fill|
|000008e0| 2c 20 62 75 74 20 67 65 | 74 20 66 69 6c 6c 2d 70 |, but ge|t fill-p|
|000008f0| 72 65 66 69 78 20 66 69 | 72 73 74 2e 22 20 28 62 |refix fi|rst." (b|
|00000900| 79 74 65 2d 63 6f 64 65 | 20 22 60 18 8a c4 09 54 |yte-code| "`....T|
|00000910| 21 88 c5 c6 21 88 6e 85 | 15 00 c7 c8 08 c2 23 88 |!...!.n.|......#.|
|00000920| 8a c5 c9 21 88 6e 3f 29 | 85 2b 00 ca 08 21 89 13 |...!.n?)|.+...!..|
|00000930| 88 cb cc 0b 5c 22 29 29 | 87 22 20 5b 6f 70 6f 69 |....\"))|." [opoi|
|00000940| 6e 74 20 66 69 6c 6c 2d | 63 6f 6c 75 6d 6e 20 74 |nt fill-|column t|
|00000950| 20 66 69 6c 6c 2d 70 72 | 65 66 69 78 20 6d 6f 76 | fill-pr|efix mov|
|00000960| 65 2d 74 6f 2d 63 6f 6c | 75 6d 6e 20 73 6b 69 70 |e-to-col|umn skip|
|00000970| 2d 63 68 61 72 73 2d 62 | 61 63 6b 77 61 72 64 20 |-chars-b|ackward |
|00000980| 22 5e 20 09 0a 22 20 72 | 65 2d 73 65 61 72 63 68 |"^ .." r|e-search|
|00000990| 2d 66 6f 72 77 61 72 64 | 20 22 5b 20 09 5d 22 20 |-forward| "[ .]" |
|000009a0| 22 20 09 22 20 67 65 74 | 2d 63 75 72 72 65 6e 74 |" ." get|-current|
|000009b0| 2d 66 69 6c 6c 20 69 6e | 73 65 72 74 20 31 30 5d |-fill in|sert 10]|
|000009c0| 20 38 29 29 0a 0a 28 64 | 65 66 75 6e 20 67 65 74 | 8))..(d|efun get|
|000009d0| 2d 63 75 72 72 65 6e 74 | 2d 66 69 6c 6c 20 28 70 |-current|-fill (p|
|000009e0| 6e 74 29 20 22 5c 0a 47 | 65 74 20 74 68 65 20 63 |nt) "\.G|et the c|
|000009f0| 75 72 72 65 6e 74 20 66 | 69 6c 6c 20 70 72 65 66 |urrent f|ill pref|
|00000a00| 69 78 2e 0a 41 20 76 61 | 6c 69 64 20 66 69 6c 6c |ix..A va|lid fill|
|00000a10| 20 70 72 65 66 69 78 20 | 6d 75 73 74 20 62 65 20 | prefix |must be |
|00000a20| 62 65 74 77 65 65 6e 20 | 74 68 65 20 62 65 67 69 |between |the begi|
|00000a30| 6e 6e 69 6e 67 20 6f 66 | 20 74 68 65 20 6c 69 6e |nning of| the lin|
|00000a40| 65 20 61 6e 64 20 70 6f | 69 6e 74 2e 22 20 28 62 |e and po|int." (b|
|00000a50| 79 74 65 2d 63 6f 64 65 | 20 22 09 cd cd 1b 1a 18 |yte-code| "......|
|00000a60| 8a ce 20 88 cf 60 d0 0c | 08 c5 23 88 60 5c 22 89 |.. ..`..|..#.`\".|
|00000a70| 12 88 0a 0a 47 53 0a 47 | 4f 89 13 88 d1 d2 0b 5c |....GS.G|O......\|
|00000a80| 22 3f 85 2e 00 d1 d3 0b | 5c 22 3f 85 36 00 0a d2 |"?......|\"?.6...|
|00000a90| 50 89 12 88 d4 0a d5 d2 | 23 89 12 88 0e 06 85 47 |P.......|#......G|
|00000aa0| 00 0e 07 3f 85 70 00 60 | d6 20 88 60 1e 09 1e 08 |...?.p.`|. .`....|
|00000ab0| ce 20 88 d7 d8 0e 09 c5 | 23 85 6f 00 0a d9 60 0e |. ......|#.o...`.|
|00000ac0| 08 5a da 5c 22 50 89 12 | 88 c5 89 16 07 2a 88 0e |.Z.\"P..|.....*..|
|00000ad0| 0b db dc 0a dd 0a 47 53 | 4f 21 de 52 89 16 0a 88 |......GS|O!.R....|
|00000ae0| 0e 0a 89 16 0c 29 88 0a | 2b 87 22 20 5b 6f 70 6f |.....)..|+." [opo|
|00000af0| 69 6e 74 20 70 6e 74 20 | 66 69 6c 6c 20 6c 61 73 |int pnt |fill las|
|00000b00| 74 2d 63 68 61 72 20 63 | 6f 6d 6d 65 6e 74 2d 73 |t-char c|omment-s|
|00000b10| 74 61 72 74 2d 73 6b 69 | 70 20 74 20 63 2d 63 6f |tart-ski|p t c-co|
|00000b20| 6d 6d 65 6e 74 2d 68 61 | 6e 67 69 6e 67 2d 69 6e |mment-ha|nging-in|
|00000b30| 64 65 6e 74 20 63 2d 68 | 61 6e 67 2d 61 6c 72 65 |dent c-h|ang-alre|
|00000b40| 61 64 79 2d 64 6f 6e 65 | 20 63 75 72 72 20 6f 70 |ady-done| curr op|
|00000b50| 6e 74 20 70 61 72 61 67 | 72 61 70 68 2d 73 74 61 |nt parag|raph-sta|
|00000b60| 72 74 20 70 61 72 61 67 | 72 61 70 68 2d 73 74 61 |rt parag|raph-sta|
|00000b70| 72 74 2d 72 65 66 20 70 | 61 72 61 67 72 61 70 68 |rt-ref p|aragraph|
|00000b80| 2d 73 65 70 61 72 61 74 | 65 20 6e 69 6c 20 62 65 |-separat|e nil be|
|00000b90| 67 69 6e 6e 69 6e 67 2d | 6f 66 2d 6c 69 6e 65 20 |ginning-|of-line |
|00000ba0| 62 75 66 66 65 72 2d 73 | 75 62 73 74 72 69 6e 67 |buffer-s|ubstring|
|00000bb0| 20 72 65 2d 73 65 61 72 | 63 68 2d 66 6f 72 77 61 | re-sear|ch-forwa|
|00000bc0| 72 64 20 73 74 72 69 6e | 67 3d 20 22 20 22 20 22 |rd strin|g= " " "|
|00000bd0| 09 22 20 72 65 70 6c 61 | 63 65 2d 6c 65 74 74 65 |." repla|ce-lette|
|00000be0| 72 20 22 2f 22 20 65 6e | 64 2d 6f 66 2d 6c 69 6e |r "/" en|d-of-lin|
|00000bf0| 65 20 73 65 61 72 63 68 | 2d 66 6f 72 77 61 72 64 |e search|-forward|
|00000c00| 20 22 20 2d 20 22 20 6d | 61 6b 65 2d 73 74 72 69 | " - " m|ake-stri|
|00000c10| 6e 67 20 33 32 20 22 5c | 5c 7c 5e 22 20 72 65 67 |ng 32 "\|\|^" reg|
|00000c20| 65 78 70 2d 71 75 6f 74 | 65 20 30 20 22 24 22 5d |exp-quot|e 0 "$"]|
|00000c30| 20 31 36 29 29 0a 0a 28 | 64 65 66 75 6e 20 72 65 | 16))..(|defun re|
|00000c40| 70 6c 61 63 65 2d 6c 65 | 74 74 65 72 20 28 73 74 |place-le|tter (st|
|00000c50| 72 20 6f 6c 64 2d 6c 65 | 74 74 65 72 20 6e 65 77 |r old-le|tter new|
|00000c60| 2d 6c 65 74 74 65 72 29 | 20 28 62 79 74 65 2d 63 |-letter)| (byte-c|
|00000c70| 6f 64 65 20 22 c7 c7 c8 | 0c 47 1b 1a 19 18 0a 0b |ode "...|.G......|
|00000c80| 57 85 31 00 0c 0a 0a 54 | 4f 89 11 88 08 c9 09 0d |W.1....T|O.......|
|00000c90| 5c 22 83 24 00 0e 06 82 | 25 00 09 50 89 10 88 0a |\".$....|%..P....|
|00000ca0| 54 89 12 88 82 09 00 88 | 08 2c 87 22 20 5b 6e 65 |T.......|.,." [ne|
|00000cb0| 77 2d 73 74 72 20 63 20 | 73 70 20 73 69 7a 65 20 |w-str c |sp size |
|00000cc0| 73 74 72 20 6f 6c 64 2d | 6c 65 74 74 65 72 20 6e |str old-|letter n|
|00000cd0| 65 77 2d 6c 65 74 74 65 | 72 20 6e 69 6c 20 30 20 |ew-lette|r nil 0 |
|00000ce0| 73 74 72 69 6e 67 3d 5d | 20 35 29 29 0a          |string=]| 5)).   |
+--------+-------------------------+-------------------------+--------+--------+