![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to nroff-mode.el CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSDReno / contrib / emacs-18.55 / lisp|
Return to nroff-mode.el CVS log | Up to [CSRG BSD Unix] / 43BSDReno / contrib / emacs-18.55 / lisp |
1.1 ! root 1: ;; GNU Emacs major mode for editing nroff source ! 2: ;; Copyright (C) 1985, 1986 Free Software Foundation, Inc. ! 3: ! 4: ;; This file is part of GNU Emacs. ! 5: ! 6: ;; GNU Emacs is distributed in the hope that it will be useful, ! 7: ;; but WITHOUT ANY WARRANTY. No author or distributor ! 8: ;; accepts responsibility to anyone for the consequences of using it ! 9: ;; or for whether it serves any particular purpose or works at all, ! 10: ;; unless he says so in writing. Refer to the GNU Emacs General Public ! 11: ;; License for full details. ! 12: ! 13: ;; Everyone is granted permission to copy, modify and redistribute ! 14: ;; GNU Emacs, but only under the conditions described in the ! 15: ;; GNU Emacs General Public License. A copy of this license is ! 16: ;; supposed to have been given to you along with GNU Emacs so you ! 17: ;; can know your rights and responsibilities. It should be in a ! 18: ;; file named COPYING. Among other things, the copyright notice ! 19: ;; and this notice must be preserved on all copies. ! 20: ! 21: ! 22: ! 23: (defvar nroff-mode-abbrev-table nil ! 24: "Abbrev table used while in nroff mode.") ! 25: ! 26: (defvar nroff-mode-map nil ! 27: "Major mode keymap for nroff-mode buffers") ! 28: (if (not nroff-mode-map) ! 29: (progn ! 30: (setq nroff-mode-map (make-sparse-keymap)) ! 31: (define-key nroff-mode-map "\t" 'tab-to-tab-stop) ! 32: (define-key nroff-mode-map "\es" 'center-line) ! 33: (define-key nroff-mode-map "\e?" 'count-text-lines) ! 34: (define-key nroff-mode-map "\n" 'electric-nroff-newline) ! 35: (define-key nroff-mode-map "\en" 'forward-text-line) ! 36: (define-key nroff-mode-map "\ep" 'backward-text-line))) ! 37: ! 38: (defun nroff-mode () ! 39: "Major mode for editing text intended for nroff to format. ! 40: \\{nroff-mode-map} ! 41: Turning on Nroff mode runs text-mode-hook, then nroff-mode-hook. ! 42: Also, try nroff-electric-mode, for automatically inserting ! 43: closing requests for requests that are used in matched pairs." ! 44: (interactive) ! 45: (kill-all-local-variables) ! 46: (use-local-map nroff-mode-map) ! 47: (setq mode-name "Nroff") ! 48: (setq major-mode 'nroff-mode) ! 49: (set-syntax-table text-mode-syntax-table) ! 50: (setq local-abbrev-table nroff-mode-abbrev-table) ! 51: (make-local-variable 'nroff-electric-mode) ! 52: ;; now define a bunch of variables for use by commands in this mode ! 53: (make-local-variable 'page-delimiter) ! 54: (setq page-delimiter "^\\.\\(bp\\|SK\\|OP\\)") ! 55: (make-local-variable 'paragraph-start) ! 56: (setq paragraph-start (concat "^[.']\\|" paragraph-start)) ! 57: (make-local-variable 'paragraph-separate) ! 58: (setq paragraph-separate (concat "^[.']\\|" paragraph-separate)) ! 59: ;; comment syntax added by mit-erl!gildea 18 Apr 86 ! 60: (make-local-variable 'comment-start) ! 61: (setq comment-start "\\\" ") ! 62: (make-local-variable 'comment-start-skip) ! 63: (setq comment-start-skip "\\\\\"[ \t]*") ! 64: (make-local-variable 'comment-column) ! 65: (setq comment-column 24) ! 66: (make-local-variable 'comment-indent-hook) ! 67: (setq comment-indent-hook 'nroff-comment-indent) ! 68: (run-hooks 'text-mode-hook 'nroff-mode-hook)) ! 69: ! 70: ;;; Compute how much to indent a comment in nroff/troff source. ! 71: ;;; By mit-erl!gildea April 86 ! 72: (defun nroff-comment-indent () ! 73: "Compute indent for an nroff/troff comment. ! 74: Puts a full-stop before comments on a line by themselves." ! 75: (let ((pt (point))) ! 76: (unwind-protect ! 77: (progn ! 78: (skip-chars-backward " \t") ! 79: (if (bolp) ! 80: (progn ! 81: (setq pt (1+ pt)) ! 82: (insert ?.) ! 83: 1) ! 84: (if (save-excursion ! 85: (backward-char 1) ! 86: (looking-at "^[.']")) ! 87: 1 ! 88: (max comment-column ! 89: (* 8 (/ (+ (current-column) ! 90: 9) 8)))))) ; add 9 to ensure at least two blanks ! 91: (goto-char pt)))) ! 92: ! 93: (defun count-text-lines (start end &optional print) ! 94: "Count lines in region, except for nroff request lines. ! 95: All lines not starting with a period are counted up. ! 96: Interactively, print result in echo area. ! 97: Noninteractively, return number of non-request lines from START to END." ! 98: (interactive "r\np") ! 99: (if print ! 100: (message "Region has %d text lines" (count-text-lines start end)) ! 101: (save-excursion ! 102: (save-restriction ! 103: (narrow-to-region start end) ! 104: (goto-char (point-min)) ! 105: (- (buffer-size) (forward-text-line (buffer-size))))))) ! 106: ! 107: (defun forward-text-line (&optional cnt) ! 108: "Go forward one nroff text line, skipping lines of nroff requests. ! 109: An argument is a repeat count; if negative, move backward." ! 110: (interactive "p") ! 111: (if (not cnt) (setq cnt 1)) ! 112: (while (and (> cnt 0) (not (eobp))) ! 113: (forward-line 1) ! 114: (while (and (not (eobp)) (looking-at "[.'].")) ! 115: (forward-line 1)) ! 116: (setq cnt (- cnt 1))) ! 117: (while (and (< cnt 0) (not (bobp))) ! 118: (forward-line -1) ! 119: (while (and (not (bobp)) ! 120: (looking-at "[.'].")) ! 121: (forward-line -1)) ! 122: (setq cnt (+ cnt 1))) ! 123: cnt) ! 124: ! 125: (defun backward-text-line (&optional cnt) ! 126: "Go backward one nroff text line, skipping lines of nroff requests. ! 127: An argument is a repeat count; negative means move forward." ! 128: (interactive "p") ! 129: (forward-text-line (- cnt))) ! 130: ! 131: (defconst nroff-brace-table ! 132: '((".(b" . ".)b") ! 133: (".(l" . ".)l") ! 134: (".(q" . ".)q") ! 135: (".(c" . ".)c") ! 136: (".(x" . ".)x") ! 137: (".(z" . ".)z") ! 138: (".(d" . ".)d") ! 139: (".(f" . ".)f") ! 140: (".LG" . ".NL") ! 141: (".SM" . ".NL") ! 142: (".LD" . ".DE") ! 143: (".CD" . ".DE") ! 144: (".BD" . ".DE") ! 145: (".DS" . ".DE") ! 146: (".DF" . ".DE") ! 147: (".FS" . ".FE") ! 148: (".KS" . ".KE") ! 149: (".KF" . ".KE") ! 150: (".LB" . ".LE") ! 151: (".AL" . ".LE") ! 152: (".BL" . ".LE") ! 153: (".DL" . ".LE") ! 154: (".ML" . ".LE") ! 155: (".RL" . ".LE") ! 156: (".VL" . ".LE") ! 157: (".RS" . ".RE") ! 158: (".TS" . ".TE") ! 159: (".EQ" . ".EN") ! 160: (".PS" . ".PE") ! 161: (".BS" . ".BE") ! 162: (".G1" . ".G2") ; grap ! 163: (".na" . ".ad b") ! 164: (".nf" . ".fi") ! 165: (".de" . ".."))) ! 166: ! 167: (defun electric-nroff-newline (arg) ! 168: "Insert newline for nroff mode; special if electric-nroff mode. ! 169: In electric-nroff-mode, if ending a line containing an nroff opening request, ! 170: automatically inserts the matching closing request after point." ! 171: (interactive "P") ! 172: (let ((completion (save-excursion ! 173: (beginning-of-line) ! 174: (and (null arg) ! 175: nroff-electric-mode ! 176: (<= (point) (- (point-max) 3)) ! 177: (cdr (assoc (buffer-substring (point) ! 178: (+ 3 (point))) ! 179: nroff-brace-table))))) ! 180: (needs-nl (not (looking-at "[ \t]*$")))) ! 181: (if (null completion) ! 182: (newline (prefix-numeric-value arg)) ! 183: (save-excursion ! 184: (insert "\n\n" completion) ! 185: (if needs-nl (insert "\n"))) ! 186: (forward-char 1)))) ! 187: ! 188: (defun electric-nroff-mode (&optional arg) ! 189: "Toggle nroff-electric-newline minor mode ! 190: Nroff-electric-newline forces emacs to check for an nroff ! 191: request at the beginning of the line, and insert the ! 192: matching closing request if necessary. ! 193: This command toggles that mode (off->on, on->off), ! 194: with an argument, turns it on iff arg is positive, otherwise off." ! 195: (interactive "P") ! 196: (or (eq major-mode 'nroff-mode) (error "Must be in nroff mode")) ! 197: (or (assq 'nroff-electric-mode minor-mode-alist) ! 198: (setq minor-mode-alist (append minor-mode-alist ! 199: (list '(nroff-electric-mode ! 200: " Electric"))))) ! 201: (setq nroff-electric-mode ! 202: (cond ((null arg) (null nroff-electric-mode)) ! 203: (t (> (prefix-numeric-value arg) 0))))) ! 204:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.