HOME

Mini Shell 1.0
DIR:/usr/share/emacs/26.1/lisp/textmodes/
Current File : //usr/share/emacs/26.1/lisp/textmodes/nroff-mode.elc
;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301\302\303\304\305\306\307\310\311&	\210\312\313\302\314\306\301\315\316&\207" [custom-declare-group nroff nil "Nroff mode." :link (custom-group-link :tag "Font Lock Faces group" font-lock-faces) :group text :prefix "nroff-" custom-declare-variable nroff-electric-mode "Non-nil means automatically closing requests when you insert an open." :type boolean] 10)
#@37 Major mode keymap for `nroff-mode'.
(defvar nroff-mode-map (byte-code "\302 \302 \303	\304\305#\210\303	\306\307#\210\303	\310\311#\210\303	\312\313#\210\303	\314\315#\210\303	\316\317#\210\303	\320\321#\210\303	\322\323B#\210\303\324\325#\210\303\326\327#\210\303\330\331#\210\303\332\333#\210\303\334\335#\210\303\336\337#\210	*\207" [menu-map map make-sparse-keymap define-key "	" tab-to-tab-stop "s" center-line "?" nroff-count-text-lines "\n" nroff-electric-newline "n" nroff-forward-text-line "p" nroff-backward-text-line "" nroff-view [menu-bar nroff-mode] "Nroff" [nn] (menu-item "Newline" nroff-electric-newline :help "Insert newline for nroff mode; special if nroff-electric mode") [nc] (menu-item "Count text lines" nroff-count-text-lines :help "Count lines in region, except for nroff request lines.") [nf] (menu-item "Forward text line" nroff-forward-text-line :help "Go forward one nroff text line, skipping lines of nroff requests") [nb] (menu-item "Backward text line" nroff-backward-text-line :help "Go backward one nroff text line, skipping lines of nroff requests") [ne] (menu-item "Electric newline mode" nroff-electric-mode :help "Auto insert closing requests if necessary" :button (:toggle . nroff-electric-mode)) [npm] (menu-item "Preview as man page" nroff-view :help "Run man on this file.")] 5) (#$ . 787))
#@42 Syntax table used while in `nroff-mode'.
(defvar nroff-mode-syntax-table (byte-code "\302!\303\304\305	#\210\303\306\307	#\210\303\310\311	#\210\303\312\313	#\210	)\207" [text-mode-syntax-table st copy-syntax-table modify-syntax-entry 34 "\"  2" 35 ".  2" 92 "\\  1" 10 ">"] 4) (#$ . 2141))
(defvar nroff-imenu-expression '((nil "^\\.SH \"?\\([^\"\n]*\\)\"?$" 1)))
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\306\313\304\305&\207" [custom-declare-variable nroff-font-lock-keywords (list "^[.']\\s-*\\sw+" (concat "\\\\" "\\(" (mapconcat 'identity '("[f*n]*\\[.+?]" "(.." "[^(\"#]") "\\|") "\\)")) "Font-lock highlighting control in `nroff-mode'." :group nroff :type (repeat regexp) nroff-mode-hook nil "Hook run by function `nroff-mode'." hook] 8)
(defvar nroff-mode-hook nil)
(byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [nroff-mode-hook variable-documentation put "Hook run after entering Nroff mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp nroff-mode-map definition-name nroff-mode] 4)
(defvar nroff-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\322#\207" [nroff-mode-abbrev-table nroff-mode-map variable-documentation put purecopy "Keymap for `nroff-mode'." boundp nroff-mode-syntax-table definition-name nroff-mode (lambda (#1=#:def-tmp-var) (defvar nroff-mode-syntax-table #1#)) make-syntax-table "Syntax table for `nroff-mode'." (lambda (#1#) (defvar nroff-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `nroff-mode'." derived-mode-parent text-mode] 5)
#@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 "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315!\204'\316\317 \"\210\320\f!\211\2036
\321 =\203<\322\f\323 \"\210)\3243\325\"\204V34=\204V\3263\3254C#\210\327!\210\330\f!\21034\306\331!\210\332\306\333!\210\334\306\335!\210\336\306\337!\210\340\306\341!\210\342!P!\306\343!\210\342#P#\306\344!\210\345$\306\346!\210\347&\306\350!\210\351(\306\352!\210\353*\306\354!\210\355,\306\356!\210\357.\306\360!\21050)\361\362!\207" [delay-mode-hooks major-mode mode-name nroff-mode-map nroff-mode-syntax-table parent make-local-variable t text-mode nroff-mode "Nroff" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table font-lock-defaults (nroff-font-lock-keywords nil t nil backward-paragraph) outline-regexp "\\.H[ ]+[1-7]+ " outline-level nroff-outline-level page-delimiter "^\\.\\(bp\\|SK\\|OP\\)" paragraph-start "[.']\\|" paragraph-separate auto-fill-inhibit-regexp "[.'][ 	]*\\([^ 	\\']\\|\\\\[^#\"]\\)" comment-start "\\\" " comment-start-skip "\\\\[\"#][ 	]*" comment-column 24 comment-indent-function nroff-comment-indent comment-insert-comment-function nroff-insert-comment-function imenu-generic-expression run-mode-hooks nroff-mode-hook nroff-mode-abbrev-table local-abbrev-table nroff-imenu-expression] 6 (#$ . 4045) nil])
(defalias 'nroff-outline-level #[nil "\212\301!\210\302\303w\210\304``T{!)\207" [outline-regexp looking-at ".H " nil string-to-number] 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 "`\302\216\303\304x\210n\203T\305c\210\306\202.\212\307u\210\310\311!)\203%\306\202.	i\312\\\313\245\313_]*\207" [pt comment-column #[nil "b\207" [pt] 1] " 	" nil 46 1 -1 looking-at "^[.']" 9 8] 3 (#$ . 5950)])
#@65 Function for `comment-insert-comment-function' in `nroff-mode'.
(defalias 'nroff-insert-comment-function #[nil "\301 j\210c\207" [comment-start nroff-comment-indent] 1 (#$ . 6315)])
#@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 'nroff-count-text-lines #[(start end &optional print) "\203\f\303\304\305	\n\"\"\207\212\214	\n}\210eb\210\306 \307\306 !Z*\207" [print start end message "Region has %d text lines" nroff-count-text-lines buffer-size nroff-forward-text-line] 5 (#$ . 6505) "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 'nroff-forward-text-line #[(&optional cnt) "\204\301\302V\203*m\204*\301y\210m\204#\303\304!\203#\301y\210\202S\211\202\302W\203No\204N\305y\210o\204G\303\304!\203G\305y\210\2027T\211\202+\207" [cnt 1 0 looking-at "[.']." -1] 3 (#$ . 7010) "p"])
#@128 Go backward one nroff text line, skipping lines of nroff requests.
An argument is a repeat count; negative means move forward.
(defalias 'nroff-backward-text-line #[(&optional cnt) "\301[!\207" [cnt nroff-forward-text-line] 2 (#$ . 7423) "p"])
(defconst nroff-brace-table '((".(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" . "..")))
#@208 Insert newline for nroff mode; special if nroff-electric mode.
In `nroff-electric-mode', if ending a line containing an nroff opening request,
automatically inserts the matching closing request after point.
(defalias 'nroff-electric-newline #[(arg) "\212\305 \210?\205	\205`d\306ZX\205\307`\306`\\{\n\"A)\310\311!?\211\2041\312\313!!\202A\212\314\f\261\210\203>\315c\210)\316u*\207" [arg nroff-electric-mode nroff-brace-table needs-nl completion beginning-of-line 3 assoc looking-at "[ 	]*$" newline prefix-numeric-value "\n\n" "\n" 1] 5 (#$ . 8252) "P"])
#@107 Non-nil if Nroff-Electric mode is enabled.
Use the command `nroff-electric-mode' to change this variable.
(defvar nroff-electric-mode nil (#$ . 8830))
(make-variable-buffer-local 'nroff-electric-mode)
#@557 Toggle automatic nroff request pairing (Nroff Electric mode).
With a prefix argument ARG, enable Nroff Electric mode if ARG is
positive, and disable it otherwise.  If called from Lisp, enable
the mode if ARG is omitted or nil.

Nroff Electric mode is a buffer-local minor mode, for use with
`nroff-mode'.  When enabled, Emacs checks for an nroff request at
the beginning of the line, and inserts the matching closing
request if necessary.  This command toggles that mode (off->on,
on->off), with an argument, turns it on if arg is positive,
otherwise off.
(defalias 'nroff-electric-mode #[(&optional arg) "\304 	\305=\203\n?\202\306	!\307V\310\311!\204\312\313!\210\314\315\n\203(\316\202)\317\"\210\320\321!\203N\304 \203=\304 \232\203N\322\323\324\n\203I\325\202J\326#\210))\327 \210\n\207" [#1=#:last-message arg nroff-electric-mode local current-message toggle prefix-numeric-value 0 derived-mode-p nroff-mode error "Must be in nroff mode" run-hooks nroff-electric-mode-hook nroff-electric-mode-on-hook nroff-electric-mode-off-hook called-interactively-p any " in current buffer" message "Nroff-Electric mode %sabled%s" "en" "dis" force-mode-line-update] 4 (#$ . 9038) (list (or current-prefix-arg 'toggle))])
(defvar nroff-electric-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\300!\205\311\211%\207" [nroff-electric-mode-map nroff-electric-mode-hook variable-documentation put "Hook run after entering or leaving `nroff-electric-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" add-minor-mode nroff-electric-mode " Electric" boundp nil] 6)
#@23 Run man on this file.
(defalias 'nroff-view #[nil "\302\303!\210\304 \305\306\307Q!\204\310\311!\210\312 \203(\313\314\315\316 \"!\203(\317 \210	\2030\320	!\210\321!*\207" [file viewbuf require man buffer-file-name get-buffer "*Man " "*" error "Buffer is not associated with any file" buffer-modified-p y-or-n-p format "Save buffer %s first? " buffer-name save-buffer kill-buffer Man-getpage-in-background] 4 (#$ . 10732) nil])
(byte-code "\300\301\302\303#\210\304\301\302\305#\210\300\306\307\303#\210\304\306\307\305#\210\300\310\311\303#\210\304\310\311\305#\210\300\312\313\303#\210\304\312\313\305#\210\300\314\315\303#\210\304\314\315\305#\210\316\317!\207" [defalias count-text-lines nroff-count-text-lines nil make-obsolete "22.1" forward-text-line nroff-forward-text-line backward-text-line nroff-backward-text-line electric-nroff-newline nroff-electric-newline electric-nroff-mode nroff-electric-mode provide nroff-mode] 4)