;ELC ;;; compiled by erik@naggum.no on Sun Jan 14 06:23:27 1996 ;;; from file /gd/gnu/emacs/19.0/lisp/nroff-mode.el ;;; emacs version 19.30.70.6. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (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")) #@40 Abbrev table used while in nroff mode. (defvar nroff-mode-abbrev-table nil (#$ . 470)) (define-abbrev-table (quote nroff-mode-abbrev-table) nil) #@35 Major mode keymap for nroff mode. (defvar nroff-mode-map nil (#$ . 621)) (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 (#$ . 943)) #@47 Font-lock highlighting control in nroff-mode. (defvar nroff-font-lock-keywords (byte-code "ÀÁÂÃÄÅÆ#ÇRD‡" ["^[.']\\s-*\\sw+" "\\\\" "\\(" mapconcat identity ("[f*n]*\\[.+]" "(.." "[^(\"]") "\\|" "\\)"] 7) (#$ . 1036)) #@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 "À ˆÁ\n!ˆÃÅ„,È !ÊËÌ#ˆÊÍÎ#ˆÊÏÐ#ˆÑ!ˆÒÓ!ˆÔÒ×!ˆØÒÙ!ˆÚÒÛ!ˆÜÒÝ!ˆÞÒß!ˆàPÒá!ˆà!P!Òâ!ˆã\"Òä!ˆå$Òæ!ˆç&Òè!ˆé(êëì\"‡" [kill-all-local-variables use-local-map nroff-mode-map "Nroff" mode-name nroff-mode major-mode nroff-mode-syntax-table copy-syntax-table text-mode-syntax-table modify-syntax-entry 34 "\" 2" 92 "\\ 1" 10 "> 1" set-syntax-table make-local-variable font-lock-defaults (nroff-font-lock-keywords nil t) nroff-mode-abbrev-table local-abbrev-table 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] 4 (#$ . 1260) nil]) (defalias 'nroff-outline-level #[nil "ŠÀ !ˆÂÃwˆÄ``Å\\{!)‡" [looking-at outline-regexp ".H " nil string-to-int 1] 4]) #@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ˆÅ‚0ŠÆÅ!ˆÇÈ!)ƒ&Å‚0 iÊ\\Ë¥Ë_]*‡" [pt ((goto-char pt)) " " nil 46 1 backward-char looking-at "^[.']" comment-column 9 8] 3 (#$ . 2527)]) #@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ÁÂÃ\f \"\"‡ŠŒ\f }ˆebˆÆ ÇÆ !Z*‡" [print message "Region has %d text lines" count-text-lines start end buffer-size forward-text-line] 5 (#$ . 2831) "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ˆ‚ÁZ‰‚ÂWƒPo„PÅyˆo„HÃÄ!ƒHÅyˆ‚8Á\\‰‚,‡" [cnt 1 0 looking-at "[.']." -1] 3 (#$ . 3279) "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) "À [!‡" [forward-text-line cnt] 2 (#$ . 3596) "p"]) (byte-code "ÀÁ\nBÁ‡" [((".(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" . "..")) nroff-brace-table current-load-list] 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ˆ ?…\n…`dÃZX…Ä``Ã\\{ \"A)ÆÇ!?‰ „3ÊË !!‚EŠÌ ±ˆƒBÍcˆ)Îu*‡" [0 arg nroff-electric-mode 3 assoc nroff-brace-table looking-at "[ ]*$" needs-nl completion newline prefix-numeric-value "\n\n" "\n" 1] 5 (#$ . 4441) "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\"„ \f?‚&É!ÊV‰‡" [major-mode nroff-mode error "Must be in nroff mode" nroff-electric-mode minor-mode-alist append (nroff-electric-mode " Electric") arg prefix-numeric-value 0] 3 (#$ . 4931) "P"])