;ELC ;;; Compiled by kwzh@gnu.org on Fri Apr 10 04:22:45 1998 ;;; from file /home/gd/gnu/emacs/lisp/textmodes/nroff-mode.el ;;; in Emacs version 20.2.91.1 ;;; with bytecomp version 2.38 ;;; with all optimizations. ;;; This file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`nroff-mode.el' was compiled for Emacs 19.29 or later")) (custom-declare-group 'nroff nil "Nroff mode." :group 'wp :prefix "nroff-") #@40 Abbrev table used while in nroff mode. (defvar nroff-mode-abbrev-table nil (#$ . 618)) (define-abbrev-table 'nroff-mode-abbrev-table nil) #@72 *Non-nil means automatically closing requests when you insert an open. (custom-declare-variable 'nroff-electric-mode 'nil '(#$ . -762) :group 'nroff :type 'boolean) #@35 Major mode keymap for nroff mode. (defvar nroff-mode-map nil (#$ . 933)) (byte-code "„+Á ÂÃÄ#ˆÂÅÆ#ˆÂÇÈ#ˆÂÉÊ#ˆÂËÌ#ˆÂÍÎ#ˆÁ‡" [nroff-mode-map make-sparse-keymap define-key " " tab-to-tab-stop "s" center-line "?" count-text-lines "\n" electric-nroff-newline "n" forward-text-line "p" backward-text-line] 4) #@40 Syntax table used while in nroff mode. (defvar nroff-mode-syntax-table nil (#$ . 1255)) #@47 Font-lock highlighting control in nroff-mode. (custom-declare-variable 'nroff-font-lock-keywords '(list "^[.']\\s-*\\sw+" (concat "\\\\" "\\(" (mapconcat 'identity '("[f*n]*\\[.+]" "(.." "[^(\"]") "\\|") "\\)")) '(#$ . 1349) :group 'nroff :type '(repeat regexp)) #@269 Major mode for editing text intended for nroff to format. \{nroff-mode-map} Turning on Nroff mode runs `text-mode-hook', then `nroff-mode-hook'. Also, try `nroff-electric-mode', for automatically inserting closing requests for requests that are used in matched pairs. (defalias 'nroff-mode #[nil "Æ ˆÇ!ˆÈÉ „%Ê\f!ËÌÍ #ˆËÎÏ #ˆËÐÑ #ˆÒ !ˆÓÅ!ˆÔ+,ÓÕ!ˆÖÓ×!ˆØÓÙ!ˆÚÓÛ!ˆÜÓÝ!ˆÞPÓß!ˆÞPÓà!ˆá Óâ!ˆã\"Óä!ˆå$Óæ!ˆç&èéê\"‡" [nroff-mode-map mode-name major-mode nroff-mode-syntax-table text-mode-syntax-table font-lock-defaults kill-all-local-variables use-local-map "Nroff" nroff-mode copy-syntax-table modify-syntax-entry 34 "\" 2" 92 "\\ 1" 10 "> 1" set-syntax-table make-local-variable (nroff-font-lock-keywords nil t) nroff-electric-mode nil outline-regexp "\\.H[ ]+[1-7]+ " outline-level nroff-outline-level page-delimiter "^\\.\\(bp\\|SK\\|OP\\)" paragraph-start "[.']\\|" paragraph-separate comment-start "\\\" " comment-start-skip "\\\\\"[ ]*" comment-column 24 comment-indent-function nroff-comment-indent run-hooks text-mode-hook nroff-mode-hook nroff-mode-abbrev-table local-abbrev-table] 4 (#$ . 1619) nil]) (defalias 'nroff-outline-level #[nil "ŠÁ!ˆÂÃwˆÄ``T{!)‡" [outline-regexp looking-at ".H " nil string-to-int] 3]) #@102 Compute indent for an nroff/troff comment. Puts a full-stop before comments on a line by themselves. (defalias 'nroff-comment-indent #[nil "`ÂŽÃÄxˆnƒTÅcˆÆ‚/ŠÇÆ!ˆÈÉ!)ƒ&Æ‚/ iÊ\\Ë¥Ë_]*‡" [pt comment-column ((goto-char pt)) " " nil 46 1 backward-char looking-at "^[.']" 9 8] 3 (#$ . 2873)]) #@223 Count lines in region, except for nroff request lines. All lines not starting with a period are counted up. Interactively, print result in echo area. Noninteractively, return number of non-request lines from START to END. (defalias 'count-text-lines #[(start end &optional print) "ƒ\fÃÄÅ \n\"\"‡ŠŒ \n}ˆebˆÆ ÇÆ !Z*‡" [print start end message "Region has %d text lines" count-text-lines buffer-size forward-text-line] 5 (#$ . 3176) "r\np"]) #@126 Go forward one nroff text line, skipping lines of nroff requests. An argument is a repeat count; if negative, move backward. (defalias 'forward-text-line #[(&optional cnt) "„ÁÂVƒ*m„*Áyˆm„#ÃÄ!ƒ#Áyˆ‚S‰‚ÂWƒNo„NÅyˆo„GÃÄ!ƒGÅyˆ‚7T‰‚+‡" [cnt 1 0 looking-at "[.']." -1] 3 (#$ . 3624) "p"]) #@128 Go backward one nroff text line, skipping lines of nroff requests. An argument is a repeat count; negative means move forward. (defalias 'backward-text-line #[(&optional cnt) "Á[!‡" [cnt forward-text-line] 2 (#$ . 3938) "p"]) (byte-code "ÂÀ BÀ‡" [nroff-brace-table current-load-list ((".(b" . ".)b") (".(l" . ".)l") (".(q" . ".)q") (".(c" . ".)c") (".(x" . ".)x") (".(z" . ".)z") (".(d" . ".)d") (".(f" . ".)f") (".LG" . ".NL") (".SM" . ".NL") (".LD" . ".DE") (".CD" . ".DE") (".BD" . ".DE") (".DS" . ".DE") (".DF" . ".DE") (".FS" . ".FE") (".KS" . ".KE") (".KF" . ".KE") (".LB" . ".LE") (".AL" . ".LE") (".BL" . ".LE") (".DL" . ".LE") (".ML" . ".LE") (".RL" . ".LE") (".VL" . ".LE") (".RS" . ".RE") (".TS" . ".TE") (".EQ" . ".EN") (".PS" . ".PE") (".BS" . ".BE") (".G1" . ".G2") (".na" . ".ad b") (".nf" . ".fi") (".de" . ".."))] 2) #@208 Insert newline for nroff mode; special if electric-nroff mode. In `electric-nroff-mode', if ending a line containing an nroff opening request, automatically inserts the matching closing request after point. (defalias 'electric-nroff-newline #[(arg) "ŠÅyˆ?… …`dÆZX…Ç``Æ\\{\n\"A)ÈÉ!?‰„1ÊË!!‚AŠÌ\f±ˆ ƒ>Ícˆ)Îu*‡" [arg nroff-electric-mode nroff-brace-table needs-nl completion 0 3 assoc looking-at "[ ]*$" newline prefix-numeric-value "\n\n" "\n" 1] 5 (#$ . 4782) "P"]) #@314 Toggle `nroff-electric-newline' minor mode. `nroff-electric-newline' forces Emacs to check for an nroff request at the beginning of the line, and insert the matching closing request if necessary. This command toggles that mode (off->on, on->off), with an argument, turns it on iff arg is positive, otherwise off. (defalias 'electric-nroff-mode #[(&optional arg) "Ä=„\nÅÆ!ˆÃ ž„Ç ÈC\"\n„ ?‚$É\n!ÊV‰‡" [major-mode minor-mode-alist arg nroff-electric-mode nroff-mode error "Must be in nroff mode" append (nroff-electric-mode " Electric") prefix-numeric-value 0] 3 (#$ . 5269) "P"]) (provide 'nroff-mode)