/ Fresh Fish 6 / FreshFish_September1994.bin / bbs / gnu / emacs-18.59-src.lha / GNU / src / amiga / emacs-18.59 / lisp / nroff-mode.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 6e 72 6f 66 66 2d 6d |.(defvar| nroff-m|
|00000010| 6f 64 65 2d 61 62 62 72 | 65 76 2d 74 61 62 6c 65 |ode-abbr|ev-table|
|00000020| 20 6e 69 6c 20 22 5c 0a | 41 62 62 72 65 76 20 74 | nil "\.|Abbrev t|
|00000030| 61 62 6c 65 20 75 73 65 | 64 20 77 68 69 6c 65 20 |able use|d while |
|00000040| 69 6e 20 6e 72 6f 66 66 | 20 6d 6f 64 65 2e 22 29 |in nroff| mode.")|
|00000050| 0a 0a 28 64 65 66 76 61 | 72 20 6e 72 6f 66 66 2d |..(defva|r nroff-|
|00000060| 6d 6f 64 65 2d 6d 61 70 | 20 6e 69 6c 20 22 5c 0a |mode-map| nil "\.|
|00000070| 4d 61 6a 6f 72 20 6d 6f | 64 65 20 6b 65 79 6d 61 |Major mo|de keyma|
|00000080| 70 20 66 6f 72 20 6e 72 | 6f 66 66 2d 6d 6f 64 65 |p for nr|off-mode|
|00000090| 20 62 75 66 66 65 72 73 | 22 29 0a 0a 28 69 66 20 | buffers|")..(if |
|000000a0| 28 6e 6f 74 20 6e 72 6f | 66 66 2d 6d 6f 64 65 2d |(not nro|ff-mode-|
|000000b0| 6d 61 70 29 20 28 70 72 | 6f 67 6e 20 28 73 65 74 |map) (pr|ogn (set|
|000000c0| 71 20 6e 72 6f 66 66 2d | 6d 6f 64 65 2d 6d 61 70 |q nroff-|mode-map|
|000000d0| 20 28 6d 61 6b 65 2d 73 | 70 61 72 73 65 2d 6b 65 | (make-s|parse-ke|
|000000e0| 79 6d 61 70 29 29 20 28 | 64 65 66 69 6e 65 2d 6b |ymap)) (|define-k|
|000000f0| 65 79 20 6e 72 6f 66 66 | 2d 6d 6f 64 65 2d 6d 61 |ey nroff|-mode-ma|
|00000100| 70 20 22 09 22 20 28 71 | 75 6f 74 65 20 74 61 62 |p "." (q|uote tab|
|00000110| 2d 74 6f 2d 74 61 62 2d | 73 74 6f 70 29 29 20 28 |-to-tab-|stop)) (|
|00000120| 64 65 66 69 6e 65 2d 6b | 65 79 20 6e 72 6f 66 66 |define-k|ey nroff|
|00000130| 2d 6d 6f 64 65 2d 6d 61 | 70 20 22 1b 73 22 20 28 |-mode-ma|p ".s" (|
|00000140| 71 75 6f 74 65 20 63 65 | 6e 74 65 72 2d 6c 69 6e |quote ce|nter-lin|
|00000150| 65 29 29 20 28 64 65 66 | 69 6e 65 2d 6b 65 79 20 |e)) (def|ine-key |
|00000160| 6e 72 6f 66 66 2d 6d 6f | 64 65 2d 6d 61 70 20 22 |nroff-mo|de-map "|
|00000170| 1b 3f 22 20 28 71 75 6f | 74 65 20 63 6f 75 6e 74 |.?" (quo|te count|
|00000180| 2d 74 65 78 74 2d 6c 69 | 6e 65 73 29 29 20 28 64 |-text-li|nes)) (d|
|00000190| 65 66 69 6e 65 2d 6b 65 | 79 20 6e 72 6f 66 66 2d |efine-ke|y nroff-|
|000001a0| 6d 6f 64 65 2d 6d 61 70 | 20 22 0a 22 20 28 71 75 |mode-map| "." (qu|
|000001b0| 6f 74 65 20 65 6c 65 63 | 74 72 69 63 2d 6e 72 6f |ote elec|tric-nro|
|000001c0| 66 66 2d 6e 65 77 6c 69 | 6e 65 29 29 20 28 64 65 |ff-newli|ne)) (de|
|000001d0| 66 69 6e 65 2d 6b 65 79 | 20 6e 72 6f 66 66 2d 6d |fine-key| nroff-m|
|000001e0| 6f 64 65 2d 6d 61 70 20 | 22 1b 6e 22 20 28 71 75 |ode-map |".n" (qu|
|000001f0| 6f 74 65 20 66 6f 72 77 | 61 72 64 2d 74 65 78 74 |ote forw|ard-text|
|00000200| 2d 6c 69 6e 65 29 29 20 | 28 64 65 66 69 6e 65 2d |-line)) |(define-|
|00000210| 6b 65 79 20 6e 72 6f 66 | 66 2d 6d 6f 64 65 2d 6d |key nrof|f-mode-m|
|00000220| 61 70 20 22 1b 70 22 20 | 28 71 75 6f 74 65 20 62 |ap ".p" |(quote b|
|00000230| 61 63 6b 77 61 72 64 2d | 74 65 78 74 2d 6c 69 6e |ackward-|text-lin|
|00000240| 65 29 29 29 29 0a 0a 28 | 64 65 66 75 6e 20 6e 72 |e))))..(|defun nr|
|00000250| 6f 66 66 2d 6d 6f 64 65 | 20 6e 69 6c 20 22 5c 0a |off-mode| nil "\.|
|00000260| 4d 61 6a 6f 72 20 6d 6f | 64 65 20 66 6f 72 20 65 |Major mo|de for e|
|00000270| 64 69 74 69 6e 67 20 74 | 65 78 74 20 69 6e 74 65 |diting t|ext inte|
|00000280| 6e 64 65 64 20 66 6f 72 | 20 6e 72 6f 66 66 20 74 |nded for| nroff t|
|00000290| 6f 20 66 6f 72 6d 61 74 | 2e 0a 5c 5c 7b 6e 72 6f |o format|..\\{nro|
|000002a0| 66 66 2d 6d 6f 64 65 2d | 6d 61 70 7d 0a 54 75 72 |ff-mode-|map}.Tur|
|000002b0| 6e 69 6e 67 20 6f 6e 20 | 4e 72 6f 66 66 20 6d 6f |ning on |Nroff mo|
|000002c0| 64 65 20 72 75 6e 73 20 | 74 65 78 74 2d 6d 6f 64 |de runs |text-mod|
|000002d0| 65 2d 68 6f 6f 6b 2c 20 | 74 68 65 6e 20 6e 72 6f |e-hook, |then nro|
|000002e0| 66 66 2d 6d 6f 64 65 2d | 68 6f 6f 6b 2e 0a 41 6c |ff-mode-|hook..Al|
|000002f0| 73 6f 2c 20 74 72 79 20 | 6e 72 6f 66 66 2d 65 6c |so, try |nroff-el|
|00000300| 65 63 74 72 69 63 2d 6d | 6f 64 65 2c 20 66 6f 72 |ectric-m|ode, for|
|00000310| 20 61 75 74 6f 6d 61 74 | 69 63 61 6c 6c 79 20 69 | automat|ically i|
|00000320| 6e 73 65 72 74 69 6e 67 | 0a 63 6c 6f 73 69 6e 67 |nserting|.closing|
|00000330| 20 72 65 71 75 65 73 74 | 73 20 66 6f 72 20 72 65 | request|s for re|
|00000340| 71 75 65 73 74 73 20 74 | 68 61 74 20 61 72 65 20 |quests t|hat are |
|00000350| 75 73 65 64 20 69 6e 20 | 6d 61 74 63 68 65 64 20 |used in |matched |
|00000360| 70 61 69 72 73 2e 22 20 | 28 69 6e 74 65 72 61 63 |pairs." |(interac|
|00000370| 74 69 76 65 29 20 28 62 | 79 74 65 2d 63 6f 64 65 |tive) (b|yte-code|
|00000380| 20 22 cd 88 ce 20 88 cf | 08 21 88 d0 89 11 88 d1 | "... ..|.!......|
|00000390| 89 12 88 d2 0b 21 88 0d | 89 14 88 d3 d4 21 88 d3 |.....!..|.....!..|
|000003a0| c6 21 88 d5 89 16 06 88 | d3 c7 21 88 d6 0e 07 50 |.!......|..!....P|
|000003b0| 89 16 07 88 d3 c8 21 88 | d6 0e 08 50 89 16 08 88 |......!.|...P....|
|000003c0| d3 c9 21 88 d7 89 16 09 | 88 d3 ca 21 88 d8 89 16 |..!.....|...!....|
|000003d0| 0a 88 d3 cb 21 88 d9 89 | 16 0b 88 d3 cc 21 88 da |....!...|.....!..|
|000003e0| 89 16 0c 88 db dc dd 5c | 22 87 22 20 5b 6e 72 6f |.......\|"." [nro|
|000003f0| 66 66 2d 6d 6f 64 65 2d | 6d 61 70 20 6d 6f 64 65 |ff-mode-|map mode|
|00000400| 2d 6e 61 6d 65 20 6d 61 | 6a 6f 72 2d 6d 6f 64 65 |-name ma|jor-mode|
|00000410| 20 74 65 78 74 2d 6d 6f | 64 65 2d 73 79 6e 74 61 | text-mo|de-synta|
|00000420| 78 2d 74 61 62 6c 65 20 | 6c 6f 63 61 6c 2d 61 62 |x-table |local-ab|
|00000430| 62 72 65 76 2d 74 61 62 | 6c 65 20 6e 72 6f 66 66 |brev-tab|le nroff|
|00000440| 2d 6d 6f 64 65 2d 61 62 | 62 72 65 76 2d 74 61 62 |-mode-ab|brev-tab|
|00000450| 6c 65 20 70 61 67 65 2d | 64 65 6c 69 6d 69 74 65 |le page-|delimite|
|00000460| 72 20 70 61 72 61 67 72 | 61 70 68 2d 73 74 61 72 |r paragr|aph-star|
|00000470| 74 20 70 61 72 61 67 72 | 61 70 68 2d 73 65 70 61 |t paragr|aph-sepa|
|00000480| 72 61 74 65 20 63 6f 6d | 6d 65 6e 74 2d 73 74 61 |rate com|ment-sta|
|00000490| 72 74 20 63 6f 6d 6d 65 | 6e 74 2d 73 74 61 72 74 |rt comme|nt-start|
|000004a0| 2d 73 6b 69 70 20 63 6f | 6d 6d 65 6e 74 2d 63 6f |-skip co|mment-co|
|000004b0| 6c 75 6d 6e 20 63 6f 6d | 6d 65 6e 74 2d 69 6e 64 |lumn com|ment-ind|
|000004c0| 65 6e 74 2d 68 6f 6f 6b | 20 6e 69 6c 20 6b 69 6c |ent-hook| nil kil|
|000004d0| 6c 2d 61 6c 6c 2d 6c 6f | 63 61 6c 2d 76 61 72 69 |l-all-lo|cal-vari|
|000004e0| 61 62 6c 65 73 20 75 73 | 65 2d 6c 6f 63 61 6c 2d |ables us|e-local-|
|000004f0| 6d 61 70 20 22 4e 72 6f | 66 66 22 20 6e 72 6f 66 |map "Nro|ff" nrof|
|00000500| 66 2d 6d 6f 64 65 20 73 | 65 74 2d 73 79 6e 74 61 |f-mode s|et-synta|
|00000510| 78 2d 74 61 62 6c 65 20 | 6d 61 6b 65 2d 6c 6f 63 |x-table |make-loc|
|00000520| 61 6c 2d 76 61 72 69 61 | 62 6c 65 20 6e 72 6f 66 |al-varia|ble nrof|
|00000530| 66 2d 65 6c 65 63 74 72 | 69 63 2d 6d 6f 64 65 20 |f-electr|ic-mode |
|00000540| 22 5e 5c 5c 2e 5c 5c 28 | 62 70 5c 5c 7c 53 4b 5c |"^\\.\\(|bp\\|SK\|
|00000550| 5c 7c 4f 50 5c 5c 29 22 | 20 22 5e 5b 2e 27 5d 5c |\|OP\\)"| "^[.']\|
|00000560| 5c 7c 22 20 22 5c 5c 5c | 22 20 22 20 22 5c 5c 5c |\|" "\\\|" " "\\\|
|00000570| 5c 5c 22 5b 20 09 5d 2a | 22 20 32 34 20 6e 72 6f |\\"[ .]*|" 24 nro|
|00000580| 66 66 2d 63 6f 6d 6d 65 | 6e 74 2d 69 6e 64 65 6e |ff-comme|nt-inden|
|00000590| 74 20 72 75 6e 2d 68 6f | 6f 6b 73 20 74 65 78 74 |t run-ho|oks text|
|000005a0| 2d 6d 6f 64 65 2d 68 6f | 6f 6b 20 6e 72 6f 66 66 |-mode-ho|ok nroff|
|000005b0| 2d 6d 6f 64 65 2d 68 6f | 6f 6b 5d 20 31 34 29 29 |-mode-ho|ok] 14))|
|000005c0| 0a 0a 28 64 65 66 75 6e | 20 6e 72 6f 66 66 2d 63 |..(defun| nroff-c|
|000005d0| 6f 6d 6d 65 6e 74 2d 69 | 6e 64 65 6e 74 20 6e 69 |omment-i|ndent ni|
|000005e0| 6c 20 22 5c 0a 43 6f 6d | 70 75 74 65 20 69 6e 64 |l "\.Com|pute ind|
|000005f0| 65 6e 74 20 66 6f 72 20 | 61 6e 20 6e 72 6f 66 66 |ent for |an nroff|
|00000600| 2f 74 72 6f 66 66 20 63 | 6f 6d 6d 65 6e 74 2e 0a |/troff c|omment..|
|00000610| 50 75 74 73 20 61 20 66 | 75 6c 6c 2d 73 74 6f 70 |Puts a f|ull-stop|
|00000620| 20 62 65 66 6f 72 65 20 | 63 6f 6d 6d 65 6e 74 73 | before |comments|
|00000630| 20 6f 6e 20 61 20 6c 69 | 6e 65 20 62 79 20 74 68 | on a li|ne by th|
|00000640| 65 6d 73 65 6c 76 65 73 | 2e 22 20 28 62 79 74 65 |emselves|." (byte|
|00000650| 2d 63 6f 64 65 20 22 60 | 18 c2 8e c3 c4 21 88 6e |-code "`|.....!.n|
|00000660| 83 18 00 08 54 89 10 88 | c5 63 88 c6 82 33 00 8a |....T...|.c...3..|
|00000670| c7 c6 21 88 c8 c9 21 29 | 83 28 00 c6 82 33 00 09 |..!...!)|.(...3..|
|00000680| ca cb cc 69 cd 5c 5c cb | 5c 22 5c 22 5d 29 29 87 |...i.\\.|\"\"])).|
|00000690| 22 20 5b 70 74 20 63 6f | 6d 6d 65 6e 74 2d 63 6f |" [pt co|mment-co|
|000006a0| 6c 75 6d 6e 20 28 28 62 | 79 74 65 2d 63 6f 64 65 |lumn ((b|yte-code|
|000006b0| 20 22 08 62 87 22 20 5b | 70 74 5d 20 31 29 29 20 | ".b." [|pt] 1)) |
|000006c0| 73 6b 69 70 2d 63 68 61 | 72 73 2d 62 61 63 6b 77 |skip-cha|rs-backw|
|000006d0| 61 72 64 20 22 20 09 22 | 20 34 36 20 31 20 62 61 |ard " ."| 46 1 ba|
|000006e0| 63 6b 77 61 72 64 2d 63 | 68 61 72 20 6c 6f 6f 6b |ckward-c|har look|
|000006f0| 69 6e 67 2d 61 74 20 22 | 5e 5b 2e 27 5d 22 20 2a |ing-at "|^[.']" *|
|00000700| 20 38 20 2f 20 39 5d 20 | 39 29 29 0a 0a 28 64 65 | 8 / 9] |9))..(de|
|00000710| 66 75 6e 20 63 6f 75 6e | 74 2d 74 65 78 74 2d 6c |fun coun|t-text-l|
|00000720| 69 6e 65 73 20 28 73 74 | 61 72 74 20 65 6e 64 20 |ines (st|art end |
|00000730| 26 6f 70 74 69 6f 6e 61 | 6c 20 70 72 69 6e 74 29 |&optiona|l print)|
|00000740| 20 22 5c 0a 43 6f 75 6e | 74 20 6c 69 6e 65 73 20 | "\.Coun|t lines |
|00000750| 69 6e 20 72 65 67 69 6f | 6e 2c 20 65 78 63 65 70 |in regio|n, excep|
|00000760| 74 20 66 6f 72 20 6e 72 | 6f 66 66 20 72 65 71 75 |t for nr|off requ|
|00000770| 65 73 74 20 6c 69 6e 65 | 73 2e 0a 41 6c 6c 20 6c |est line|s..All l|
|00000780| 69 6e 65 73 20 6e 6f 74 | 20 73 74 61 72 74 69 6e |ines not| startin|
|00000790| 67 20 77 69 74 68 20 61 | 20 70 65 72 69 6f 64 20 |g with a| period |
|000007a0| 61 72 65 20 63 6f 75 6e | 74 65 64 20 75 70 2e 0a |are coun|ted up..|
|000007b0| 49 6e 74 65 72 61 63 74 | 69 76 65 6c 79 2c 20 70 |Interact|ively, p|
|000007c0| 72 69 6e 74 20 72 65 73 | 75 6c 74 20 69 6e 20 65 |rint res|ult in e|
|000007d0| 63 68 6f 20 61 72 65 61 | 2e 0a 4e 6f 6e 69 6e 74 |cho area|..Nonint|
|000007e0| 65 72 61 63 74 69 76 65 | 6c 79 2c 20 72 65 74 75 |eractive|ly, retu|
|000007f0| 72 6e 20 6e 75 6d 62 65 | 72 20 6f 66 20 6e 6f 6e |rn numbe|r of non|
|00000800| 2d 72 65 71 75 65 73 74 | 20 6c 69 6e 65 73 20 66 |-request| lines f|
|00000810| 72 6f 6d 20 53 54 41 52 | 54 20 74 6f 20 45 4e 44 |rom STAR|T to END|
|00000820| 2e 22 20 28 69 6e 74 65 | 72 61 63 74 69 76 65 20 |." (inte|ractive |
|00000830| 22 72 0a 70 22 29 20 28 | 62 79 74 65 2d 63 6f 64 |"r.p") (|byte-cod|
|00000840| 65 20 22 c3 88 08 83 10 | 00 c4 c5 c6 09 0a 5c 22 |e ".....|......\"|
|00000850| 5c 22 82 23 00 8a 8c c7 | 09 0a 5c 22 88 65 62 88 |\".#....|..\".eb.|
|00000860| c8 20 c9 c8 20 21 5a 29 | 29 87 22 20 5b 70 72 69 |. .. !Z)|)." [pri|
|00000870| 6e 74 20 73 74 61 72 74 | 20 65 6e 64 20 6e 69 6c |nt start| end nil|
|00000880| 20 6d 65 73 73 61 67 65 | 20 22 52 65 67 69 6f 6e | message| "Region|
|00000890| 20 68 61 73 20 25 64 20 | 74 65 78 74 20 6c 69 6e | has %d |text lin|
|000008a0| 65 73 22 20 63 6f 75 6e | 74 2d 74 65 78 74 2d 6c |es" coun|t-text-l|
|000008b0| 69 6e 65 73 20 6e 61 72 | 72 6f 77 2d 74 6f 2d 72 |ines nar|row-to-r|
|000008c0| 65 67 69 6f 6e 20 62 75 | 66 66 65 72 2d 73 69 7a |egion bu|ffer-siz|
|000008d0| 65 20 66 6f 72 77 61 72 | 64 2d 74 65 78 74 2d 6c |e forwar|d-text-l|
|000008e0| 69 6e 65 5d 20 38 29 29 | 0a 0a 28 64 65 66 75 6e |ine] 8))|..(defun|
|000008f0| 20 66 6f 72 77 61 72 64 | 2d 74 65 78 74 2d 6c 69 | forward|-text-li|
|00000900| 6e 65 20 28 26 6f 70 74 | 69 6f 6e 61 6c 20 63 6e |ne (&opt|ional cn|
|00000910| 74 29 20 22 5c 0a 47 6f | 20 66 6f 72 77 61 72 64 |t) "\.Go| forward|
|00000920| 20 6f 6e 65 20 6e 72 6f | 66 66 20 74 65 78 74 20 | one nro|ff text |
|00000930| 6c 69 6e 65 2c 20 73 6b | 69 70 70 69 6e 67 20 6c |line, sk|ipping l|
|00000940| 69 6e 65 73 20 6f 66 20 | 6e 72 6f 66 66 20 72 65 |ines of |nroff re|
|00000950| 71 75 65 73 74 73 2e 0a | 41 6e 20 61 72 67 75 6d |quests..|An argum|
|00000960| 65 6e 74 20 69 73 20 61 | 20 72 65 70 65 61 74 20 |ent is a| repeat |
|00000970| 63 6f 75 6e 74 3b 20 69 | 66 20 6e 65 67 61 74 69 |count; i|f negati|
|00000980| 76 65 2c 20 6d 6f 76 65 | 20 62 61 63 6b 77 61 72 |ve, move| backwar|
|00000990| 64 2e 22 20 28 69 6e 74 | 65 72 61 63 74 69 76 65 |d." (int|eractive|
|000009a0| 20 22 70 22 29 20 28 62 | 79 74 65 2d 63 6f 64 65 | "p") (b|yte-code|
|000009b0| 20 22 c1 88 08 3f 85 0a | 00 c2 89 10 88 08 c3 56 | "...?..|.......V|
|000009c0| 85 13 00 6d 3f 85 36 00 | c4 c2 21 88 6d 3f 85 5c |...m?.6.|..!.m?.\|
|000009d0| 22 00 c5 c6 21 85 2c 00 | c4 c2 21 88 82 1a 00 88 |"...!.,.|..!.....|
|000009e0| 08 c2 5a 89 10 88 82 0b | 00 88 08 c3 57 85 3f 00 |..Z.....|....W.?.|
|000009f0| 6f 3f 85 62 00 c4 c7 21 | 88 6f 3f 85 4e 00 c5 c6 |o?.b...!|.o?.N...|
|00000a00| 21 85 58 00 c4 c7 21 88 | 82 46 00 88 08 c2 5c 5c |!.X...!.|.F....\\|
|00000a10| 89 10 88 82 37 00 88 08 | 87 22 20 5b 63 6e 74 20 |....7...|." [cnt |
|00000a20| 6e 69 6c 20 31 20 30 20 | 66 6f 72 77 61 72 64 2d |nil 1 0 |forward-|
|00000a30| 6c 69 6e 65 20 6c 6f 6f | 6b 69 6e 67 2d 61 74 20 |line loo|king-at |
|00000a40| 22 5b 2e 27 5d 2e 22 20 | 2d 31 5d 20 39 29 29 0a |"[.']." |-1] 9)).|
|00000a50| 0a 28 64 65 66 75 6e 20 | 62 61 63 6b 77 61 72 64 |.(defun |backward|
|00000a60| 2d 74 65 78 74 2d 6c 69 | 6e 65 20 28 26 6f 70 74 |-text-li|ne (&opt|
|00000a70| 69 6f 6e 61 6c 20 63 6e | 74 29 20 22 5c 0a 47 6f |ional cn|t) "\.Go|
|00000a80| 20 62 61 63 6b 77 61 72 | 64 20 6f 6e 65 20 6e 72 | backwar|d one nr|
|00000a90| 6f 66 66 20 74 65 78 74 | 20 6c 69 6e 65 2c 20 73 |off text| line, s|
|00000aa0| 6b 69 70 70 69 6e 67 20 | 6c 69 6e 65 73 20 6f 66 |kipping |lines of|
|00000ab0| 20 6e 72 6f 66 66 20 72 | 65 71 75 65 73 74 73 2e | nroff r|equests.|
|00000ac0| 0a 41 6e 20 61 72 67 75 | 6d 65 6e 74 20 69 73 20 |.An argu|ment is |
|00000ad0| 61 20 72 65 70 65 61 74 | 20 63 6f 75 6e 74 3b 20 |a repeat| count; |
|00000ae0| 6e 65 67 61 74 69 76 65 | 20 6d 65 61 6e 73 20 6d |negative| means m|
|00000af0| 6f 76 65 20 66 6f 72 77 | 61 72 64 2e 22 20 28 69 |ove forw|ard." (i|
|00000b00| 6e 74 65 72 61 63 74 69 | 76 65 20 22 70 22 29 20 |nteracti|ve "p") |
|00000b10| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c1 88 c2 08 |(byte-co|de "....|
|00000b20| 5b 21 87 22 20 5b 63 6e | 74 20 6e 69 6c 20 66 6f |[!." [cn|t nil fo|
|00000b30| 72 77 61 72 64 2d 74 65 | 78 74 2d 6c 69 6e 65 5d |rward-te|xt-line]|
|00000b40| 20 32 29 29 0a 0a 28 64 | 65 66 63 6f 6e 73 74 20 | 2))..(d|efconst |
|00000b50| 6e 72 6f 66 66 2d 62 72 | 61 63 65 2d 74 61 62 6c |nroff-br|ace-tabl|
|00000b60| 65 20 28 71 75 6f 74 65 | 20 28 28 22 2e 28 62 22 |e (quote| ((".(b"|
|00000b70| 20 2e 20 22 2e 29 62 22 | 29 20 28 22 2e 28 6c 22 | . ".)b"|) (".(l"|
|00000b80| 20 2e 20 22 2e 29 6c 22 | 29 20 28 22 2e 28 71 22 | . ".)l"|) (".(q"|
|00000b90| 20 2e 20 22 2e 29 71 22 | 29 20 28 22 2e 28 63 22 | . ".)q"|) (".(c"|
|00000ba0| 20 2e 20 22 2e 29 63 22 | 29 20 28 22 2e 28 78 22 | . ".)c"|) (".(x"|
|00000bb0| 20 2e 20 22 2e 29 78 22 | 29 20 28 22 2e 28 7a 22 | . ".)x"|) (".(z"|
|00000bc0| 20 2e 20 22 2e 29 7a 22 | 29 20 28 22 2e 28 64 22 | . ".)z"|) (".(d"|
|00000bd0| 20 2e 20 22 2e 29 64 22 | 29 20 28 22 2e 28 66 22 | . ".)d"|) (".(f"|
|00000be0| 20 2e 20 22 2e 29 66 22 | 29 20 28 22 2e 4c 47 22 | . ".)f"|) (".LG"|
|00000bf0| 20 2e 20 22 2e 4e 4c 22 | 29 20 28 22 2e 53 4d 22 | . ".NL"|) (".SM"|
|00000c00| 20 2e 20 22 2e 4e 4c 22 | 29 20 28 22 2e 4c 44 22 | . ".NL"|) (".LD"|
|00000c10| 20 2e 20 22 2e 44 45 22 | 29 20 28 22 2e 43 44 22 | . ".DE"|) (".CD"|
|00000c20| 20 2e 20 22 2e 44 45 22 | 29 20 28 22 2e 42 44 22 | . ".DE"|) (".BD"|
|00000c30| 20 2e 20 22 2e 44 45 22 | 29 20 28 22 2e 44 53 22 | . ".DE"|) (".DS"|
|00000c40| 20 2e 20 22 2e 44 45 22 | 29 20 28 22 2e 44 46 22 | . ".DE"|) (".DF"|
|00000c50| 20 2e 20 22 2e 44 45 22 | 29 20 28 22 2e 46 53 22 | . ".DE"|) (".FS"|
|00000c60| 20 2e 20 22 2e 46 45 22 | 29 20 28 22 2e 4b 53 22 | . ".FE"|) (".KS"|
|00000c70| 20 2e 20 22 2e 4b 45 22 | 29 20 28 22 2e 4b 46 22 | . ".KE"|) (".KF"|
|00000c80| 20 2e 20 22 2e 4b 45 22 | 29 20 28 22 2e 4c 42 22 | . ".KE"|) (".LB"|
|00000c90| 20 2e 20 22 2e 4c 45 22 | 29 20 28 22 2e 41 4c 22 | . ".LE"|) (".AL"|
|00000ca0| 20 2e 20 22 2e 4c 45 22 | 29 20 28 22 2e 42 4c 22 | . ".LE"|) (".BL"|
|00000cb0| 20 2e 20 22 2e 4c 45 22 | 29 20 28 22 2e 44 4c 22 | . ".LE"|) (".DL"|
|00000cc0| 20 2e 20 22 2e 4c 45 22 | 29 20 28 22 2e 4d 4c 22 | . ".LE"|) (".ML"|
|00000cd0| 20 2e 20 22 2e 4c 45 22 | 29 20 28 22 2e 52 4c 22 | . ".LE"|) (".RL"|
|00000ce0| 20 2e 20 22 2e 4c 45 22 | 29 20 28 22 2e 56 4c 22 | . ".LE"|) (".VL"|
|00000cf0| 20 2e 20 22 2e 4c 45 22 | 29 20 28 22 2e 52 53 22 | . ".LE"|) (".RS"|
|00000d00| 20 2e 20 22 2e 52 45 22 | 29 20 28 22 2e 54 53 22 | . ".RE"|) (".TS"|
|00000d10| 20 2e 20 22 2e 54 45 22 | 29 20 28 22 2e 45 51 22 | . ".TE"|) (".EQ"|
|00000d20| 20 2e 20 22 2e 45 4e 22 | 29 20 28 22 2e 50 53 22 | . ".EN"|) (".PS"|
|00000d30| 20 2e 20 22 2e 50 45 22 | 29 20 28 22 2e 42 53 22 | . ".PE"|) (".BS"|
|00000d40| 20 2e 20 22 2e 42 45 22 | 29 20 28 22 2e 47 31 22 | . ".BE"|) (".G1"|
|00000d50| 20 2e 20 22 2e 47 32 22 | 29 20 28 22 2e 6e 61 22 | . ".G2"|) (".na"|
|00000d60| 20 2e 20 22 2e 61 64 20 | 62 22 29 20 28 22 2e 6e | . ".ad |b") (".n|
|00000d70| 66 22 20 2e 20 22 2e 66 | 69 22 29 20 28 22 2e 64 |f" . ".f|i") (".d|
|00000d80| 65 22 20 2e 20 22 2e 2e | 22 29 29 29 29 0a 0a 28 |e" . "..|"))))..(|
|00000d90| 64 65 66 75 6e 20 65 6c | 65 63 74 72 69 63 2d 6e |defun el|ectric-n|
|00000da0| 72 6f 66 66 2d 6e 65 77 | 6c 69 6e 65 20 28 61 72 |roff-new|line (ar|
|00000db0| 67 29 20 22 5c 0a 49 6e | 73 65 72 74 20 6e 65 77 |g) "\.In|sert new|
|00000dc0| 6c 69 6e 65 20 66 6f 72 | 20 6e 72 6f 66 66 20 6d |line for| nroff m|
|00000dd0| 6f 64 65 3b 20 73 70 65 | 63 69 61 6c 20 69 66 20 |ode; spe|cial if |
|00000de0| 65 6c 65 63 74 72 69 63 | 2d 6e 72 6f 66 66 20 6d |electric|-nroff m|
|00000df0| 6f 64 65 2e 0a 49 6e 20 | 65 6c 65 63 74 72 69 63 |ode..In |electric|
|00000e00| 2d 6e 72 6f 66 66 2d 6d | 6f 64 65 2c 20 69 66 20 |-nroff-m|ode, if |
|00000e10| 65 6e 64 69 6e 67 20 61 | 20 6c 69 6e 65 20 63 6f |ending a| line co|
|00000e20| 6e 74 61 69 6e 69 6e 67 | 20 61 6e 20 6e 72 6f 66 |ntaining| an nrof|
|00000e30| 66 20 6f 70 65 6e 69 6e | 67 20 72 65 71 75 65 73 |f openin|g reques|
|00000e40| 74 2c 0a 61 75 74 6f 6d | 61 74 69 63 61 6c 6c 79 |t,.autom|atically|
|00000e50| 20 69 6e 73 65 72 74 73 | 20 74 68 65 20 6d 61 74 | inserts| the mat|
|00000e60| 63 68 69 6e 67 20 63 6c | 6f 73 69 6e 67 20 72 65 |ching cl|osing re|
|00000e70| 71 75 65 73 74 20 61 66 | 74 65 72 20 70 6f 69 6e |quest af|ter poin|
|00000e80| 74 2e 22 20 28 69 6e 74 | 65 72 61 63 74 69 76 65 |t." (int|eractive|
|00000e90| 20 22 50 22 29 20 28 62 | 79 74 65 2d 63 6f 64 65 | "P") (b|yte-code|
|00000ea0| 20 22 c5 88 8a c6 20 88 | 09 3f 85 21 00 0a 85 21 | ".... .|.?.!...!|
|00000eb0| 00 60 64 c7 5a 58 85 21 | 00 c8 c9 60 c7 60 5c 5c |.`d.ZX.!|...`.`\\|
|00000ec0| 5c 22 0b 5c 22 41 29 ca | cb 21 3f 1c 18 08 3f 83 |\".\"A).|.!?...?.|
|00000ed0| 35 00 cc cd 09 21 21 82 | 46 00 8a ce cf 08 5c 22 |5....!!.|F.....\"|
|00000ee0| 88 0c 85 41 00 d0 63 29 | 88 d1 d2 21 2a 87 22 20 |...A..c)|...!*." |
|00000ef0| 5b 63 6f 6d 70 6c 65 74 | 69 6f 6e 20 61 72 67 20 |[complet|ion arg |
|00000f00| 6e 72 6f 66 66 2d 65 6c | 65 63 74 72 69 63 2d 6d |nroff-el|ectric-m|
|00000f10| 6f 64 65 20 6e 72 6f 66 | 66 2d 62 72 61 63 65 2d |ode nrof|f-brace-|
|00000f20| 74 61 62 6c 65 20 6e 65 | 65 64 73 2d 6e 6c 20 6e |table ne|eds-nl n|
|00000f30| 69 6c 20 62 65 67 69 6e | 6e 69 6e 67 2d 6f 66 2d |il begin|ning-of-|
|00000f40| 6c 69 6e 65 20 33 20 61 | 73 73 6f 63 20 62 75 66 |line 3 a|ssoc buf|
|00000f50| 66 65 72 2d 73 75 62 73 | 74 72 69 6e 67 20 6c 6f |fer-subs|tring lo|
|00000f60| 6f 6b 69 6e 67 2d 61 74 | 20 22 5b 20 09 5d 2a 24 |oking-at| "[ .]*$|
|00000f70| 22 20 6e 65 77 6c 69 6e | 65 20 70 72 65 66 69 78 |" newlin|e prefix|
|00000f80| 2d 6e 75 6d 65 72 69 63 | 2d 76 61 6c 75 65 20 69 |-numeric|-value i|
|00000f90| 6e 73 65 72 74 20 22 0a | 0a 22 20 22 0a 22 20 66 |nsert ".|." "." f|
|00000fa0| 6f 72 77 61 72 64 2d 63 | 68 61 72 20 31 5d 20 39 |orward-c|har 1] 9|
|00000fb0| 29 29 0a 0a 28 64 65 66 | 75 6e 20 65 6c 65 63 74 |))..(def|un elect|
|00000fc0| 72 69 63 2d 6e 72 6f 66 | 66 2d 6d 6f 64 65 20 28 |ric-nrof|f-mode (|
|00000fd0| 26 6f 70 74 69 6f 6e 61 | 6c 20 61 72 67 29 20 22 |&optiona|l arg) "|
|00000fe0| 5c 0a 54 6f 67 67 6c 65 | 20 6e 72 6f 66 66 2d 65 |\.Toggle| nroff-e|
|00000ff0| 6c 65 63 74 72 69 63 2d | 6e 65 77 6c 69 6e 65 20 |lectric-|newline |
|00001000| 6d 69 6e 6f 72 20 6d 6f | 64 65 0a 4e 72 6f 66 66 |minor mo|de.Nroff|
|00001010| 2d 65 6c 65 63 74 72 69 | 63 2d 6e 65 77 6c 69 6e |-electri|c-newlin|
|00001020| 65 20 66 6f 72 63 65 73 | 20 65 6d 61 63 73 20 74 |e forces| emacs t|
|00001030| 6f 20 63 68 65 63 6b 20 | 66 6f 72 20 61 6e 20 6e |o check |for an n|
|00001040| 72 6f 66 66 0a 72 65 71 | 75 65 73 74 20 61 74 20 |roff.req|uest at |
|00001050| 74 68 65 20 62 65 67 69 | 6e 6e 69 6e 67 20 6f 66 |the begi|nning of|
|00001060| 20 74 68 65 20 6c 69 6e | 65 2c 20 61 6e 64 20 69 | the lin|e, and i|
|00001070| 6e 73 65 72 74 20 74 68 | 65 0a 6d 61 74 63 68 69 |nsert th|e.matchi|
|00001080| 6e 67 20 63 6c 6f 73 69 | 6e 67 20 72 65 71 75 65 |ng closi|ng reque|
|00001090| 73 74 20 69 66 20 6e 65 | 63 65 73 73 61 72 79 2e |st if ne|cessary.|
|000010a0| 20 20 0a 54 68 69 73 20 | 63 6f 6d 6d 61 6e 64 20 |  .This |command |
|000010b0| 74 6f 67 67 6c 65 73 20 | 74 68 61 74 20 6d 6f 64 |toggles |that mod|
|000010c0| 65 20 28 6f 66 66 2d 3e | 6f 6e 2c 20 6f 6e 2d 3e |e (off->|on, on->|
|000010d0| 6f 66 66 29 2c 20 0a 77 | 69 74 68 20 61 6e 20 61 |off), .w|ith an a|
|000010e0| 72 67 75 6d 65 6e 74 2c | 20 74 75 72 6e 73 20 69 |rgument,| turns i|
|000010f0| 74 20 6f 6e 20 69 66 66 | 20 61 72 67 20 69 73 20 |t on iff| arg is |
|00001100| 70 6f 73 69 74 69 76 65 | 2c 20 6f 74 68 65 72 77 |positive|, otherw|
|00001110| 69 73 65 20 6f 66 66 2e | 22 20 28 69 6e 74 65 72 |ise off.|" (inter|
|00001120| 61 63 74 69 76 65 20 22 | 50 22 29 20 28 62 79 74 |active "|P") (byt|
|00001130| 65 2d 63 6f 64 65 20 22 | c5 88 08 c6 3d 86 0b 00 |e-code "|....=...|
|00001140| c7 c8 21 88 c9 c2 09 5c | 22 86 1a 00 ca 09 cb 43 |..!....\|"......C|
|00001150| 5c 22 89 11 88 0b 3f 83 | 25 00 0a 3f 82 2a 00 cc |\"....?.|%..?.*..|
|00001160| 0b 21 cd 56 89 12 87 22 | 20 5b 6d 61 6a 6f 72 2d |.!.V..."| [major-|
|00001170| 6d 6f 64 65 20 6d 69 6e | 6f 72 2d 6d 6f 64 65 2d |mode min|or-mode-|
|00001180| 61 6c 69 73 74 20 6e 72 | 6f 66 66 2d 65 6c 65 63 |alist nr|off-elec|
|00001190| 74 72 69 63 2d 6d 6f 64 | 65 20 61 72 67 20 74 20 |tric-mod|e arg t |
|000011a0| 6e 69 6c 20 6e 72 6f 66 | 66 2d 6d 6f 64 65 20 65 |nil nrof|f-mode e|
|000011b0| 72 72 6f 72 20 22 4d 75 | 73 74 20 62 65 20 69 6e |rror "Mu|st be in|
|000011c0| 20 6e 72 6f 66 66 20 6d | 6f 64 65 22 20 61 73 73 | nroff m|ode" ass|
|000011d0| 71 20 61 70 70 65 6e 64 | 20 28 6e 72 6f 66 66 2d |q append| (nroff-|
|000011e0| 65 6c 65 63 74 72 69 63 | 2d 6d 6f 64 65 20 22 20 |electric|-mode " |
|000011f0| 45 6c 65 63 74 72 69 63 | 22 29 20 70 72 65 66 69 |Electric|") prefi|
|00001200| 78 2d 6e 75 6d 65 72 69 | 63 2d 76 61 6c 75 65 20 |x-numeri|c-value |
|00001210| 30 5d 20 36 29 29 0a    |                         |0] 6)). |        |
+--------+-------------------------+-------------------------+--------+--------+