|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - downloadIndex: ┃ n ┃
Length: 4409 (0x1139)
Names: »nroff-mode.elc«
└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
└─ ⟦this⟧ »EUUGD11/gnu-31mar87/emacs/lisp/nroff-mode.elc«
0x0000…0020 0a 28 64 65 66 76 61 72 20 6e 72 6f 66 66 2d 6d 6f 64 65 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 ┆ (defvar nroff-mode-abbrev-table┆
0x0020…0040 20 6e 69 6c 20 22 5c 0a 41 62 62 72 65 76 20 74 61 62 6c 65 20 75 73 65 64 20 77 68 69 6c 65 20 ┆ nil "\ Abbrev table used while ┆
0x0040…0060 69 6e 20 6e 72 6f 66 66 20 6d 6f 64 65 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 6e 72 6f 66 66 2d ┆in nroff mode.") (defvar nroff-┆
0x0060…0080 6d 6f 64 65 2d 6d 61 70 20 6e 69 6c 20 22 5c 0a 4d 61 6a 6f 72 20 6d 6f 64 65 20 6b 65 79 6d 61 ┆mode-map nil "\ Major mode keyma┆
0x0080…00a0 70 20 66 6f 72 20 6e 72 6f 66 66 2d 6d 6f 64 65 20 62 75 66 66 65 72 73 22 29 0a 0a 28 69 66 20 ┆p for nroff-mode buffers") (if ┆
0x00a0…00c0 28 6e 6f 74 20 6e 72 6f 66 66 2d 6d 6f 64 65 2d 6d 61 70 29 20 28 70 72 6f 67 6e 20 28 73 65 74 ┆(not nroff-mode-map) (progn (set┆
0x00c0…00e0 71 20 6e 72 6f 66 66 2d 6d 6f 64 65 2d 6d 61 70 20 28 6d 61 6b 65 2d 73 70 61 72 73 65 2d 6b 65 ┆q nroff-mode-map (make-sparse-ke┆
0x00e0…0100 79 6d 61 70 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6e 72 6f 66 66 2d 6d 6f 64 65 2d 6d 61 ┆ymap)) (define-key nroff-mode-ma┆
0x0100…0120 70 20 22 09 22 20 28 71 75 6f 74 65 20 74 61 62 2d 74 6f 2d 74 61 62 2d 73 74 6f 70 29 29 20 28 ┆p " " (quote tab-to-tab-stop)) (┆
0x0120…0140 64 65 66 69 6e 65 2d 6b 65 79 20 6e 72 6f 66 66 2d 6d 6f 64 65 2d 6d 61 70 20 22 1b 73 22 20 28 ┆define-key nroff-mode-map " s" (┆
0x0140…0160 71 75 6f 74 65 20 63 65 6e 74 65 72 2d 6c 69 6e 65 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 ┆quote center-line)) (define-key ┆
0x0160…0180 6e 72 6f 66 66 2d 6d 6f 64 65 2d 6d 61 70 20 22 1b 3f 22 20 28 71 75 6f 74 65 20 63 6f 75 6e 74 ┆nroff-mode-map " ?" (quote count┆
0x0180…01a0 2d 74 65 78 74 2d 6c 69 6e 65 73 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6e 72 6f 66 66 2d ┆-text-lines)) (define-key nroff-┆
0x01a0…01c0 6d 6f 64 65 2d 6d 61 70 20 22 0a 22 20 28 71 75 6f 74 65 20 65 6c 65 63 74 72 69 63 2d 6e 72 6f ┆mode-map " " (quote electric-nro┆
0x01c0…01e0 66 66 2d 6e 65 77 6c 69 6e 65 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6e 72 6f 66 66 2d 6d ┆ff-newline)) (define-key nroff-m┆
0x01e0…0200 6f 64 65 2d 6d 61 70 20 22 1b 6e 22 20 28 71 75 6f 74 65 20 66 6f 72 77 61 72 64 2d 74 65 78 74 ┆ode-map " n" (quote forward-text┆
0x0200…0220 2d 6c 69 6e 65 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6e 72 6f 66 66 2d 6d 6f 64 65 2d 6d ┆-line)) (define-key nroff-mode-m┆
0x0220…0240 61 70 20 22 1b 70 22 20 28 71 75 6f 74 65 20 62 61 63 6b 77 61 72 64 2d 74 65 78 74 2d 6c 69 6e ┆ap " p" (quote backward-text-lin┆
0x0240…0260 65 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6e 72 6f 66 66 2d 6d 6f 64 65 20 6e 69 6c 20 22 5c 0a ┆e)))) (defun nroff-mode nil "\ ┆
0x0260…0280 4d 61 6a 6f 72 20 6d 6f 64 65 20 66 6f 72 20 65 64 69 74 69 6e 67 20 74 65 78 74 20 69 6e 74 65 ┆Major mode for editing text inte┆
0x0280…02a0 6e 64 65 64 20 66 6f 72 20 6e 72 6f 66 66 20 74 6f 20 66 6f 72 6d 61 74 2e 0a 5c 5c 7b 6e 72 6f ┆nded for nroff to format. \\{nro┆
0x02a0…02c0 66 66 2d 6d 6f 64 65 2d 6d 61 70 7d 0a 54 75 72 6e 69 6e 67 20 6f 6e 20 4e 72 6f 66 66 20 6d 6f ┆ff-mode-map} Turning on Nroff mo┆
0x02c0…02e0 64 65 20 72 75 6e 73 20 74 65 78 74 2d 6d 6f 64 65 2d 68 6f 6f 6b 2c 20 74 68 65 6e 20 6e 72 6f ┆de runs text-mode-hook, then nro┆
0x02e0…0300 66 66 2d 6d 6f 64 65 2d 68 6f 6f 6b 2e 0a 41 6c 73 6f 2c 20 74 72 79 20 6e 72 6f 66 66 2d 65 6c ┆ff-mode-hook. Also, try nroff-el┆
0x0300…0320 65 63 74 72 69 63 2d 6d 6f 64 65 2c 20 66 6f 72 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 20 69 ┆ectric-mode, for automatically i┆
0x0320…0340 6e 73 65 72 74 69 6e 67 0a 63 6c 6f 73 69 6e 67 20 72 65 71 75 65 73 74 73 20 66 6f 72 20 72 65 ┆nserting closing requests for re┆
0x0340…0360 71 75 65 73 74 73 20 74 68 61 74 20 61 72 65 20 75 73 65 64 20 69 6e 20 6d 61 74 63 68 65 64 20 ┆quests that are used in matched ┆
0x0360…0380 70 61 69 72 73 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 ┆pairs." (interactive) (byte-code┆
0x0380…03a0 20 22 cd 88 ce 20 88 cf 08 21 88 d0 89 11 88 d1 89 12 88 d2 0b 21 88 0d 89 14 88 d3 d4 21 88 d3 ┆ " ! ! ! ┆
0x03a0…03c0 c6 21 88 d5 89 16 06 88 d3 c7 21 88 d6 0e 07 50 89 16 07 88 d3 c8 21 88 d6 0e 08 50 89 16 08 88 ┆ ! ! P ! P ┆
0x03c0…03e0 d3 c9 21 88 d7 89 16 09 88 d3 ca 21 88 d8 89 16 0a 88 d3 cb 21 88 d9 89 16 0b 88 d3 cc 21 88 da ┆ ! ! ! ! ┆
0x03e0…0400 89 16 0c 88 db dc dd 5c 22 87 22 20 5b 6e 72 6f 66 66 2d 6d 6f 64 65 2d 6d 61 70 20 6d 6f 64 65 ┆ \" " [nroff-mode-map mode┆
0x0400…0420 2d 6e 61 6d 65 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 74 65 78 74 2d 6d 6f 64 65 2d 73 79 6e 74 61 ┆-name major-mode text-mode-synta┆
0x0420…0440 78 2d 74 61 62 6c 65 20 6c 6f 63 61 6c 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 20 6e 72 6f 66 66 ┆x-table local-abbrev-table nroff┆
0x0440…0460 2d 6d 6f 64 65 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 20 70 61 67 65 2d 64 65 6c 69 6d 69 74 65 ┆-mode-abbrev-table page-delimite┆
0x0460…0480 72 20 70 61 72 61 67 72 61 70 68 2d 73 74 61 72 74 20 70 61 72 61 67 72 61 70 68 2d 73 65 70 61 ┆r paragraph-start paragraph-sepa┆
0x0480…04a0 72 61 74 65 20 63 6f 6d 6d 65 6e 74 2d 73 74 61 72 74 20 63 6f 6d 6d 65 6e 74 2d 73 74 61 72 74 ┆rate comment-start comment-start┆
0x04a0…04c0 2d 73 6b 69 70 20 63 6f 6d 6d 65 6e 74 2d 63 6f 6c 75 6d 6e 20 63 6f 6d 6d 65 6e 74 2d 69 6e 64 ┆-skip comment-column comment-ind┆
0x04c0…04e0 65 6e 74 2d 68 6f 6f 6b 20 6e 69 6c 20 6b 69 6c 6c 2d 61 6c 6c 2d 6c 6f 63 61 6c 2d 76 61 72 69 ┆ent-hook nil kill-all-local-vari┆
0x04e0…0500 61 62 6c 65 73 20 75 73 65 2d 6c 6f 63 61 6c 2d 6d 61 70 20 22 4e 72 6f 66 66 22 20 6e 72 6f 66 ┆ables use-local-map "Nroff" nrof┆
0x0500…0520 66 2d 6d 6f 64 65 20 73 65 74 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 6d 61 6b 65 2d 6c 6f 63 ┆f-mode set-syntax-table make-loc┆
0x0520…0540 61 6c 2d 76 61 72 69 61 62 6c 65 20 6e 72 6f 66 66 2d 65 6c 65 63 74 72 69 63 2d 6d 6f 64 65 20 ┆al-variable nroff-electric-mode ┆
0x0540…0560 22 5e 5c 5c 2e 62 70 22 20 22 5e 5c 5c 2e 5c 5c 7c 22 20 22 5c 5c 5c 22 20 22 20 22 5c 5c 5c 5c ┆"^\\.bp" "^\\.\\|" "\\\" " "\\\\┆
0x0560…0580 5c 22 5b 20 09 5d 2a 22 20 32 34 20 6e 72 6f 66 66 2d 63 6f 6d 6d 65 6e 74 2d 69 6e 64 65 6e 74 ┆\"[ ]*" 24 nroff-comment-indent┆
0x0580…05a0 20 72 75 6e 2d 68 6f 6f 6b 73 20 74 65 78 74 2d 6d 6f 64 65 2d 68 6f 6f 6b 20 6e 72 6f 66 66 2d ┆ run-hooks text-mode-hook nroff-┆
0x05a0…05c0 6d 6f 64 65 2d 68 6f 6f 6b 5d 20 31 34 29 29 0a 0a 28 64 65 66 75 6e 20 6e 72 6f 66 66 2d 63 6f ┆mode-hook] 14)) (defun nroff-co┆
0x05c0…05e0 6d 6d 65 6e 74 2d 69 6e 64 65 6e 74 20 6e 69 6c 20 22 5c 0a 43 6f 6d 70 75 74 65 20 69 6e 64 65 ┆mment-indent nil "\ Compute inde┆
0x05e0…0600 6e 74 20 66 6f 72 20 61 6e 20 6e 72 6f 66 66 2f 74 72 6f 66 66 20 63 6f 6d 6d 65 6e 74 2e 0a 50 ┆nt for an nroff/troff comment. P┆
0x0600…0620 75 74 73 20 61 20 66 75 6c 6c 2d 73 74 6f 70 20 62 65 66 6f 72 65 20 63 6f 6d 6d 65 6e 74 73 20 ┆uts a full-stop before comments ┆
0x0620…0640 6f 6e 20 61 20 6c 69 6e 65 20 62 79 20 74 68 65 6d 73 65 6c 76 65 73 2e 22 20 28 62 79 74 65 2d ┆on a line by themselves." (byte-┆
0x0640…0660 63 6f 64 65 20 22 60 18 c2 8e c3 c4 21 88 6e 83 18 00 08 54 89 10 88 c5 63 88 c6 82 33 00 8a c7 ┆code "` ! n T c 3 ┆
0x0660…0680 c6 21 88 c8 c9 21 29 83 28 00 c6 82 33 00 09 ca cb cc 69 cd 5c 5c cb 5c 22 5c 22 5d 29 29 87 22 ┆ ! !) ( 3 i \\ \"\"])) "┆
0x0680…06a0 20 5b 70 74 20 63 6f 6d 6d 65 6e 74 2d 63 6f 6c 75 6d 6e 20 28 28 62 79 74 65 2d 63 6f 64 65 20 ┆ [pt comment-column ((byte-code ┆
0x06a0…06c0 22 08 62 87 22 20 5b 70 74 5d 20 31 29 29 20 73 6b 69 70 2d 63 68 61 72 73 2d 62 61 63 6b 77 61 ┆" b " [pt] 1)) skip-chars-backwa┆
0x06c0…06e0 72 64 20 22 20 09 22 20 34 36 20 31 20 62 61 63 6b 77 61 72 64 2d 63 68 61 72 20 6c 6f 6f 6b 69 ┆rd " " 46 1 backward-char looki┆
0x06e0…0700 6e 67 2d 61 74 20 22 5e 5c 5c 2e 22 20 2a 20 38 20 2f 20 39 5d 20 39 29 29 0a 0a 28 64 65 66 75 ┆ng-at "^\\." * 8 / 9] 9)) (defu┆
0x0700…0720 6e 20 63 6f 75 6e 74 2d 74 65 78 74 2d 6c 69 6e 65 73 20 28 73 74 61 72 74 20 65 6e 64 20 26 6f ┆n count-text-lines (start end &o┆
0x0720…0740 70 74 69 6f 6e 61 6c 20 70 72 69 6e 74 29 20 22 5c 0a 43 6f 75 6e 74 20 6c 69 6e 65 73 20 69 6e ┆ptional print) "\ Count lines in┆
0x0740…0760 20 72 65 67 69 6f 6e 2c 20 65 78 63 65 70 74 20 66 6f 72 20 6e 72 6f 66 66 20 72 65 71 75 65 73 ┆ region, except for nroff reques┆
0x0760…0780 74 20 6c 69 6e 65 73 2e 0a 41 6c 6c 20 6c 69 6e 65 73 20 6e 6f 74 20 73 74 61 72 74 69 6e 67 20 ┆t lines. All lines not starting ┆
0x0780…07a0 77 69 74 68 20 61 20 70 65 72 69 6f 64 20 61 72 65 20 63 6f 75 6e 74 65 64 20 75 70 2e 0a 49 6e ┆with a period are counted up. In┆
0x07a0…07c0 74 65 72 61 63 74 69 76 65 6c 79 2c 20 70 72 69 6e 74 20 72 65 73 75 6c 74 20 69 6e 20 65 63 68 ┆teractively, print result in ech┆
0x07c0…07e0 6f 20 61 72 65 61 2e 0a 4e 6f 6e 69 6e 74 65 72 61 63 74 69 76 65 6c 79 2c 20 72 65 74 75 72 6e ┆o area. Noninteractively, return┆
0x07e0…0800 20 6e 75 6d 62 65 72 20 6f 66 20 6e 6f 6e 2d 72 65 71 75 65 73 74 20 6c 69 6e 65 73 20 66 72 6f ┆ number of non-request lines fro┆
0x0800…0820 6d 20 53 54 41 52 54 20 74 6f 20 45 4e 44 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 72 ┆m START to END." (interactive "r┆
0x0820…0840 0a 70 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 88 08 83 10 00 c4 c5 c6 09 0a 5c 22 5c 22 ┆ p") (byte-code " \"\"┆
0x0840…0860 82 23 00 8a 8c c7 09 0a 5c 22 88 65 62 88 c8 20 c9 c8 20 21 5a 29 29 87 22 20 5b 70 72 69 6e 74 ┆ # \" eb !Z)) " [print┆
0x0860…0880 20 73 74 61 72 74 20 65 6e 64 20 6e 69 6c 20 6d 65 73 73 61 67 65 20 22 52 65 67 69 6f 6e 20 68 ┆ start end nil message "Region h┆
0x0880…08a0 61 73 20 25 64 20 74 65 78 74 20 6c 69 6e 65 73 22 20 63 6f 75 6e 74 2d 74 65 78 74 2d 6c 69 6e ┆as %d text lines" count-text-lin┆
0x08a0…08c0 65 73 20 6e 61 72 72 6f 77 2d 74 6f 2d 72 65 67 69 6f 6e 20 62 75 66 66 65 72 2d 73 69 7a 65 20 ┆es narrow-to-region buffer-size ┆
0x08c0…08e0 66 6f 72 77 61 72 64 2d 74 65 78 74 2d 6c 69 6e 65 5d 20 38 29 29 0a 0a 28 64 65 66 75 6e 20 66 ┆forward-text-line] 8)) (defun f┆
0x08e0…0900 6f 72 77 61 72 64 2d 74 65 78 74 2d 6c 69 6e 65 20 28 26 6f 70 74 69 6f 6e 61 6c 20 63 6e 74 29 ┆orward-text-line (&optional cnt)┆
0x0900…0920 20 22 5c 0a 47 6f 20 66 6f 72 77 61 72 64 20 6f 6e 65 20 6e 72 6f 66 66 20 74 65 78 74 20 6c 69 ┆ "\ Go forward one nroff text li┆
0x0920…0940 6e 65 2c 20 73 6b 69 70 70 69 6e 67 20 6c 69 6e 65 73 20 6f 66 20 6e 72 6f 66 66 20 72 65 71 75 ┆ne, skipping lines of nroff requ┆
0x0940…0960 65 73 74 73 2e 0a 41 6e 20 61 72 67 75 6d 65 6e 74 20 69 73 20 61 20 72 65 70 65 61 74 20 63 6f ┆ests. An argument is a repeat co┆
0x0960…0980 75 6e 74 3b 20 69 66 20 6e 65 67 61 74 69 76 65 2c 20 6d 6f 76 65 20 62 61 63 6b 77 61 72 64 2e ┆unt; if negative, move backward.┆
0x0980…09a0 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 70 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 ┆" (interactive "p") (byte-code "┆
0x09a0…09c0 c1 88 08 3f 83 0d 00 c2 89 10 82 0e 00 c1 88 08 c3 56 85 17 00 6d 3f 85 3a 00 c4 c2 21 88 6d 3f ┆ ? V m? : ! m?┆
0x09c0…09e0 85 26 00 c5 c6 21 85 30 00 c4 c2 21 88 82 1e 00 88 08 c2 5a 89 10 88 82 0f 00 88 08 c3 57 85 43 ┆ & ! 0 ! Z W C┆
0x09e0…0a00 00 6f 3f 85 66 00 c4 c7 21 88 6f 3f 85 52 00 c5 c6 21 85 5c 5c 00 c4 c7 21 88 82 4a 00 88 08 c2 ┆ o? f ! o? R ! \\ ! J ┆
0x0a00…0a20 5c 5c 89 10 88 82 3b 00 88 08 87 22 20 5b 63 6e 74 20 6e 69 6c 20 31 20 30 20 66 6f 72 77 61 72 ┆\\ ; " [cnt nil 1 0 forwar┆
0x0a20…0a40 64 2d 6c 69 6e 65 20 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 5c 5c 2e 2e 22 20 2d 31 5d 20 39 29 29 ┆d-line looking-at "\\.." -1] 9))┆
0x0a40…0a60 0a 0a 28 64 65 66 75 6e 20 62 61 63 6b 77 61 72 64 2d 74 65 78 74 2d 6c 69 6e 65 20 28 26 6f 70 ┆ (defun backward-text-line (&op┆
0x0a60…0a80 74 69 6f 6e 61 6c 20 63 6e 74 29 20 22 5c 0a 47 6f 20 62 61 63 6b 77 61 72 64 20 6f 6e 65 20 6e ┆tional cnt) "\ Go backward one n┆
0x0a80…0aa0 72 6f 66 66 20 74 65 78 74 20 6c 69 6e 65 2c 20 73 6b 69 70 70 69 6e 67 20 6c 69 6e 65 73 20 6f ┆roff text line, skipping lines o┆
0x0aa0…0ac0 66 20 6e 72 6f 66 66 20 72 65 71 75 65 73 74 73 2e 0a 41 6e 20 61 72 67 75 6d 65 6e 74 20 69 73 ┆f nroff requests. An argument is┆
0x0ac0…0ae0 20 61 20 72 65 70 65 61 74 20 63 6f 75 6e 74 3b 20 6e 65 67 61 74 69 76 65 20 6d 65 61 6e 73 20 ┆ a repeat count; negative means ┆
0x0ae0…0b00 6d 6f 76 65 20 66 6f 72 77 61 72 64 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 70 22 29 ┆move forward." (interactive "p")┆
0x0b00…0b20 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 c2 08 5b 21 87 22 20 5b 63 6e 74 20 6e 69 6c 20 66 ┆ (byte-code " [! " [cnt nil f┆
0x0b20…0b40 6f 72 77 61 72 64 2d 74 65 78 74 2d 6c 69 6e 65 5d 20 32 29 29 0a 0a 28 64 65 66 63 6f 6e 73 74 ┆orward-text-line] 2)) (defconst┆
0x0b40…0b60 20 6e 72 6f 66 66 2d 62 72 61 63 65 2d 74 61 62 6c 65 20 28 71 75 6f 74 65 20 28 28 22 2e 28 62 ┆ nroff-brace-table (quote ((".(b┆
0x0b60…0b80 22 20 2e 20 22 2e 29 62 22 29 20 28 22 2e 28 6c 22 20 2e 20 22 2e 29 6c 22 29 20 28 22 2e 28 71 ┆" . ".)b") (".(l" . ".)l") (".(q┆
0x0b80…0ba0 22 20 2e 20 22 2e 29 71 22 29 20 28 22 2e 28 63 22 20 2e 20 22 2e 29 63 22 29 20 28 22 2e 28 78 ┆" . ".)q") (".(c" . ".)c") (".(x┆
0x0ba0…0bc0 22 20 2e 20 22 2e 29 78 22 29 20 28 22 2e 28 7a 22 20 2e 20 22 2e 29 7a 22 29 20 28 22 2e 28 64 ┆" . ".)x") (".(z" . ".)z") (".(d┆
0x0bc0…0be0 22 20 2e 20 22 2e 29 64 22 29 20 28 22 2e 28 66 22 20 2e 20 22 2e 29 66 22 29 20 28 22 2e 4c 47 ┆" . ".)d") (".(f" . ".)f") (".LG┆
0x0be0…0c00 22 20 2e 20 22 2e 4e 4c 22 29 20 28 22 2e 53 4d 22 20 2e 20 22 2e 4e 4c 22 29 20 28 22 2e 4c 44 ┆" . ".NL") (".SM" . ".NL") (".LD┆
0x0c00…0c20 22 20 2e 20 22 2e 44 45 22 29 20 28 22 2e 43 44 22 20 2e 20 22 2e 44 45 22 29 20 28 22 2e 42 44 ┆" . ".DE") (".CD" . ".DE") (".BD┆
0x0c20…0c40 22 20 2e 20 22 2e 44 45 22 29 20 28 22 2e 44 53 22 20 2e 20 22 2e 44 45 22 29 20 28 22 2e 46 53 ┆" . ".DE") (".DS" . ".DE") (".FS┆
0x0c40…0c60 22 20 2e 20 22 2e 46 45 22 29 20 28 22 2e 4b 53 22 20 2e 20 22 2e 4b 45 22 29 20 28 22 2e 4b 46 ┆" . ".FE") (".KS" . ".KE") (".KF┆
0x0c60…0c80 22 20 2e 20 22 2e 4b 45 22 29 20 28 22 2e 52 53 22 20 2e 20 22 2e 52 45 22 29 20 28 22 2e 54 53 ┆" . ".KE") (".RS" . ".RE") (".TS┆
0x0c80…0ca0 22 20 2e 20 22 2e 54 45 22 29 20 28 22 2e 45 51 22 20 2e 20 22 2e 45 4e 22 29 20 28 22 2e 50 53 ┆" . ".TE") (".EQ" . ".EN") (".PS┆
0x0ca0…0cc0 22 20 2e 20 22 2e 50 45 22 29 20 28 22 2e 6e 61 22 20 2e 20 22 2e 61 64 20 62 22 29 20 28 22 2e ┆" . ".PE") (".na" . ".ad b") (".┆
0x0cc0…0ce0 6e 66 22 20 2e 20 22 2e 66 69 22 29 20 28 22 2e 64 65 22 20 2e 20 22 2e 2e 22 29 29 29 29 0a 0a ┆nf" . ".fi") (".de" . "..")))) ┆
0x0ce0…0d00 28 64 65 66 75 6e 20 65 6c 65 63 74 72 69 63 2d 6e 72 6f 66 66 2d 6e 65 77 6c 69 6e 65 20 28 61 ┆(defun electric-nroff-newline (a┆
0x0d00…0d20 72 67 29 20 22 5c 0a 49 6e 73 65 72 74 20 6e 65 77 6c 69 6e 65 20 66 6f 72 20 6e 72 6f 66 66 20 ┆rg) "\ Insert newline for nroff ┆
0x0d20…0d40 6d 6f 64 65 3b 20 73 70 65 63 69 61 6c 20 69 66 20 65 6c 65 63 74 72 69 63 2d 6e 72 6f 66 66 20 ┆mode; special if electric-nroff ┆
0x0d40…0d60 6d 6f 64 65 2e 0a 49 6e 20 65 6c 65 63 74 72 69 63 2d 6e 72 6f 66 66 2d 6d 6f 64 65 2c 20 69 66 ┆mode. In electric-nroff-mode, if┆
0x0d60…0d80 20 65 6e 64 69 6e 67 20 61 20 6c 69 6e 65 20 63 6f 6e 74 61 69 6e 69 6e 67 20 61 6e 20 6e 72 6f ┆ ending a line containing an nro┆
0x0d80…0da0 66 66 20 6f 70 65 6e 69 6e 67 20 72 65 71 75 65 73 74 2c 0a 61 75 74 6f 6d 61 74 69 63 61 6c 6c ┆ff opening request, automaticall┆
0x0da0…0dc0 79 20 69 6e 73 65 72 74 73 20 74 68 65 20 6d 61 74 63 68 69 6e 67 20 63 6c 6f 73 69 6e 67 20 72 ┆y inserts the matching closing r┆
0x0dc0…0de0 65 71 75 65 73 74 20 61 66 74 65 72 20 70 6f 69 6e 74 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 ┆equest after point." (interactiv┆
0x0de0…0e00 65 20 22 50 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c4 88 8a c5 20 88 09 3f 85 21 00 0a 85 ┆e "P") (byte-code " ? ! ┆
0x0e00…0e20 21 00 60 64 c6 5a 58 85 21 00 c7 c8 60 c6 60 5c 5c 5c 22 0b 5c 22 41 29 18 08 3f 83 30 00 c9 ca ┆! `d ZX ! ` `\\\" \"A) ? 0 ┆
0x0e20…0e40 09 21 21 82 3b 00 8a cb cc 08 cd 23 29 88 ce cf 21 29 87 22 20 5b 63 6f 6d 70 6c 65 74 69 6f 6e ┆ !! ; #) !) " [completion┆
0x0e40…0e60 20 61 72 67 20 6e 72 6f 66 66 2d 65 6c 65 63 74 72 69 63 2d 6d 6f 64 65 20 6e 72 6f 66 66 2d 62 ┆ arg nroff-electric-mode nroff-b┆
0x0e60…0e80 72 61 63 65 2d 74 61 62 6c 65 20 6e 69 6c 20 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 6c 69 6e 65 ┆race-table nil beginning-of-line┆
0x0e80…0ea0 20 33 20 61 73 73 6f 63 20 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 20 6e 65 77 6c 69 6e ┆ 3 assoc buffer-substring newlin┆
0x0ea0…0ec0 65 20 70 72 65 66 69 78 2d 6e 75 6d 65 72 69 63 2d 76 61 6c 75 65 20 69 6e 73 65 72 74 20 22 0a ┆e prefix-numeric-value insert " ┆
0x0ec0…0ee0 0a 22 20 22 0a 22 20 66 6f 72 77 61 72 64 2d 63 68 61 72 20 31 5d 20 39 29 29 0a 0a 28 64 65 66 ┆ " " " forward-char 1] 9)) (def┆
0x0ee0…0f00 75 6e 20 65 6c 65 63 74 72 69 63 2d 6e 72 6f 66 66 2d 6d 6f 64 65 20 28 61 72 67 29 20 22 5c 0a ┆un electric-nroff-mode (arg) "\ ┆
0x0f00…0f20 54 6f 67 67 6c 65 20 6e 72 6f 66 66 2d 65 6c 65 63 74 72 69 63 2d 6e 65 77 6c 69 6e 65 20 6d 69 ┆Toggle nroff-electric-newline mi┆
0x0f20…0f40 6e 6f 72 20 6d 6f 64 65 0a 4e 72 6f 66 66 2d 65 6c 65 63 74 72 69 63 2d 6e 65 77 6c 69 6e 65 20 ┆nor mode Nroff-electric-newline ┆
0x0f40…0f60 66 6f 72 63 65 73 20 65 6d 61 63 73 20 74 6f 20 63 68 65 63 6b 20 66 6f 72 20 61 6e 20 6e 72 6f ┆forces emacs to check for an nro┆
0x0f60…0f80 66 66 0a 72 65 71 75 65 73 74 20 61 74 20 74 68 65 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20 74 ┆ff request at the beginning of t┆
0x0f80…0fa0 68 65 20 6c 69 6e 65 2c 20 61 6e 64 20 69 6e 73 65 72 74 20 74 68 65 0a 6d 61 74 63 68 69 6e 67 ┆he line, and insert the matching┆
0x0fa0…0fc0 20 63 6c 6f 73 69 6e 67 20 72 65 71 75 65 73 74 20 69 66 20 6e 65 63 65 73 73 61 72 79 2e 20 20 ┆ closing request if necessary. ┆
0x0fc0…0fe0 0a 54 68 69 73 20 63 6f 6d 6d 61 6e 64 20 74 6f 67 67 6c 65 73 20 74 68 61 74 20 6d 6f 64 65 20 ┆ This command toggles that mode ┆
0x0fe0…1000 28 6f 66 66 2d 3e 6f 6e 2c 20 6f 6e 2d 3e 6f 66 66 29 2c 20 0a 77 69 74 68 20 61 6e 20 61 72 67 ┆(off->on, on->off), with an arg┆
0x1000…1020 75 6d 65 6e 74 2c 20 74 75 72 6e 73 20 69 74 20 6f 6e 20 69 66 66 20 61 72 67 20 69 73 20 70 6f ┆ument, turns it on iff arg is po┆
0x1020…1040 73 69 74 69 76 65 2c 20 6f 74 68 65 72 77 69 73 65 20 6f 66 66 2e 22 20 28 69 6e 74 65 72 61 63 ┆sitive, otherwise off." (interac┆
0x1040…1060 74 69 76 65 20 22 50 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c5 88 08 c6 3d 86 0b 00 c7 c8 ┆tive "P") (byte-code " = ┆
0x1060…1080 21 88 c9 c2 09 5c 22 86 1a 00 ca 09 cb 43 5c 22 89 11 88 0b 3f 83 25 00 0a 3f 82 2e 00 c4 85 2e ┆! \" C\" ? % ? . .┆
0x1080…10a0 00 cc 0b 21 cd 56 89 12 87 22 20 5b 6d 61 6a 6f 72 2d 6d 6f 64 65 20 6d 69 6e 6f 72 2d 6d 6f 64 ┆ ! V " [major-mode minor-mod┆
0x10a0…10c0 65 2d 61 6c 69 73 74 20 6e 72 6f 66 66 2d 65 6c 65 63 74 72 69 63 2d 6d 6f 64 65 20 61 72 67 20 ┆e-alist nroff-electric-mode arg ┆
0x10c0…10e0 74 20 6e 69 6c 20 6e 72 6f 66 66 2d 6d 6f 64 65 20 65 72 72 6f 72 20 22 4d 75 73 74 20 62 65 20 ┆t nil nroff-mode error "Must be ┆
0x10e0…1100 69 6e 20 6e 72 6f 66 66 20 6d 6f 64 65 22 20 61 73 73 71 20 61 70 70 65 6e 64 20 28 6e 72 6f 66 ┆in nroff mode" assq append (nrof┆
0x1100…1120 66 2d 65 6c 65 63 74 72 69 63 2d 6d 6f 64 65 20 22 20 45 6c 65 63 74 72 69 63 22 29 20 70 72 65 ┆f-electric-mode " Electric") pre┆
0x1120…1139 66 69 78 2d 6e 75 6d 65 72 69 63 2d 76 61 6c 75 65 20 30 5d 20 36 29 29 0a ┆fix-numeric-value 0] 6)) ┆