|
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 - metrics - downloadIndex: n
Length: 4631 (0x1217)
Names: »nroff-mode.elc«
└─⟦a05ed705a⟧ Bits:30007078 DKUUG GNU 2/12/89
└─⟦46d41b2d0⟧ »./emacs-18.55.tar.Z«
└─⟦fa971747f⟧
└─⟦this⟧ »dist-18.55/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 5c 5c 28 62 70 5c 5c 7c 53 4b 5c 5c 7c 4f 50 5c 5c 29 22 20 22 5e 5b 2e 27 5d 5c ┆"^\\.\\(bp\\|SK\\|OP\\)" "^[.']\┆
0x0560…0580 5c 7c 22 20 22 5c 5c 5c 22 20 22 20 22 5c 5c 5c 5c 5c 22 5b 20 09 5d 2a 22 20 32 34 20 6e 72 6f ┆\|" "\\\" " "\\\\\"[ ]*" 24 nro┆
0x0580…05a0 66 66 2d 63 6f 6d 6d 65 6e 74 2d 69 6e 64 65 6e 74 20 72 75 6e 2d 68 6f 6f 6b 73 20 74 65 78 74 ┆ff-comment-indent run-hooks text┆
0x05a0…05c0 2d 6d 6f 64 65 2d 68 6f 6f 6b 20 6e 72 6f 66 66 2d 6d 6f 64 65 2d 68 6f 6f 6b 5d 20 31 34 29 29 ┆-mode-hook nroff-mode-hook] 14))┆
0x05c0…05e0 0a 0a 28 64 65 66 75 6e 20 6e 72 6f 66 66 2d 63 6f 6d 6d 65 6e 74 2d 69 6e 64 65 6e 74 20 6e 69 ┆ (defun nroff-comment-indent ni┆
0x05e0…0600 6c 20 22 5c 0a 43 6f 6d 70 75 74 65 20 69 6e 64 65 6e 74 20 66 6f 72 20 61 6e 20 6e 72 6f 66 66 ┆l "\ Compute indent for an nroff┆
0x0600…0620 2f 74 72 6f 66 66 20 63 6f 6d 6d 65 6e 74 2e 0a 50 75 74 73 20 61 20 66 75 6c 6c 2d 73 74 6f 70 ┆/troff comment. Puts a full-stop┆
0x0620…0640 20 62 65 66 6f 72 65 20 63 6f 6d 6d 65 6e 74 73 20 6f 6e 20 61 20 6c 69 6e 65 20 62 79 20 74 68 ┆ before comments on a line by th┆
0x0640…0660 65 6d 73 65 6c 76 65 73 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 60 18 c2 8e c3 c4 21 88 6e ┆emselves." (byte-code "` ! n┆
0x0660…0680 83 18 00 08 54 89 10 88 c5 63 88 c6 82 33 00 8a c7 c6 21 88 c8 c9 21 29 83 28 00 c6 82 33 00 09 ┆ T c 3 ! !) ( 3 ┆
0x0680…06a0 ca cb cc 69 cd 5c 5c cb 5c 22 5c 22 5d 29 29 87 22 20 5b 70 74 20 63 6f 6d 6d 65 6e 74 2d 63 6f ┆ i \\ \"\"])) " [pt comment-co┆
0x06a0…06c0 6c 75 6d 6e 20 28 28 62 79 74 65 2d 63 6f 64 65 20 22 08 62 87 22 20 5b 70 74 5d 20 31 29 29 20 ┆lumn ((byte-code " b " [pt] 1)) ┆
0x06c0…06e0 73 6b 69 70 2d 63 68 61 72 73 2d 62 61 63 6b 77 61 72 64 20 22 20 09 22 20 34 36 20 31 20 62 61 ┆skip-chars-backward " " 46 1 ba┆
0x06e0…0700 63 6b 77 61 72 64 2d 63 68 61 72 20 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 5e 5b 2e 27 5d 22 20 2a ┆ckward-char looking-at "^[.']" *┆
0x0700…0720 20 38 20 2f 20 39 5d 20 39 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 74 2d 74 65 78 74 2d 6c ┆ 8 / 9] 9)) (defun count-text-l┆
0x0720…0740 69 6e 65 73 20 28 73 74 61 72 74 20 65 6e 64 20 26 6f 70 74 69 6f 6e 61 6c 20 70 72 69 6e 74 29 ┆ines (start end &optional print)┆
0x0740…0760 20 22 5c 0a 43 6f 75 6e 74 20 6c 69 6e 65 73 20 69 6e 20 72 65 67 69 6f 6e 2c 20 65 78 63 65 70 ┆ "\ Count lines in region, excep┆
0x0760…0780 74 20 66 6f 72 20 6e 72 6f 66 66 20 72 65 71 75 65 73 74 20 6c 69 6e 65 73 2e 0a 41 6c 6c 20 6c ┆t for nroff request lines. All l┆
0x0780…07a0 69 6e 65 73 20 6e 6f 74 20 73 74 61 72 74 69 6e 67 20 77 69 74 68 20 61 20 70 65 72 69 6f 64 20 ┆ines not starting with a period ┆
0x07a0…07c0 61 72 65 20 63 6f 75 6e 74 65 64 20 75 70 2e 0a 49 6e 74 65 72 61 63 74 69 76 65 6c 79 2c 20 70 ┆are counted up. Interactively, p┆
0x07c0…07e0 72 69 6e 74 20 72 65 73 75 6c 74 20 69 6e 20 65 63 68 6f 20 61 72 65 61 2e 0a 4e 6f 6e 69 6e 74 ┆rint result in echo area. Nonint┆
0x07e0…0800 65 72 61 63 74 69 76 65 6c 79 2c 20 72 65 74 75 72 6e 20 6e 75 6d 62 65 72 20 6f 66 20 6e 6f 6e ┆eractively, return number of non┆
0x0800…0820 2d 72 65 71 75 65 73 74 20 6c 69 6e 65 73 20 66 72 6f 6d 20 53 54 41 52 54 20 74 6f 20 45 4e 44 ┆-request lines from START to END┆
0x0820…0840 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 72 0a 70 22 29 20 28 62 79 74 65 2d 63 6f 64 ┆." (interactive "r p") (byte-cod┆
0x0840…0860 65 20 22 c3 88 08 83 10 00 c4 c5 c6 09 0a 5c 22 5c 22 82 23 00 8a 8c c7 09 0a 5c 22 88 65 62 88 ┆e " \"\" # \" eb ┆
0x0860…0880 c8 20 c9 c8 20 21 5a 29 29 87 22 20 5b 70 72 69 6e 74 20 73 74 61 72 74 20 65 6e 64 20 6e 69 6c ┆ !Z)) " [print start end nil┆
0x0880…08a0 20 6d 65 73 73 61 67 65 20 22 52 65 67 69 6f 6e 20 68 61 73 20 25 64 20 74 65 78 74 20 6c 69 6e ┆ message "Region has %d text lin┆
0x08a0…08c0 65 73 22 20 63 6f 75 6e 74 2d 74 65 78 74 2d 6c 69 6e 65 73 20 6e 61 72 72 6f 77 2d 74 6f 2d 72 ┆es" count-text-lines narrow-to-r┆
0x08c0…08e0 65 67 69 6f 6e 20 62 75 66 66 65 72 2d 73 69 7a 65 20 66 6f 72 77 61 72 64 2d 74 65 78 74 2d 6c ┆egion buffer-size forward-text-l┆
0x08e0…0900 69 6e 65 5d 20 38 29 29 0a 0a 28 64 65 66 75 6e 20 66 6f 72 77 61 72 64 2d 74 65 78 74 2d 6c 69 ┆ine] 8)) (defun forward-text-li┆
0x0900…0920 6e 65 20 28 26 6f 70 74 69 6f 6e 61 6c 20 63 6e 74 29 20 22 5c 0a 47 6f 20 66 6f 72 77 61 72 64 ┆ne (&optional cnt) "\ Go forward┆
0x0920…0940 20 6f 6e 65 20 6e 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 ┆ one nroff text line, skipping l┆
0x0940…0960 69 6e 65 73 20 6f 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 ┆ines of nroff requests. An argum┆
0x0960…0980 65 6e 74 20 69 73 20 61 20 72 65 70 65 61 74 20 63 6f 75 6e 74 3b 20 69 66 20 6e 65 67 61 74 69 ┆ent is a repeat count; if negati┆
0x0980…09a0 76 65 2c 20 6d 6f 76 65 20 62 61 63 6b 77 61 72 64 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 ┆ve, move backward." (interactive┆
0x09a0…09c0 20 22 70 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 08 3f 85 0a 00 c2 89 10 88 08 c3 56 ┆ "p") (byte-code " ? V┆
0x09c0…09e0 85 13 00 6d 3f 85 36 00 c4 c2 21 88 6d 3f 85 5c 22 00 c5 c6 21 85 2c 00 c4 c2 21 88 82 1a 00 88 ┆ m? 6 ! m? \" ! , ! ┆
0x09e0…0a00 08 c2 5a 89 10 88 82 0b 00 88 08 c3 57 85 3f 00 6f 3f 85 62 00 c4 c7 21 88 6f 3f 85 4e 00 c5 c6 ┆ Z W ? o? b ! o? N ┆
0x0a00…0a20 21 85 58 00 c4 c7 21 88 82 46 00 88 08 c2 5c 5c 89 10 88 82 37 00 88 08 87 22 20 5b 63 6e 74 20 ┆! X ! F \\ 7 " [cnt ┆
0x0a20…0a40 6e 69 6c 20 31 20 30 20 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 6c 6f 6f 6b 69 6e 67 2d 61 74 20 ┆nil 1 0 forward-line looking-at ┆
0x0a40…0a60 22 5b 2e 27 5d 2e 22 20 2d 31 5d 20 39 29 29 0a 0a 28 64 65 66 75 6e 20 62 61 63 6b 77 61 72 64 ┆"[.']." -1] 9)) (defun backward┆
0x0a60…0a80 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 20 22 5c 0a 47 6f ┆-text-line (&optional cnt) "\ Go┆
0x0a80…0aa0 20 62 61 63 6b 77 61 72 64 20 6f 6e 65 20 6e 72 6f 66 66 20 74 65 78 74 20 6c 69 6e 65 2c 20 73 ┆ backward one nroff text line, s┆
0x0aa0…0ac0 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 65 73 74 73 2e ┆kipping lines of nroff requests.┆
0x0ac0…0ae0 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 75 6e 74 3b 20 ┆ An argument is a repeat count; ┆
0x0ae0…0b00 6e 65 67 61 74 69 76 65 20 6d 65 61 6e 73 20 6d 6f 76 65 20 66 6f 72 77 61 72 64 2e 22 20 28 69 ┆negative means move forward." (i┆
0x0b00…0b20 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 c1 88 c2 08 ┆nteractive "p") (byte-code " ┆
0x0b20…0b40 5b 21 87 22 20 5b 63 6e 74 20 6e 69 6c 20 66 6f 72 77 61 72 64 2d 74 65 78 74 2d 6c 69 6e 65 5d ┆[! " [cnt nil forward-text-line]┆
0x0b40…0b60 20 32 29 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 6e 72 6f 66 66 2d 62 72 61 63 65 2d 74 61 62 6c ┆ 2)) (defconst nroff-brace-tabl┆
0x0b60…0b80 65 20 28 71 75 6f 74 65 20 28 28 22 2e 28 62 22 20 2e 20 22 2e 29 62 22 29 20 28 22 2e 28 6c 22 ┆e (quote ((".(b" . ".)b") (".(l"┆
0x0b80…0ba0 20 2e 20 22 2e 29 6c 22 29 20 28 22 2e 28 71 22 20 2e 20 22 2e 29 71 22 29 20 28 22 2e 28 63 22 ┆ . ".)l") (".(q" . ".)q") (".(c"┆
0x0ba0…0bc0 20 2e 20 22 2e 29 63 22 29 20 28 22 2e 28 78 22 20 2e 20 22 2e 29 78 22 29 20 28 22 2e 28 7a 22 ┆ . ".)c") (".(x" . ".)x") (".(z"┆
0x0bc0…0be0 20 2e 20 22 2e 29 7a 22 29 20 28 22 2e 28 64 22 20 2e 20 22 2e 29 64 22 29 20 28 22 2e 28 66 22 ┆ . ".)z") (".(d" . ".)d") (".(f"┆
0x0be0…0c00 20 2e 20 22 2e 29 66 22 29 20 28 22 2e 4c 47 22 20 2e 20 22 2e 4e 4c 22 29 20 28 22 2e 53 4d 22 ┆ . ".)f") (".LG" . ".NL") (".SM"┆
0x0c00…0c20 20 2e 20 22 2e 4e 4c 22 29 20 28 22 2e 4c 44 22 20 2e 20 22 2e 44 45 22 29 20 28 22 2e 43 44 22 ┆ . ".NL") (".LD" . ".DE") (".CD"┆
0x0c20…0c40 20 2e 20 22 2e 44 45 22 29 20 28 22 2e 42 44 22 20 2e 20 22 2e 44 45 22 29 20 28 22 2e 44 53 22 ┆ . ".DE") (".BD" . ".DE") (".DS"┆
0x0c40…0c60 20 2e 20 22 2e 44 45 22 29 20 28 22 2e 44 46 22 20 2e 20 22 2e 44 45 22 29 20 28 22 2e 46 53 22 ┆ . ".DE") (".DF" . ".DE") (".FS"┆
0x0c60…0c80 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 22 ┆ . ".FE") (".KS" . ".KE") (".KF"┆
0x0c80…0ca0 20 2e 20 22 2e 4b 45 22 29 20 28 22 2e 4c 42 22 20 2e 20 22 2e 4c 45 22 29 20 28 22 2e 41 4c 22 ┆ . ".KE") (".LB" . ".LE") (".AL"┆
0x0ca0…0cc0 20 2e 20 22 2e 4c 45 22 29 20 28 22 2e 42 4c 22 20 2e 20 22 2e 4c 45 22 29 20 28 22 2e 44 4c 22 ┆ . ".LE") (".BL" . ".LE") (".DL"┆
0x0cc0…0ce0 20 2e 20 22 2e 4c 45 22 29 20 28 22 2e 4d 4c 22 20 2e 20 22 2e 4c 45 22 29 20 28 22 2e 52 4c 22 ┆ . ".LE") (".ML" . ".LE") (".RL"┆
0x0ce0…0d00 20 2e 20 22 2e 4c 45 22 29 20 28 22 2e 56 4c 22 20 2e 20 22 2e 4c 45 22 29 20 28 22 2e 52 53 22 ┆ . ".LE") (".VL" . ".LE") (".RS"┆
0x0d00…0d20 20 2e 20 22 2e 52 45 22 29 20 28 22 2e 54 53 22 20 2e 20 22 2e 54 45 22 29 20 28 22 2e 45 51 22 ┆ . ".RE") (".TS" . ".TE") (".EQ"┆
0x0d20…0d40 20 2e 20 22 2e 45 4e 22 29 20 28 22 2e 50 53 22 20 2e 20 22 2e 50 45 22 29 20 28 22 2e 42 53 22 ┆ . ".EN") (".PS" . ".PE") (".BS"┆
0x0d40…0d60 20 2e 20 22 2e 42 45 22 29 20 28 22 2e 47 31 22 20 2e 20 22 2e 47 32 22 29 20 28 22 2e 6e 61 22 ┆ . ".BE") (".G1" . ".G2") (".na"┆
0x0d60…0d80 20 2e 20 22 2e 61 64 20 62 22 29 20 28 22 2e 6e 66 22 20 2e 20 22 2e 66 69 22 29 20 28 22 2e 64 ┆ . ".ad b") (".nf" . ".fi") (".d┆
0x0d80…0da0 65 22 20 2e 20 22 2e 2e 22 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 65 6c 65 63 74 72 69 63 2d 6e ┆e" . "..")))) (defun electric-n┆
0x0da0…0dc0 72 6f 66 66 2d 6e 65 77 6c 69 6e 65 20 28 61 72 67 29 20 22 5c 0a 49 6e 73 65 72 74 20 6e 65 77 ┆roff-newline (arg) "\ Insert new┆
0x0dc0…0de0 6c 69 6e 65 20 66 6f 72 20 6e 72 6f 66 66 20 6d 6f 64 65 3b 20 73 70 65 63 69 61 6c 20 69 66 20 ┆line for nroff mode; special if ┆
0x0de0…0e00 65 6c 65 63 74 72 69 63 2d 6e 72 6f 66 66 20 6d 6f 64 65 2e 0a 49 6e 20 65 6c 65 63 74 72 69 63 ┆electric-nroff mode. In electric┆
0x0e00…0e20 2d 6e 72 6f 66 66 2d 6d 6f 64 65 2c 20 69 66 20 65 6e 64 69 6e 67 20 61 20 6c 69 6e 65 20 63 6f ┆-nroff-mode, if ending a line co┆
0x0e20…0e40 6e 74 61 69 6e 69 6e 67 20 61 6e 20 6e 72 6f 66 66 20 6f 70 65 6e 69 6e 67 20 72 65 71 75 65 73 ┆ntaining an nroff opening reques┆
0x0e40…0e60 74 2c 0a 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 20 69 6e 73 65 72 74 73 20 74 68 65 20 6d 61 74 ┆t, automatically inserts the mat┆
0x0e60…0e80 63 68 69 6e 67 20 63 6c 6f 73 69 6e 67 20 72 65 71 75 65 73 74 20 61 66 74 65 72 20 70 6f 69 6e ┆ching closing request after poin┆
0x0e80…0ea0 74 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 50 22 29 20 28 62 79 74 65 2d 63 6f 64 65 ┆t." (interactive "P") (byte-code┆
0x0ea0…0ec0 20 22 c5 88 8a c6 20 88 09 3f 85 21 00 0a 85 21 00 60 64 c7 5a 58 85 21 00 c8 c9 60 c7 60 5c 5c ┆ " ? ! ! `d ZX ! ` `\\┆
0x0ec0…0ee0 5c 22 0b 5c 22 41 29 ca cb 21 3f 1c 18 08 3f 83 35 00 cc cd 09 21 21 82 46 00 8a ce cf 08 5c 22 ┆\" \"A) !? ? 5 !! F \"┆
0x0ee0…0f00 88 0c 85 41 00 d0 63 29 88 d1 d2 21 2a 87 22 20 5b 63 6f 6d 70 6c 65 74 69 6f 6e 20 61 72 67 20 ┆ A c) !* " [completion arg ┆
0x0f00…0f20 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 72 61 63 65 2d ┆nroff-electric-mode nroff-brace-┆
0x0f20…0f40 74 61 62 6c 65 20 6e 65 65 64 73 2d 6e 6c 20 6e 69 6c 20 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d ┆table needs-nl nil beginning-of-┆
0x0f40…0f60 6c 69 6e 65 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 6c 6f ┆line 3 assoc buffer-substring lo┆
0x0f60…0f80 6f 6b 69 6e 67 2d 61 74 20 22 5b 20 09 5d 2a 24 22 20 6e 65 77 6c 69 6e 65 20 70 72 65 66 69 78 ┆oking-at "[ ]*$" newline prefix┆
0x0f80…0fa0 2d 6e 75 6d 65 72 69 63 2d 76 61 6c 75 65 20 69 6e 73 65 72 74 20 22 0a 0a 22 20 22 0a 22 20 66 ┆-numeric-value insert " " " " f┆
0x0fa0…0fc0 6f 72 77 61 72 64 2d 63 68 61 72 20 31 5d 20 39 29 29 0a 0a 28 64 65 66 75 6e 20 65 6c 65 63 74 ┆orward-char 1] 9)) (defun elect┆
0x0fc0…0fe0 72 69 63 2d 6e 72 6f 66 66 2d 6d 6f 64 65 20 28 26 6f 70 74 69 6f 6e 61 6c 20 61 72 67 29 20 22 ┆ric-nroff-mode (&optional arg) "┆
0x0fe0…1000 5c 0a 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 ┆\ Toggle nroff-electric-newline ┆
0x1000…1020 6d 69 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 ┆minor mode Nroff-electric-newlin┆
0x1020…1040 65 20 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 ┆e forces emacs to check for an n┆
0x1040…1060 72 6f 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 ┆roff request at the beginning of┆
0x1060…1080 20 74 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 ┆ the line, and insert the matchi┆
0x1080…10a0 6e 67 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 ┆ng closing request if necessary.┆
0x10a0…10c0 20 20 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 ┆ This command toggles that mod┆
0x10c0…10e0 65 20 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 ┆e (off->on, on->off), with an a┆
0x10e0…1100 72 67 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 ┆rgument, turns it on iff arg is ┆
0x1100…1120 70 6f 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 ┆positive, otherwise off." (inter┆
0x1120…1140 61 63 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 ┆active "P") (byte-code " = ┆
0x1140…1160 c7 c8 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 2a 00 cc ┆ ! \" C\" ? % ? * ┆
0x1160…1180 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 65 2d ┆ ! V " [major-mode minor-mode-┆
0x1180…11a0 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 74 20 ┆alist nroff-electric-mode arg t ┆
0x11a0…11c0 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 69 6e ┆nil nroff-mode error "Must be in┆
0x11c0…11e0 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 66 2d ┆ nroff mode" assq append (nroff-┆
0x11e0…1200 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 66 69 ┆electric-mode " Electric") prefi┆
0x1200…1217 78 2d 6e 75 6d 65 72 69 63 2d 76 61 6c 75 65 20 30 5d 20 36 29 29 0a ┆x-numeric-value 0] 6)) ┆