;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301\302\303\304\305\306\307\310\311&	\210\312\313\314\315\316DD\317\320\321%\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 funcall function #[0 "\300\207" [nil] 1 ""] "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 "\300 \301
\302\303#\210\301
\304\305#\210\301
\306\307#\210\301
\310\311#\210\301
\312\313#\210\301
\314\315#\210\207" [make-sparse-keymap define-key "	" tab-to-tab-stop "?" nroff-count-text-lines "\n" nroff-electric-newline "n" nroff-forward-text-line "p" nroff-backward-text-line "" nroff-view] 5) (#$ . 508))
#@24 Menu for `nroff-mode'.
(defvar nroff-mode-menu nil (#$ . 902))
(easy-menu-do-define 'nroff-mode-menu nroff-mode-map "Menu for `nroff-mode'." '("Nroff" ["Preview as man page" nroff-view :help "Run man on this file."] ["Electric newline mode" nroff-electric-mode :help "Auto insert closing requests if necessary" :style toggle :selected nroff-electric-mode] ["Backward text line" nroff-backward-text-line :help "Go backward one nroff text line, skipping lines of nroff requests"] ["Forward text line" nroff-forward-text-line :help "Go forward one nroff text line, skipping lines of nroff requests"] ["Count text lines" nroff-count-text-lines :help "Count lines in region, except for nroff request lines."] ["Newline" nroff-electric-newline :help "Insert newline for nroff mode; special if nroff-electric mode"]))
#@42 Syntax table used while in `nroff-mode'.
(defvar nroff-mode-syntax-table (byte-code "\301!\302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\207" [text-mode-syntax-table copy-syntax-table modify-syntax-entry 34 "\"  2" 35 ".  2" 92 "\\  1" 10 ">"] 5) (#$ . 1719))
(defvar nroff-imenu-expression '((nil "^\\.SH \"?\\([^\"\n]*\\)\"?$" 1)))
(byte-code "\300\301\302\303\304DD\305\306\307%\210\300\310\302\303\311DD\312\306\313%\207" [custom-declare-variable nroff-font-lock-keywords funcall function #[0 "\300\301\302\303\304\305#\306QD\207" ["^[.']\\s-*\\sw+" "\\\\\\(" mapconcat identity ("[f*n]*\\[.+?]" "(.." "[^(\"#]") "\\|" "\\)"] 6 #1=""] "Font-lock highlighting control in `nroff-mode'." :type (repeat regexp) nroff-mode-hook #[0 "\300\207" [nil] 1 #1#] "Hook run by function `nroff-mode'." hook] 6)
(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 #[0 "\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\2035\211\321 =\203;\322\f\323 \"\210\210\324
\325\"\204R
3=\204R\326
\3253C#\210\327!\210\330\f!\210
3\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!\21040)\361\362!\207" [delay-mode-hooks major-mode mode-name nroff-mode-map nroff-mode-syntax-table nroff-mode-abbrev-table 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 local-abbrev-table nroff-imenu-expression] 5 (#$ . 3677) nil])
(defalias 'nroff-outline-level #[0 "\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 #[0 "`C\301\302\"\216\303\304x\210n\203\211
\242T\240\210\305c\210\306\2024\212\307u\210\310\311!)\203+\306\2024\312i\313\\\312\245_])\207" [comment-column make-closure #[0 "\300\242b\207" [V0] 1] " 	" nil 46 1 -1 looking-at "^[.']" 8 9] 5 (#$ . 5572)])
#@65 Function for `comment-insert-comment-function' in `nroff-mode'.
(defalias 'nroff-insert-comment-function #[0 "\301 j\210c\207" [comment-start nroff-comment-indent] 1 (#$ . 5972)])
#@255 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.

(fn START END &optional PRINT)
(defalias 'nroff-count-text-lines #[770 "\211\203\f\300\301\302\"\"\207\212\214}\210eb\210\303 \304\303 !Z*\207" [message "Region has %d text lines" nroff-count-text-lines buffer-size nroff-forward-text-line] 8 (#$ . 6160) "r\np"])
#@146 Go forward one nroff text line, skipping lines of nroff requests.
An argument is a repeat count; if negative, move backward.

(fn &optional CNT)
(defalias 'nroff-forward-text-line #[256 "\211\204\300\262
\211\301V\203+m\204+\300y\210m\204$\302\303!\203$\300y\210\202\211S\262
\202\211\301W\203Oo\204O\304y\210o\204H\302\303!\203H\304y\210\2028\211T\262
\202+\207" [1 0 looking-at "[.']." -1] 3 (#$ . 6658) "p"])
#@148 Go backward one nroff text line, skipping lines of nroff requests.
An argument is a repeat count; negative means move forward.

(fn &optional CNT)
(defalias 'nroff-backward-text-line #[256 "\300
[!\207" [nroff-forward-text-line] 3 (#$ . 7093) "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" . "..")))
#@218 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.

(fn ARG)
(defalias 'nroff-electric-newline #[257 "\212\302 \210\211?\205\205`d\303ZX\205\304`\303`\\{	\"A)\305\306!?
\204-\307\310!!\207\212\311\261\210\211\203:\312c\210)\313u\207" [nroff-electric-mode nroff-brace-table beginning-of-line 3 assoc looking-at "[ 	]*$" newline prefix-numeric-value "\n\n" "\n" 1] 6 (#$ . 7926) "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 (#$ . 8484))
(make-variable-buffer-local 'nroff-electric-mode)
#@955 Toggle automatic nroff request pairing (Nroff Electric mode).

This is a minor mode.  If called interactively, toggle the
`Nroff-Electric mode' mode.  If the prefix argument is positive,
enable the mode, and if it is zero or negative, disable the mode.

If called from Lisp, toggle the mode if ARG is `toggle'.  Enable the
mode if ARG is nil, omitted, or is a positive number.  Disable the
mode if ARG is a negative number.

To check whether the minor mode is enabled in the current buffer,
evaluate `nroff-electric-mode'.

The mode's hook is called both when the mode is enabled and when it is
disabled.

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.

(fn &optional ARG)
(defalias 'nroff-electric-mode #[256 "\302 
\303=\203
?\202
\247\203
\304W\203\305\202\306\307\301!\2031\310\300	\"\2031\300	B\311\312!\204;\313\314!\210\315\316\203E\317\202F\320\"\210\321\322!\203h\302 \203Z\211\302 \232\203h\323\324\203d\325\202e\326\327#\210\210\330 \210\207" [nroff-electric-mode local-minor-modes current-message toggle 1 nil t boundp delq 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 message "Nroff-Electric mode %sabled%s" "en" "dis" " in current buffer" force-mode-line-update] 6 (#$ . 8692) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar nroff-electric-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\313\314\300!\205#\310\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.)" custom-type hook standard-value nil add-minor-mode nroff-electric-mode " Electric" boundp] 6)
#@23 Run man on this file.
(defalias 'nroff-view #[0 "\300\301!\210\302 \303\304\305Q!
\204\306\307!\210\310 \203&\311\312\313\314 \"!\203&\315 \210\211\203.\316
!\210\317\320!!\207" [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 shell-quote-argument] 6 (#$ . 10955) nil])
(provide 'nroff-mode)