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



(byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\310\311\312\311\313&	\210\314\315\316\317\320DD\321\322\323\311\304&\207" [require ansi-color cl-lib custom-declare-group man nil "Browse UNIX manual pages." :prefix "Man-" :group external help custom-declare-variable Man-filter-list funcall function #[0 "\300\207" [nil] 1 ""] "Manpage cleaning filter command phrases.\nThis variable contains a list of the following form:\n\n  ((command-string phrase-string*)*)\n\nEach phrase-string is concatenated onto the command-string to form a\ncommand filter.  The (standard) output (and standard error) of the Un*x\nman command is piped through each command filter in the order the\ncommands appear in the association list.  The final output is placed in\nthe manpage buffer." :type (repeat (list (string :tag "Command String") (repeat :inline t (string :tag "Phrase String"))))] 10)
#@65 Non-nil means use `untabify' instead of `Man-untabify-command'.
(defvar Man-uses-untabify-flag t (#$ . 972))
#@65 Script for sed to nuke backspaces and ANSI codes from manpages.
(defvar Man-sed-script nil (#$ . 1087))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\312\313\314\315\310\311\316\317&\210\312\320\321\322\310\311\316\317&\210\312\323\324\325\310\311\316\317&\207" [custom-declare-variable Man-fontify-manpage-flag funcall function #[0 "\300\207" [t] 1 ""] "Non-nil means make up the manpage with fonts." :type boolean :group man custom-declare-face Man-overstrike ((t (:inherit bold))) "Face to use when fontifying overstrike." :version "24.3" Man-underline ((t (:inherit underline))) "Face to use when fontifying underlining." Man-reverse ((t (:inherit highlight))) "Face to use when fontifying reverse video."] 8)
#@58 The value used here for `ansi-color-basic-faces-vector'.
(defvar Man-ansi-color-basic-faces-vector [nil Man-overstrike nil Man-underline Man-underline nil nil Man-reverse] (#$ . 1825))
#@164 The value formerly used here for `ansi-color-map'.
This variable is obsolete.  To customize the faces used by ansi-color,
set `Man-ansi-color-basic-faces-vector'.
(defvar Man-ansi-color-map (byte-code "\301\302 )\207" [ansi-color-faces-vector [default Man-overstrike default Man-underline Man-underline default default Man-reverse] ansi-color-make-color-map] 1) (#$ . 2017))
(byte-code "\300\301\302\303#\210\304\305\306\307\310DD\311\312\313\314\315&\210\304\316\306\307\317DD\320\312\321\314\315&\210\304\322\306\307\323DD\324\312\325\326\327\314\315&	\210\304\330\306\307\331DD\332\312\333\314\315&\210\304\334\306\307\335DD\336\312\337\314\315&\210\304\340\306\307\341DD\342\312\337\314\315&\210\304\343\306\307\344DD\345\312\346\314\315&\210\304\347\306\307\350DD\351\326\352\312\353\314\315&	\210\304\354\306\307\355DD\356\326\352\312\357\314\360&	\210\304\361\306\307\362DD\363\312\364\314\315&\210\304\365\306\307\366DD\367\312\364\314\315&\210\304\370\306\307\371DD\372\312\373\314\315&\210\304\374\306\307\375DD\376\312\364\314\315&\210\304\377\306\307\201@DD\201A\312\364\314\315&\210\304\201B\306\307\201CDD\201D\312\201E\314\315\326\201F&	\210\304\201G\306\307\201HDD\201I\312\201J\314\315&\210\304\201K\306\307\201LDD\201M\312\201J\314\315&\207" [make-obsolete-variable Man-ansi-color-map Man-ansi-color-basic-faces-vector "28.1" custom-declare-variable Man-notify-method funcall function #[0 "\300\207" [friendly] 1 #1=""] "Selects the behavior when manpage is ready.\nThis variable may have one of the following values, where (sf) means\nthat the frames are switched, so the manpage is displayed in the frame\nwhere the man command was called from:\n\nnewframe   -- put the manpage in its own frame (see `Man-frame-parameters')\npushy      -- make the manpage the current buffer in the current window\nbully      -- make the manpage the current buffer and only window (sf)\naggressive -- make the manpage the current buffer in the other window (sf)\nfriendly   -- display manpage in the other window but don't make current (sf)\npolite     -- don't display manpage, but prints message and beep when ready\nquiet      -- like `polite', but don't beep\nmeek       -- make no indication that the manpage is ready\n\nAny other value of `Man-notify-method' is equivalent to `meek'." :type (radio (const newframe) (const pushy) (const bully) (const aggressive) (const friendly) (const polite) (const quiet) (const meek)) :group man Man-width #[0 "\300\207" [nil] 1 #1#] "Number of columns for which manual pages should be formatted.\nIf nil, use the width of the window where the manpage is displayed.\nIf non-nil, use the width of the frame where the manpage is displayed.\nThe value also can be a positive integer for a fixed width." (choice (const :tag "Window width" nil) (const :tag "Frame width" t) (integer :tag "Fixed width" :value 65)) Man-width-max #[0 "\300\207" [80] 1 #1#] "Maximum number of columns allowed for the width of manual pages.\nIt defines the maximum width for the case when `Man-width' is customized\nto a dynamically calculated value depending on the frame/window width.\nIf the width calculated for `Man-width' is larger than the maximum width,\nit will be automatically reduced to the width defined by this variable.\nWhen nil, there is no limit on maximum width." (choice (const :tag "No limit" nil) (integer :tag "Max width" :value 80)) :version "27.1" Man-frame-parameters #[0 "\300\207" [nil] 1 #1#] "Frame parameter list for creating a new frame for a manual page." (repeat (cons :format "%v" (symbol :tag "Parameter") (sexp :tag "Value"))) Man-downcase-section-letters-flag #[0 "\300\207" [t] 1 #1#] "Non-nil means letters in sections are converted to lower case.\nSome Un*x man commands can't handle uppercase letters in sections, for\nexample \"man 2V chmod\", but they are often displayed in the manpage\nwith the upper case letter.  When this variable is t, the section\nletter (e.g., \"2V\") is converted to lowercase (e.g., \"2v\") before\nbeing sent to the man background process." boolean Man-circular-pages-flag #[0 "\300\207" [t] 1 #1#] "Non-nil means the manpage list is treated as circular for traversal." Man-section-translations-alist #[0 "\300\301\302E\207" [("3C++" . "3") ("3X11" . "3") ("1-UCB" . #1#)] 3 #1#] "Association list of bogus sections to real section numbers.\nSome manpages (e.g. the Sun C++ 2.1 manpages) have section numbers in\ntheir references which Un*x `man' does not recognize.  This\nassociation list is used to translate those sections, when found, to\nthe associated section number." (repeat (cons (string :tag "Bogus Section") (string :tag "Real Section"))) Man-header-file-path #[0 "\300\301\302\"r\211q\210\303\304\"\216\3051\306\307\310\311\310\312%0\202\210\310\313=\205*eb\210`\314 {*\262
\315
G\313U\2036\207\316
\317\320\"C\"\207" [generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] (error) call-process "gcc" nil (t nil) "-print-multiarch" 0 line-end-position ("/usr/include" "/usr/local/include") append expand-file-name "/usr/include"] 7 #1#] "C Header file search path used in Man." "24.1" (repeat string) Man-name-local-regexp #[0 "\300\207" ["^\\(?:N\\(?:AME\\|OM\\)\\)$"] 1 #1#] "Regexp that matches the text that precedes the command's name.\nUsed in `bookmark-set' to get the default bookmark name." regexp bookmark manual-program #[0 "\300\207" ["man"] 1 #1#] "Program used by `man' to produce man pages." string Man-untabify-command #[0 "\300\207" ["pr"] 1 #1#] "Program used by `man' for untabifying." Man-untabify-command-args #[0 "\300\301D\207" ["-t" "-e"] 2 #1#] "List of arguments to be passed to `Man-untabify-command' (which see)." (repeat string) Man-sed-command #[0 "\300\207" ["sed"] 1 #1#] "Program used by `man' to process sed scripts." Man-awk-command #[0 "\300\207" ["awk"] 1 #1#] "Program used by `man' to process awk scripts." Man-coding-system #[0 "\300\207" [nil] 1 #1#] "Coding-system to decode output from the commands run by `man'.\nIf this is nil, `man' will use `locale-coding-system'." coding-system "26.1" Man-mode-hook #[0 "\300\207" [nil] 1 #1#] "Hook run when Man mode is enabled." hook Man-cooked-hook #[0 "\300\207" [nil] 1 #1#] "Hook run after removing backspaces but before `Man-mode' processing."] 10)
#@72 Regular expression describing the name of a manpage (without section).
(defvar Man-name-regexp "[-[:alnum:]_­+][-[:alnum:]_.:­+]*" (#$ . 8361))
#@69 Regular expression describing a manpage section within parentheses.
(defvar Man-section-regexp "[0-9][a-zA-Z0-9+]*\\|[LNln]" (#$ . 8513))
#@54 Regular expression describing the heading of a page.
(defvar Man-page-header-regexp (byte-code "\303\304\"\203\305	\306\n\307\260\207\310	\306\n\311\260\207" [system-configuration Man-name-regexp Man-section-regexp string-match "-solaris2\\." "^[-[:alnum:]_].*[ 	]\\(" "(\\(" "\\))\\)$" "^[ 	]*\\(" "\\))\\).*\\1"] 5) (#$ . 8657))
#@56 Regular expression describing a manpage heading entry.
(defvar Man-heading-regexp "^\\([[:upper:]][[:upper:]0-9 /-]+\\)$" (#$ . 8999))
#@114 Regular expression for SEE ALSO heading (or your equivalent).
This regexp should not start with a `^' character.
(defvar Man-see-also-regexp "\\(SEE ALSO\\|VOIR AUSSI\\|SIEHE AUCH\\|VÉASE TAMBIÉN\\|VEJA TAMBÉM\\|VEDERE ANCHE\\|ZOBACZ TAKŻE\\|İLGİLİ BELGELER\\|参照\\|参见 SEE ALSO\\|參見 SEE ALSO\\)" (#$ . 9141))
#@118 Regular expression describing first heading on a manpage.
This regular expression should start with a `^' character.
(defvar Man-first-heading-regexp "^NAME$\\|^[ 	]*No manual entry fo.*$" (#$ . 9475))
#@63 Regular expression describing a reference to another manpage.
(defvar Man-reference-regexp (concat "\\(" Man-name-regexp "\\(\\([-‐]\n\\)?[ 	]+" Man-name-regexp "\\)*\\)[ 	]*(\\(" Man-section-regexp "\\))") (#$ . 9683))
#@75 Regular expression describing a reference to manpages in "man -k output".
(defvar Man-apropos-regexp (concat "\\[\\(" Man-name-regexp "\\)\\][ 	]*(\\(" Man-section-regexp "\\))") (#$ . 9911))
#@114 Regular expression for SYNOPSIS heading (or your equivalent).
This regexp should not start with a `^' character.
(defvar Man-synopsis-regexp "SYNOPSIS" (#$ . 10110))
#@111 Regular expression for FILES heading (or your equivalent).
This regexp should not start with a `^' character.
(defvar Man-files-regexp "FILES\\>" (#$ . 10283))
#@64 Regular expression describing the #include (directive of cpp).
(defvar Man-include-regexp "#[ 	]*include[ 	]*" (#$ . 10449))
#@71 Regular expression describing <> in #include line (directive of cpp).
(defvar Man-file-name-regexp "[^<>\", 	\n]+" (#$ . 10580))
#@70 Regular expression describing a file path appeared in FILES section.
(defvar Man-normal-file-prefix-regexp "[/~$]" (#$ . 10715))
#@59 Regular expression describing references to header files.
(defvar Man-header-regexp (concat "\\(" Man-include-regexp "\\)[<\"]\\(" Man-file-name-regexp "\\)[>\"]") (#$ . 10850))
#@59 Regular expression describing references to normal files.
(defvar Man-normal-file-regexp (concat Man-normal-file-prefix-regexp Man-file-name-regexp) (#$ . 11034))
#@68 Regular expression describing a reference in the SEE ALSO section.
(defvar Man-hyphenated-reference-regexp (concat "\\(" Man-name-regexp "\\)\\((\\(" Man-section-regexp "\\))\\)?") (#$ . 11203))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable Man-switches funcall function #[0 "\300\207" [#1=""] 1 #1#] "Switches passed to the man command, as a single string.\nFor example, the -a switch lets you see all the manpages for a\nspecified subject, if your `man' program supports it." :type string :group man] 8)
#@58 Option that indicates a specified a manual section name.
(defvar Man-specified-section-option (byte-code "\301\302\"\203	\303\207\304\207" [system-configuration string-match "-solaris[0-9.]*$" "-s" ""] 3) (#$ . 11756))
#@221 Internal cache for the value of the function `Man-support-local-filenames'.
`auto-detect' means the value is not yet determined.
Otherwise, the value is whatever the function
`Man-support-local-filenames' should return.
(defvar Man-support-local-filenames 'auto-detect (#$ . 11984))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313&	\207" [custom-declare-variable man-imenu-title funcall function #[0 "\300\207" ["Contents"] 1 ""] "The title to use if man adds a Contents menu to the menubar." :version "24.4" :type string :group man] 10)
(defvar Man-original-frame nil nil)
(make-variable-buffer-local 'Man-original-frame)
(defvar Man-arguments nil nil)
(byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local Man-arguments put permanent-local t] 4)
(defvar Man--sections nil nil)
(make-variable-buffer-local 'Man--sections)
(defvar Man--refpages nil nil)
(make-variable-buffer-local 'Man--refpages)
(defvar Man-page-list nil nil)
(make-variable-buffer-local 'Man-page-list)
(defvar Man-current-page 0 nil)
(make-variable-buffer-local 'Man-current-page)
(defvar Man-page-mode-string "1 of 1" nil)
(make-variable-buffer-local 'Man-page-mode-string)
#@75 Script for sysV-like sed to nuke backspaces and ANSI codes from manpages.
(defconst Man-sysv-sed-script "// {	s/_//g\n	s/_//g\n        s/o+/o/g\n        s/+o/o/g\n	:ovstrk\n	s/\\(.\\)\\1/\\1/g\n	t ovstrk\n	}\n/\\[[0-9][0-9]*m/ s///g" (#$ . 13173))
#@79 Script for berkeley-like sed to nuke backspaces and ANSI codes from manpages.
(defconst Man-berkeley-sed-script "// {	s/_//g\\\n	s/_//g\\\n        s/o+/o/g\\\n        s/+o/o/g\\\n	:ovstrk\\\n	s/\\(.\\)\\1/\\1/g\\\n	t ovstrk\\\n	}\\\n/\\[[0-9][0-9]*m/ s///g" (#$ . 13434))
#@21 Topic read history.
(defvar Man-topic-history nil (#$ . 13719))
#@40 Syntax table used in Man mode buffers.
(defvar Man-mode-syntax-table (byte-code "\300\301 !\302\303\304#\210\302\305\304#\210\302\306\304#\210\207" [copy-syntax-table standard-syntax-table modify-syntax-entry 46 "w" 95 58] 5) (#$ . 13789))
#@22 Keymap for Man mode.
(defvar Man-mode-map (byte-code "\302 \303
!\210\304
\305	\"\"\210\306
\307\310#\210\306
\311\312#\210\306
\313\314#\210\306
\315\316#\210\306
\317\320#\210\306
\321\322#\210\306
\323\324#\210\306
\325\326#\210\306
\327\330#\210\306
\331\332#\210\306
\333\334#\210\306
\335\336#\210\337\340\341\342$\210\207" [button-buffer-map special-mode-map make-sparse-keymap suppress-keymap set-keymap-parent make-composed-keymap define-key "n" Man-next-section "p" Man-previous-section "n" Man-next-manpage "p" Man-previous-manpage "." beginning-of-buffer "r" Man-follow-manual-reference "g" Man-goto-section "s" Man-goto-see-also-section "k" Man-kill "u" Man-update-manpage "m" man "
" man-follow easy-menu-do-define nil "`Man-mode' menu." ("Man" ["Next Section" Man-next-section t] ["Previous Section" Man-previous-section t] ["Go To Section..." Man-goto-section t] ["Go To \"SEE ALSO\" Section" Man-goto-see-also-section :active (cl-member Man-see-also-regexp Man--sections :test #'string-match-p)] ["Follow Reference..." Man-follow-manual-reference :active Man--refpages :help "Go to a manpage referred to in the \"SEE ALSO\" section"] "--" ["Next Manpage" Man-next-manpage :active (> (length Man-page-list) 1)] ["Previous Manpage" Man-previous-manpage :active (> (length Man-page-list) 1)] "--" ["Man..." man t] ["Kill Buffer" Man-kill t] ["Quit" quit-window t])] 6) (#$ . 14038))
(define-button-type 'Man-abstract-xref-man-page 'follow-link t 'help-echo "mouse-2, RET: display this man page" 'func nil 'action 'Man-xref-button-action)
#@15 

(fn BUTTON)
(defalias 'Man-xref-button-action #[257 "\300
\301\"\300\302\"
\204\303!\202!\304!\203 
\305!!\202!
!\207" [button-get Man-target-string func button-label functionp button-start] 6 (#$ . 15600)])
(byte-code "\300\301\302\303\304\305%\210\300\306\307\310\311\312\313\314&\210\300\315\307\316\311\312\313\317&\207" [define-button-type Man-xref-man-page :supertype Man-abstract-xref-man-page func man-follow Man-xref-header-file action #[257 "\300
\301\"\302
!?\205\303\304\"\207" [button-get Man-target-string Man-view-header-file error "Cannot find header file: %s"] 5 "\n\n(fn BUTTON)"] follow-link t help-echo "mouse-2: display this header file" Man-xref-normal-file #[257 "\300\301\302\"!\303
!\203\304
!\203\305
!\207\306\307\"\207\306\310\"\207" [substitute-in-file-name button-get Man-target-string file-exists-p file-readable-p view-file error "Cannot read a file: %s" "Cannot find a file: %s"] 5 "\n\n(fn BUTTON)"] "mouse-2: display this file"] 8)
#@125 Used for initializing variables based on display's color support.
This is necessary if one wants to dump man.el with Emacs.
(defalias 'Man-init-defvars #[0 "\306	\203\n\307\202+\310\n\307\211\211%\311=\203\202+\310\n\307\211\211\f%\311=\203*\f\202+\307)\312\313\n-\314=\203E\315\316\317\320\321\322\323\324\325\257	\202a
\203P\326
\327Q\202Q\330\331\332\333\334\335\336\337\340\341\342\343\344\345\346\257B-\314=?\205v.\347\350\351\352\353\354\327\257B/?\205\20201BC$\2112\207" [default-directory Man-fontify-manpage-flag Man-sed-command Man-sysv-sed-script Man-berkeley-sed-script Man-sed-script "/" nil call-process 0 apply list windows-nt "-e \"/Reformatting page.  Wait/d\"" "-e \"/Reformatting entry.  Wait/d\"" "-e \"/^[ 	][ 	]*-[ 	][0-9]*[ 	]-[ 	]*Formatted:.*[0-9]$/d\"" "-e \"/^[ 	]*Page[ 	][0-9]*.*(printed[ 	][0-9\\/]*)$/d\"" "-e \"/^Printed[ 	][0-9].*[0-9]$/d\"" "-e \"/^[ 	]*X[ 	]Version[ 	]1[01].*Release[ 	][0-9]/d\"" "-e \"/^[A-Za-z].*Last[ 	]change:/d\"" "-e \"/[ 	]*Copyright [0-9]* UNIX System Laboratories, Inc.$/d\"" "-e \"/^[ 	]*Rev\\..*Page [0-9][0-9]*$/d\"" "-e '" "'" "" "-e '/^[
-][
-]*$/d'" "-e '/[789]/s///g'" "-e '/Reformatting page.  Wait/d'" "-e '/Reformatting entry.  Wait/d'" "-e '/^[ 	]*Hewlett-Packard[ 	]Company[ 	]*-[ 	][0-9]*[ 	]-/d'" "-e '/^[ 	]*Hewlett-Packard[ 	]*-[ 	][0-9]*[ 	]-.*$/d'" "-e '/^[ 	][ 	]*-[ 	][0-9]*[ 	]-[ 	]*Formatted:.*[0-9]$/d'" "-e '/^[ 	]*Page[ 	][0-9]*.*(printed[ 	][0-9\\/]*)$/d'" "-e '/^Printed[ 	][0-9].*[0-9]$/d'" "-e '/^[ 	]*X[ 	]Version[ 	]1[01].*Release[ 	][0-9]/d'" "-e '/^[A-Za-z].*Last[ 	]change:/d'" "-e '/^Sun[ 	]Release[ 	][0-9].*[0-9]$/d'" "-e '/[ 	]*Copyright [0-9]* UNIX System Laboratories, Inc.$/d'" "-e '/^[ 	]*Rev\\..*Page [0-9][0-9]*$/d'" "'\n" "BEGIN { blankline=0; anonblank=0; }\n" "/^$/ { if (anonblank==0) next; }\n" "{ anonblank=1; }\n" "/^$/ { blankline++; next; }\n" "{ if (blankline>0) { print \"\"; blankline=0; } print $0; }\n" system-type Man-awk-command Man-uses-untabify-flag Man-untabify-command Man-untabify-command-args Man-filter-list] 18 (#$ . 16597)])
#@45 Formats part of the mode line for Man mode.
(defalias 'Man-make-page-mode-string #[0 "\302\303\304S	88\206\f\305	G$\207" [Man-current-page Man-page-list format "%s page %d of %d" 2 ""] 5 (#$ . 18688)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put Man-make-page-mode-string speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@60 Builds the entire background manpage and cleaning command.
(defalias 'Man-build-man-command #[0 "\305	\306\307\"\203\310\202$\311\312!\204\313\202$\314\n\315=\205#\316\nPQR\f\211\203J\211@\203J\211@@
@A\317\305\320\321\305#\260\262A\266\203\202&
\207" [manual-program Man-switches null-device system-type Man-filter-list " " string-match "%s" "" fboundp make-process " %s" " %s 2>" windows-nt " <" " | " mapconcat #[257 "\211;\204	\300\301!\210\207" [error "Malformed Man-filter-list"] 3 "\n\n(fn PHRASE)"]] 12 (#$ . 19050)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put Man-build-man-command speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@57 Strip leading, trailing and middle spaces.

(fn STRING)
(defalias 'Man-translate-cleanup #[257 "\211;\205!\300\301\"\203\302\303\"\262
\304\305\306#\262
\304\307\306#\262
\211\207" [string-match "^[ 	\f
\n]*\\(.+[^ 	\f
\n]\\)" match-string 1 replace-regexp-in-string "[	
\n]" " " "  +"] 5 (#$ . 19750)])
#@248 Translates REF from "chmod(2V)" to "2v chmod" style.
Leave it as is if already in that style.  Possibly downcase and
translate the section (see the `Man-downcase-section-letters-flag'
and the `Man-section-translations-alist' variables).

(fn REF)
(defalias 'Man-translate-references #[257 "\306\211\307!\262\310\311	\312Q\"\203&\313\314\306\315\316\"#\262\315\317\"\262\202?\310\320\n\321\322\260\"\203?\315\323\"\262\315\316\"\262\306\230\203R\324\325\326\327\330\331\"\"\332#\207\f\203Z
\227\262\211\203\212\211@@
@AA\262\f\203p
\227\262
\230\203\205\f\203\211\227\202\200\211\262\333\262\266\202Z
\332R\207" [Man-section-translations-alist Man-reference-regexp Man-section-regexp Man-name-regexp Man-downcase-section-letters-flag Man-specified-section-option "" Man-translate-cleanup string-match "^" "$" replace-regexp-in-string "[\n	 ]" match-string 1 4 "^\\(" "\\) +\\(" "\\)$" 2 mapconcat identity mapcar shell-quote-argument split-string "\\s-+" " " nil] 11 (#$ . 20068)])
#@390 Return non-nil if the man command supports local filenames.
Different man programs support this feature in different ways.
The default Debian man program ("man-db") has a `--local-file'
(or `-l') option for this purpose.  The default Red Hat man
program has no such option, but interprets any name containing
a "/" as a local filename.  The function returns either `man-db'
`man', or nil.
(defalias 'Man-support-local-filenames #[0 "\303=\203L\304\305\306\"r\211q\210\307\310\"\216\311	!\203	\202 \312\313!\31411\315\n\316\306\316\317%0\210\2022\210)\320\321\316\322#\203?\323\202F\324\325!\205F\326*\262
\211\207\207" [Man-support-local-filenames default-directory manual-program auto-detect generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] file-accessible-directory-p expand-file-name "~/" (error) call-process nil "--help" search-backward "--local-file" move man-db looking-at "^man, versione? [1-9]" man] 7 (#$ . 21097)])
#@110 Guess default manual entry based on the text near position POS.
POS defaults to `point'.

(fn &optional POS)
(defalias 'Man-default-man-entry #[256 "\301\211\211\211\212\203\fb\210`\262\302\301x\203B\303\301x\304U\204B\305\306\307Q!\203B\310\301x\2034\311\301x\304U\203<\304\225\211\262\204B`\262\202\252b\210\311\301x\304U\204S`\262\202\252i\262\310\301x\210
iZ\262
\312\313\307Q\314 \"\203r\304\224b\210\315\301x\210\311\301x\304U\204\240`\262b\210\310\301w\203\232iZ
W\203\232\305\316!\203\232`\262\202\252b\210\202\252b\210\310\301w\210`\262\311\301w\210\317`\"\262\305\320\321Q!\203\347\211\322\323!P\262\324
\325\301O!\326=\203\342\327\330\304\325O\"\204\342\331\330\332#\262\210\323\225b\210\333\334\"\203\365\304\211\224O\262\211\332\230?\205\f
\305\335\307Q!\205\f
\336\337\322\323!\"P)\207" [Man-section-regexp nil " 	a-zA-Z0-9+" "(" 0 looking-at "([ 	]*\\(" "\\)[ 	]*)" ",; 	" "-a-zA-Z0-9._+:" looking-back "([ 	]*\\(?:" line-beginning-position " 	" "[-a-zA-Z0-9._+:]" buffer-substring-no-properties "‐?[ 	
\n]+\\([-a-zA-Z0-9._+:]+\\)(" ")" match-string-no-properties 1 string-to-char -1 45 string-search "-" string-replace "" string-match "[-._‐]+$" "[ 	]*([ 	]*\\(" format "(%s)"] 11 (#$ . 22107)])
(defalias 'manual-entry 'man)
#@57 Cache of completion table of the form (PREFIX . TABLE).
(defvar Man-completion-cache nil (#$ . 23411))
#@418 If non-nil prepend ^ to the prefix passed to "man -k" for completion.
The value should be nil if "man -k ^PREFIX" may omit some man
pages whose names start with PREFIX.

Currently, the default value depends on `system-type' and is
non-nil where the standard man programs are known to behave
properly.  Setting the value to nil always gives correct results
but computing the list of completions may take a bit longer.
(defvar Man-man-k-use-anchor (memq system-type '(gnu gnu/linux gnu/kfreebsd)) (#$ . 23521))
#@585 Parse "man -k" output and return the list of page names.

The current buffer should contain the output of a command of the
form "man -k keyword", which is traditionally also available with
apropos(1).

While POSIX man(1p) is a bit vague about what to expect here,
this function tries to parse some commonly used formats, which
can be described in the following informal way, with square brackets
indicating optional parts and whitespace being interpreted
somewhat loosely.

foo[, bar [, ...]] [other stuff] (sec) - description
foo(sec)[, bar(sec) [, ...]] [other stuff] - description
(defalias 'Man-parse-man-k #[0 "eb\210\300\301\302\300\303#\2032\304\305!\304\306!\307\225\310\225b\210\311\304\310!P\312#B\262\301\313\303#\204\266\202\211\237\207" [nil search-forward-regexp "^\\([^ 	,\n]+\\)\\(.*?\\)\\(?:[ 	]\\(([^ 	,\n]+?)\\)\\)?\\(?:[ 	]+- ?\\(.*\\)\\)?$" t match-string 3 4 2 1 propertize help-echo "\\=, *\\([^ 	,]+\\)"] 8 (#$ . 24037)])
#@27 

(fn STRING PRED ACTION)
(defalias 'Man-completion-table #[771 "\305\232\203
\306
\307$\207A\310\311\312\"\203'\313\314\"\262\315\225\310O\262
\2033\316@\"\204\317\320\321\"r\211q\210\322\323\"\216\324\325\n!\326\327\330\"\210\3311j\332\310\333\310\305\f\204`\334\230\205a\335P&0\202l\210\310\315=\203u\336 \262+\210\203\211B
\203\270\337\340!\341Q\310\262\211\203\253\211@\311\"\203\244\211\315\211\224OB\262
A\266\202\202\215\210\342\343P		%\207\311\344\"\203\307\343PB\262\306$\211;\203\351\311\345\"\203\351\315\224GV\203\351\211\315\211\224O\207\207" [Man-completion-cache default-directory process-environment manual-program Man-man-k-use-anchor "-k" complete-with-action ("-k ") nil string-match "\\`\\([[:digit:]].*?\\) " match-string 1 0 string-prefix-p generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] "/" copy-sequence setenv "COLUMNS" "999" (error) call-process (t nil) "" "^" Man-parse-man-k "(" regexp-quote ")\\'" completion-table-with-context " " "\\`[[:digit:]]" "([^(]*\\'"] 15 (#$ . 25000)])
#@1491 Get a Un*x manual page and put it in a buffer.
This command is the top-level command in the man package.
It runs a Un*x command to retrieve and clean a manpage in the
background and places the results in a `Man-mode' browsing
buffer.  The variable `Man-width' defines the number of columns in
formatted manual pages.  The buffer is displayed immediately.
The variable `Man-notify-method' defines how the buffer is displayed.
If a buffer already exists for this man page, it will be displayed
without running the man command.

For a manpage from a particular section, use either of the
following.  "cat(1)" is how cross-references appear and is
passed to man as "1 cat".

    cat(1)
    1 cat

To see manpages from all sections related to a subject, use an
"all pages" option (which might be "-a" if it's not the
default), then step through with `Man-next-manpage' (\<Man-mode-map>\[Man-next-manpage]) etc.
Add to `Man-switches' to make this option permanent.

    -a chmod

An explicit filename can be given too.  Use -l if it might
otherwise look like a page name.

    /my/file/name.1.gz
    -l somefile.1

An "apropos" query with -k gives a buffer of matching page
names or descriptions.  The pattern argument is usually an
"grep -E" style regexp.

    -k pattern

Note that in some cases you will need to use \[quoted-insert] to quote the
SPC character in the above examples, because this command attempts
to auto-complete your input based on the installed manual pages.

(fn MAN-ARGS)
(defalias 'man #[257 "\300
!\262
\301
!\207" [Man-translate-references Man-getpage-in-background] 3 (#$ . 26156) (byte-code "\302 \303\304\305\306\307\310\232?\205\"\311\304\211\211\312&\211\310\230\203'\313\314!\202(\211*\266\202C\207" [completion-ignore-case Man-completion-cache Man-default-man-entry t nil completing-read format-prompt "Manual entry" "" Man-completion-table Man-topic-history error "No man args given"] 9)])
#@87 Get a Un*x manual page of the item under point and put it in a buffer.

(fn MAN-ARGS)
(defalias 'man-follow #[257 "\211\203\n\211\300\230\203\301\302!\207\303
!\207" ["" error "No item under point" man] 3 (#$ . 28092) [(byte-code "\300 C\207" [Man-default-man-entry] 1) (man-common)]])
(defvar Man-columns nil)
(defalias 'Man-columns #[0 "\250\203\302V\203\202+\203%\303\304\305\"\306
\205\307!!\262
\202+\310\303\304\305\"!	\250\203;	\302V\203;\211	^\262
\207" [Man-width Man-width-max 0 get-buffer-window nil t frame-width window-frame window-width] 4])
#@84 Start the man command in `body' after setting up the environment.

(fn &rest BODY)
(defalias 'Man-start-calling '(macro . #[128 "\300\301\302\303\304BBBBB\207" [let ((process-environment (copy-sequence process-environment)) (coding-system-for-write 'raw-text-unix) (coding-system-for-read (or coding-system-for-read Man-coding-system locale-coding-system)) (default-directory (if (and (file-directory-p default-directory) (not (find-file-name-handler default-directory 'file-directory-p))) default-directory "/"))) (setenv "TERM" "dumb") (when (or window-system (not (or (getenv "MANWIDTH") (getenv "COLUMNS")))) (setq-local Man-columns (Man-columns)) (setenv "COLUMNS" (number-to-string Man-columns))) (setenv "MAN_KEEP_FORMATTING" "1")] 7 (#$ . 28673)]))
#@131 Use TOPIC to build and fire off the manpage and cleaning command.
Return the buffer in which the manpage will appear.

(fn TOPIC)
(defalias 'Man-getpage-in-background #[257 "\306
\307Q\310
!\211\203\311
!\210\207\312\313#\210\314!\262
r\211q\210\311
!\210\315\316 \317 \210\320\321\f\2037\322\2028\323\324\325#P\326@!\327A\206NB\206NC\330D!\203b\331D\330\"\204bD\202c\332DAE@\333\334\335\"\210F\204\201\336\337!\204\221\336\340!\204\221\341\342!\210\342 \"\333\340\343\"!\"\210\333\344\345\"\210\346\347!\203
\350G\351>\203\253H\202\254\352I\353\320J\354\355\"\203\276\356\202\327\346\347!\204\310\357\202\327\360KG\361=\205\326\362KPQRL\211\203\376\211@\203\376\211@@
@A\363\320\364\365\320#\260\262A\266\203\202\332
\266\202	\"%\366
\367\"\210\370
\371\"\266\202\253
\315M\372H\373\373D\373I\353\320J\354\355\"\2030
\356\202I
\346\347!\204:
\357\202I
\360KG\361=\205H
\362KPQRL\211\203p
\211@\203p
\211@@
@A\363\320\364\365\320#\260\262A\266\203\202L

\266\202\n\"&\356
\247\203\204

\374U\204\226

\247\203\223
\353\375\"\211\262\204\226

\262
\f\203\240
\376 \210\202\243
\377 \210\367\"\210)\266-\207" [manual-program buffer-undo-list Man-original-frame Man-arguments Man-fontify-manpage-flag mode-line-process "*Man " "*" get-buffer Man-notify-when-ready message "Invoking %s %s in the background" generate-new-buffer t selected-frame Man-mode " " propertize "[formatting...]" "[cleaning...]" face mode-line-emphasis copy-sequence raw-text-unix file-directory-p find-file-name-handler "/" setenv "TERM" "dumb" getenv "MANWIDTH" "COLUMNS" make-local-variable Man-columns number-to-string "MAN_KEEP_FORMATTING" "1" fboundp make-process start-process (cygwin windows-nt) "sh" format string-match "%s" "" " %s" " %s 2>" windows-nt " <" " | " mapconcat #[257 "\211;\204	\300\301!\210\207" [error "Malformed Man-filter-list"] 3 "\n\n(fn PHRASE)"] set-process-sentinel Man-bgproc-sentinel set-process-filter Man-bgproc-filter call-process nil 0 "exited abnormally with code %d" Man-fontify-manpage Man-cleanup-manpage process-environment coding-system-for-read Man-coding-system locale-coding-system default-directory coding-system-for-write window-system system-type shell-file-name shell-command-switch Man-switches null-device Man-filter-list inhibit-read-only] 22 (#$ . 29438)])
#@74 Reformat current manpage by calling the man command again synchronously.
(defalias 'Man-update-manpage #[0 "\204\306\307!\210`\310 \311 \312\313\314 \210\315!\316\f\206\"
\206\"0\3171!\2036\3201\317\"\20461\2027\32112\322\323\324\"\2103\204S\325\326!\204c\325\327!\204c\330\331!\210\331 \322\327\332!\"\210\322\333\334\"\210\3354\313p\313D\3135\3366\3377\340\3416\"\203\204\342\202\235\343\344!\204\216\345\202\235\34689\347=\205\234\3508PQR:\211\203\304\211@\203\304\211@@
@A\351\337\352\353\337#\260\262A\266\203\202\240
\266\202\"&\210,;\203\330\354 \210\202\333\355 \210b\210
?\206\347\211\311 U?\205

\313<\211\311 V\203\373\356\313\312#\210\357\313\312#)*\207" [Man-arguments buffer-read-only inhibit-read-only process-environment coding-system-for-read Man-coding-system error "Man-arguments not initialized" current-word buffer-size t nil erase-buffer copy-sequence raw-text-unix file-directory-p find-file-name-handler "/" setenv "TERM" "dumb" getenv "MANWIDTH" "COLUMNS" make-local-variable Man-columns number-to-string "MAN_KEEP_FORMATTING" "1" call-process format " " string-match "%s" "" fboundp make-process " %s" " %s 2>" windows-nt " <" " | " mapconcat #[257 "\211;\204	\300\301!\210\207" [error "Malformed Man-filter-list"] 3 "\n\n(fn PHRASE)"] Man-fontify-manpage Man-cleanup-manpage search-backward search-forward locale-coding-system default-directory coding-system-for-write window-system shell-file-name shell-command-switch manual-program Man-switches null-device system-type Man-filter-list Man-fontify-manpage-flag case-fold-search] 22 (#$ . 31818) [nil (man-common)]])
(defvar Man--window-state-change-timer nil)
#@15 

(fn WINDOW)
(defalias 'Man--window-state-change #[257 "\250?\205\302	!\203\303	!\210\304\305\306\307$\211\207" [Man-width Man--window-state-change-timer timerp cancel-timer run-with-idle-timer 1 nil Man-fit-to-window] 6 (#$ . 33526)])
#@80 Adjust width of the buffer to fit columns into WINDOW boundaries.

(fn WINDOW)
(defalias 'Man-fit-to-window #[257 "\301
!\2050r\302
!q\210\303\304!\205/\300 =?\205/\305p!\211\205'\306
!\307=??\205-\310 \262
)\207" [Man-columns window-live-p window-buffer derived-mode-p Man-mode get-buffer-process process-status exit Man-update-manpage] 4 (#$ . 33776)])
#@139 Notify the user when MAN-BUFFER is ready.
See the variable `Man-notify-method' for the different notification behaviors.

(fn MAN-BUFFER)
(defalias 'Man-notify-when-ready #[257 "r\211q\210)	\303\267\202n\212\304\n!\305\306!\"\210\307\306!\310\"\210\311
!\206'\312
!\262
)\207\313!\207\314
!\2039\312
!\210\315!\210\316 \207\314
!\203J\312
!\210\315!\207\314
!\203X\312
!\210\317\320\"\207\321 \210\322\323\324!\"\207\322\323\324!\"\207\322\325!\207" [Man-original-frame Man-notify-method Man-frame-parameters #s(hash-table size 7 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (newframe 12 pushy 43 bully 47 aggressive 64 friendly 78 polite 93 quiet 103)) make-frame set-window-buffer frame-selected-window set-window-dedicated-p t display-multi-frame-p select-frame switch-to-buffer frame-live-p pop-to-buffer delete-other-windows display-buffer not-this-window beep message "Manual buffer %s is ready" buffer-name ""] 6 (#$ . 34144)])
(defalias 'Man-softhyphen-to-minus #[0 "\301\302\303\304\303\305\306&\306=?\205\"eb\210\307\310\304\306#\205\"\311\312!\210\202\207" [current-language-environment compare-strings "latin-" 0 nil 6 t search-forward "­" replace-match "-"] 8])
#@112 Convert overstriking and underlining to the correct fonts.
Same for the ANSI bold and normal escape sequences.
(defalias 'Man-fontify-manpage #[0 "eb\210\305\306ed\"\210*\307\310 \311d!W\203Peb\210\312\313\314\307#\2036m\2046\315\316!\210\317``T\320\321$\210\202eb\210\312\322\314\307#\203P\315\316!\210\317`S`\320\321$\210\2029eb\210\312\323\314\307#\203nm\204n\315\324!\210\317``T\320\321$\210\202Seb\210\312\325\314\307#\203\210\315\324!\210\317`S`\320\321$\210\202qeb\210\326\327\314\307#\203\242\330\331!\210\317`S`\320\332$\210\202\213eb\210\326\333\314\307#\203\274\330\334!\210\317`S`\320\335$\210\202\245eb\210\326\336\314\307#\203\326\330\337!\210\317`S`\320\335$\210\202\277eb\210\326\340\314\307#\203\350\315\324!\210\202\331eb\210\341 \210\342 \210eb\210\326\f\314\307#\205
\317\343\224\343\225\320\332$\210\202\364)\207" [Man-ansi-color-basic-faces-vector ansi-color-basic-faces-vector ansi-color-apply-face-function buffer-undo-list Man-heading-regexp ansi-color-apply-text-property-face ansi-color-apply-on-region t buffer-size position-bytes search-forward "__" nil backward-delete-char 4 put-text-property font-lock-face Man-underline "__" "_" 2 "_" re-search-forward "\\(.\\)\\(+\\1\\)+" replace-match "\\1" Man-overstrike "o\\+\\|\\+o" "o" bold "[-|]\\([-|]\\)+" "+" "." Man-highlight-references Man-softhyphen-to-minus 0] 5 (#$ . 35367) [nil (man-common)]])
#@356 Highlight the references on mouse-over.
References include items in the SEE ALSO section,
header file (#include <foo.h>), and files in FILES.
If optional argument XREF-MAN-TYPE is non-nil, it used as the
button type for items in SEE ALSO section.  If it is nil, the
default type, `Man-xref-man-page' is used for the buttons.

(fn &optional XREF-MAN-TYPE)
(defalias 'Man-highlight-references #[256 "\204\306\307\310\"\203%\311\312	\313\314\206\315%\210\311\312\n\313\314\206#\315%\207\311	\313\314\206/\315%\210\311\f
\316\317\320%\210\311\316\211\321%\207" [Man-arguments Man-reference-regexp Man-apropos-regexp Man-see-also-regexp Man-synopsis-regexp Man-header-regexp "" string-match "-k " Man-highlight-references0 nil 1 Man-default-man-entry Man-xref-man-page 0 2 Man-xref-header-file Man-xref-normal-file Man-files-regexp Man-normal-file-regexp] 7 (#$ . 36790)])
#@52 

(fn START-SECTION REGEXP BUTTON-POS TARGET TYPE)
(defalias 'Man-highlight-references0 #[1285 "\203\n\300!\205T\203\301y\210\302 \210\212\303\301!\210`)\202\"eb\210\304\305\306#\205R\307\224\225\310\311\247\203?\312	!\202L\313	!\203K\202L\304&\210\202\"\262
\207" [Man-find-section 1 back-to-indentation Man-next-section nil re-search-forward t make-button type Man-target-string match-string functionp] 14 (#$ . 37682)])
#@249 Remove overstriking and underlining from the current buffer.
Normally skip any jobs that should have been done by the sed script,
but when called interactively, do those jobs even if the sed
script would have done them.

(fn &optional INTERACTIVE)
(defalias 'Man-cleanup-manpage #[256 "\211\204\204beb\210\301\302\303\304#\203\305\306!\210\202eb\210\301\307\303\304#\203,\305\306!\210\202eb\210\310\311\303\304#\203>\312\313!\210\202/eb\210\310\314\303\304#\203P\312\315!\210\202Aeb\210\310\316\303\304#\203b\312\317!\210\202Seb\210\310\320\303\304#\203t\312\321!\210\202eeb\210\310\322\303\304#\203\206\305\306!\210\202w\323 \207" [Man-sed-script search-forward "_" nil t backward-delete-char 2 "_" re-search-forward "\\(.\\)\\(\\1\\)+" replace-match "\\1" "\\[[0-9]+m" "" "o\\+\\|\\+o" "o" "[-|]\\([-|]\\)+" "+" "." Man-softhyphen-to-minus] 5 (#$ . 38138) ["p" (man-common)]])
#@323 Manpage background process filter.
When manpage command is run asynchronously, PROCESS is the process
object for the manpage command; when manpage command is run
synchronously, PROCESS is the name of the buffer where the manpage
command is run.  Second argument STRING is the entire string of output.

(fn PROCESS STRING)
(defalias 'Man-bgproc-filter #[514 "\212\302!\303
!\204\304\305\"\202Jr\211q\210\306\307\310!!
\212\211b\210c\210\214\212\211b\210\311\312!\210`)`}\210	\203<\313 \210\202?\314 \210)\310!d\305\223*\266\202)\262
)\207" [inhibit-read-only Man-fontify-manpage-flag process-buffer buffer-live-p set-process-buffer nil t marker-position process-mark Man-previous-section 1 Man-fontify-manpage Man-cleanup-manpage] 8 (#$ . 39053)])
#@331 Manpage background process sentinel.
When manpage command is run asynchronously, PROCESS is the process
object for the manpage command; when manpage command is run
synchronously, PROCESS is the name of the buffer where the manpage
command is run.  Second argument MSG is the exit message of the
manpage command.

(fn PROCESS MSG)
(defalias 'Man-bgproc-sentinel #[514 "
;\203\306!\202\307!\310\211\311!\204 ;\206N
\312\310\"\207rq\210\212\310\313eb\210\314\315!\2048\314\316!\203F`\310\210`{\262
\313\262\202\263\317\320\n\"\203o\321!\322=\203o\323!\324U\203oedU\203o\325\326\n\"\262
\313\262\202\263;\204\204\321!\322=\203\204\323!\324U\204\263G\324U\204\263\327!\330GS
H\331U\203\243\324O\202\245\262
Q\262
db\210\325\332\"c\210
\204
\333\334!\210\335 \210\336 \210\337 \210\340\341\313\"\210\204\361\n\313\262\317\342\"\203\346\343\344\310\211$\345
!\266\202
\325\346\347!\"\266\202\202
\f\203
\325\350\347\n!\"\262
\202
\325\351\347\n!\"\262
\352!\203
\321!\322=\203
\310\353\310!\210,
\203F
\354\355\313\"!\203B
\356\355\313\"\357\"\210\360 \354
!\203>
\361
!\210\210\202F
\362!\210\211\205N
\363\364\"\207" [inhibit-read-only case-fold-search Man-arguments Man-page-list Man-fontify-manpage-flag mode-line-process get-buffer process-buffer nil buffer-live-p set-process-buffer t looking-at "No \\(manual \\)*entry for" "[^\n]*: nothing appropriate$" string-match "\\(\\`\\|\\s-\\)-k\\s-" process-status exit process-exit-status 0 format "%s: no matches" buffer-name ": process " 10 "\nprocess %s" run-hooks Man-cooked-hook Man-build-page-list Man-strip-page-headers Man-unindent Man-goto-page 1 "[-‐­]" replace-match "" Man-getpage-in-background "Can't find the %s manpage" Man-page-from-arguments "%s man page formatted" "%s man page cleaned up" processp set-buffer-modified-p window-live-p get-buffer-window quit-restore-window kill old-selected-window select-window kill-buffer message "%s"] 11 (#$ . 39818)])
#@13 

(fn ARGS)
(defalias 'Man-page-from-arguments #[257 "\300\301\302\303\304\305\306\307\"\"\"\307#\207" [mapconcat identity delete nil mapcar #[257 "\300\301\"?\205	\211\207" [string-match "^-"] 4 "\n\n(fn ELEM)"] split-string " "] 10 (#$ . 41813)])
(defvar man-common-hook nil)
(byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [man-common-hook variable-documentation put "Hook run after entering Man Shared mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp man-common-map definition-name man-common] 4)
(defvar man-common-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" [man-common-abbrev-table man-common-map variable-documentation put purecopy "Keymap for `man-common'." boundp man-common-syntax-table definition-name man-common (lambda (#1=#:def-tmp-var) (defvar man-common-syntax-table #1#)) make-syntax-table "Syntax table for `man-common'." (lambda (#1#) (defvar man-common-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `man-common'." derived-mode-parent special-mode] 5)
#@382 Parent mode for `Man-mode' like modes.
This mode is here to be inherited by modes that need to use
commands from `Man-mode'.  Used by `woman'.
(In itself, this mode currently does nothing.)

In addition to any hooks its parent mode `special-mode' might have
run, this mode runs the hook `man-common-hook', as the final or
penultimate step during initialization.

\{man-common-map}
(defalias 'man-common #[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
=\204R\326
\325C#\210\327!\210\330\f!\210
)\331\332!\207" [delay-mode-hooks major-mode mode-name man-common-map man-common-syntax-table man-common-abbrev-table make-local-variable t special-mode man-common "Man Shared" 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 run-mode-hooks man-common-hook local-abbrev-table] 5 (#$ . 43204)])
(defvar Man-mode-hook nil)
(byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [Man-mode-hook variable-documentation put "Hook run after entering Man mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp Man-mode-map definition-name Man-mode] 4)
(defvar Man-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" [Man-mode-abbrev-table Man-mode-map variable-documentation put purecopy "Keymap for `Man-mode'." boundp Man-mode-syntax-table definition-name Man-mode (lambda (#1=#:def-tmp-var) (defvar Man-mode-syntax-table #1#)) make-syntax-table "Syntax table for `Man-mode'." (lambda (#1#) (defvar Man-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `Man-mode'." derived-mode-parent man-common] 5)
#@1856 A mode for browsing Un*x manual pages.

The following man commands are available in the buffer.  Try
"\[describe-key] <key> RET" for more information:

\[man]       Prompt to retrieve a new manpage.
\[Man-follow-manual-reference]       Retrieve reference in SEE ALSO section.
\[Man-next-manpage]     Jump to next manpage in circular list.
\[Man-previous-manpage]     Jump to previous manpage in circular list.
\[Man-next-section]       Jump to next manpage section.
\[Man-previous-section]       Jump to previous manpage section.
\[Man-goto-section]       Go to a manpage section.
\[Man-goto-see-also-section]       Jumps to the SEE ALSO manpage section.
\[quit-window]       Deletes the manpage window, bury its buffer.
\[Man-kill]       Deletes the manpage window, kill its buffer.
\[describe-mode]       Prints this help text.

The following variables may be of some use.  Try
"\[describe-variable] <variable-name> RET" for more information:

`Man-notify-method'		What happens when manpage is ready to display.
`Man-downcase-section-letters-flag' Force section letters to lower case.
`Man-circular-pages-flag'	Treat multiple manpage list as circular.
`Man-section-translations-alist' List of section numbers and their Un*x equiv.
`Man-filter-list'		Background manpage filter command.
`Man-mode-map'			Keymap bindings for Man mode buffers.
`Man-mode-hook'			Normal hook run on entry to Man mode.
`Man-section-regexp'		Regexp describing manpage section letters.
`Man-heading-regexp'		Regexp describing section headers.
`Man-see-also-regexp'		Regexp for SEE ALSO section (or your equiv).
`Man-first-heading-regexp'	Regexp for first heading on a manpage.
`Man-reference-regexp'		Regexp matching a references in SEE ALSO.
`Man-switches'			Background `man' command switches.

The following key bindings are currently in effect in the buffer:
\{Man-mode-map}
(defalias 'Man-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
.=\204R\326
\325.C#\210\327!\210\330\f!\210
.\331/\332\333!\334\335\336F\3070\337 \210\340\341!\210\3311\342EC2\3433!\210\306\344!\2101$\306\345!\210\346%\306\347!\210\350'\351\352\353\331\307$\210)\354\355!\207" [delay-mode-hooks major-mode mode-name Man-mode-map Man-mode-syntax-table Man-mode-abbrev-table make-local-variable t man-common Man-mode "Man" 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 nil default-value mode-line-buffer-identification " {" Man-page-mode-string "}" buffer-disable-undo auto-fill-mode -1 0 imenu-add-to-menubar outline-regexp outline-level #[0 "\300\207" [1] 1] bookmark-make-record-function Man-bookmark-make-record add-hook window-state-change-functions Man--window-state-change run-mode-hooks Man-mode-hook local-abbrev-table buffer-auto-save-file-name truncate-lines Man-heading-regexp imenu-generic-expression man-imenu-title] 5 (#$ . 45401) nil])
#@37 Build the list of manpage sections.
(defalias 'Man-build-section-list #[0 "\303eb\210\303\304\n\303\305#\203#\306\307!\211\235\204\211B\210\303y\210\202)\237\211\207" [Man--sections case-fold-search Man-heading-regexp nil re-search-forward t match-string 1] 4 (#$ . 48535)])
#@57 Build the list of references (in the SEE ALSO section).
(defalias 'Man-build-references-alist #[0 "\304\212\305	!\203v\306y\210`\307\306!\210`\304\310\214}\210eb\210\311 \210m\204s`
U\204s`\262
\312\n\313#\203l\314\315!\211GS\203KP\262\304\262
GS\262


H\316>\203Y
\315O\262\317\"\203j
\235\204j
B\266\320\304w\210\202)\266)\237\211\207" [Man--refpages Man-see-also-regexp Man-hyphenated-reference-regexp Man-reference-regexp nil Man-find-section 1 Man-next-section -1 back-to-indentation re-search-forward t match-string 0 (45 173) string-match " 	\n,"] 9 (#$ . 48828)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put Man-build-references-alist speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@52 Build the list of separate manpages in the buffer.
(defalias 'Man-build-page-list #[0 "\303ed\304b\210m?\205N\305	!\205\306\307!\262
\310\n\303\311\312$\2038\313 \210`\314\315\303\316\317$\210\310	\311#\2037\313 \210\210`\262\320\321!\321!EC\"
\262\202\207" [Man-page-list Man-page-header-regexp Man-first-heading-regexp nil "" looking-at match-string 1 re-search-forward move 2 beginning-of-line search-backward "\n\n" t 3 append copy-marker] 9 (#$ . 49588)])
#@60 Strip all the page headers but the first from the manpage.
(defalias 'Man-strip-page-headers #[0 "\304\305\306
\n\211\205E\211@\307
8\203>\211@b\203>\310\305\304#\203>\211@\311\224{\211\262\203>\312A@\304#\203>\313\306!\210\202-
A\266\202\202\262
*\207" [case-fold-search inhibit-read-only Man-page-list Man-first-heading-regexp t nil "" 2 re-search-forward 0 search-forward replace-match] 9 (#$ . 50072)])
#@52 Delete the leading spaces that indent the manpage.
(defalias 'Man-unindent #[0 "\306\307\n\211\205\222\211@\310\311@A@}\210\203\"\312\fB\313ed\"\210)\3142teb\210\315
\307\306#\2046\316\314\307\"\210\317 \210`\320\307w\210`{\262
G\262
\211\311U\203Q\316\314\307\"\210
\321P\262eb\210m\204q\322!\203i\323y\210\202Y\316\314\307\"\210\202Yeb0\203\211m\204\211l\204\203\324
!\210\323y\210\202w\266
A\266\202\202\262
*\207" [case-fold-search inhibit-read-only Man-page-list Man-uses-untabify-flag text-property-default-nonsticky Man-first-heading-regexp t nil "" 0 (face . t) untabify unindent re-search-forward throw beginning-of-line " " "\\|$" looking-at 1 delete-char] 8 (#$ . 50501)])
#@53 Move point to Nth next section (default 1).

(fn N)
(defalias 'Man-next-section #[257 "\302`
\303	!\203
\304y\210\305	d\306$\203\307 \210\202#db\210\310y\210`
W\205+\211b)\207" [case-fold-search Man-heading-regexp nil looking-at 1 re-search-forward t beginning-of-line -1] 8 (#$ . 51216) ["p" (man-common)]])
#@57 Move point to Nth previous section (default 1).

(fn N)
(defalias 'Man-previous-section #[257 "\302\303	!\203\304y\210\305	e\306$\203\307 \202eb)\207" [case-fold-search Man-heading-regexp nil looking-at -1 re-search-backward t beginning-of-line] 6 (#$ . 51539) ["p" (man-common)]])
#@125 Move point to SECTION if it exists, otherwise don't move point.
Returns t if section is found, nil otherwise.

(fn SECTION)
(defalias 'Man-find-section #[257 "`\301eb\210\302\303Pd\304#\203\305 \210\304\202\211b\210\301)\207" [case-fold-search nil re-search-forward "^" t beginning-of-line] 6 (#$ . 51836)])
(defvar Man--last-section nil)
#@38 Move point to SECTION.

(fn SECTION)
(defalias 'Man-goto-section #[257 "\211\301
!?\205
\302\303\"\207" [Man--last-section Man-find-section error "Section %s not found"] 4 (#$ . 52187) [(byte-code "	\235\203\n\202\f	@\303\304
\305Q\306
	\307\211\211\211&)\211C\207" [Man--last-section Man--sections completion-ignore-case t "Go to section (default " "): " completing-read nil] 10) (man-common)]])
#@108 Move point to the "SEE ALSO" section.
Actually the section moved to is described by `Man-see-also-regexp'.
(defalias 'Man-goto-see-also-section #[0 "\301!?\205\302\303\304\305Q\"\207" [Man-see-also-regexp Man-find-section error "%s" "No " " section found in the current manpage"] 5 (#$ . 52602) [nil (man-common)]])
#@334 Return a possibly hyphenated word at point.
If the word starts at the first non-whitespace column, and the
previous line ends with a hyphen, return the last word on the previous
line instead.  Thus, if a reference to "tcgetpgrp(3V)" is hyphenated
as "tcgetp-grp(3V)", and point is at "grp(3V)", we return
"tcgetp-" instead of "grp".
(defalias 'Man-possibly-hyphenated-word #[0 "\212\300\301!\210\302\303w\210`\304 
\212\305 \210`)=\203&\306\210`Sf\307=\203&\304 \262
\262
)\207" [skip-syntax-backward "w()" " 	" nil current-word back-to-indentation 0 45] 4 (#$ . 52929)])
(defvar Man--last-refpage nil)
#@147 Get one of the manpages referred to in the "SEE ALSO" section.
Specify which REFERENCE to use; default is based on word at point.

(fn REFERENCE)
(defalias 'Man-follow-manual-reference #[257 "\204\302\303!\207\211\304\305!!\207" [Man--refpages Man--last-refpage error "Can't find any references in the current manpage" Man-getpage-in-background Man-translate-references] 4 (#$ . 53542) [(byte-code "\204\302\303!\207\304\305 \206\306\307\310\"\203\211\311\211\224O\202\211\262
\"@\2063	\235\2031	\2023@\312\313B\"\314\315Q\316
\317\211\211\211&\266\203C\207" [Man--refpages Man--last-refpage error "There are no references in the current man page" all-completions Man-possibly-hyphenated-word "" string-match "-$" 0 mapcar substring-no-properties "Refer to (default " "): " completing-read nil] 11) (man-common)]])
#@41 Kill the buffer containing the manpage.
(defalias 'Man-kill #[0 "\300\301!\207" [quit-window t] 2 (#$ . 54391) [nil (man-common)]])
#@66 Go to the manual page on page PAGE.

(fn PAGE &optional NOERROR)
(defalias 'Man-goto-page #[513 "\204\f\211\204\f\306\307!\210\205\311
\310W\204
GV\203\"\311\312\"\210
S8\211@
A@\313\314\315	S88\2069\316	G$~\210
b\210

}\210\317 \210\320\212\321\f!\203\301\310y\210`\322\310!\210`\320\323\214}\210eb\210\324 \210m\204\276`
U\204\276`\262
\325
\326#\203\267\327\330!\211GS\203\225P\262\320\262
GS\262


H\331>\203\243
\330O\262\332\"\203\265
\235\204\265
B\266\333\320w\210\202i)\266)\237eb\266\203\207" [Man-page-list Man-current-page Man-page-mode-string Man--refpages Man-see-also-regexp Man-hyphenated-reference-regexp error "Not a man page buffer" 1 user-error "No manpage %d found" format "%s page %d of %d" 2 "" Man-build-section-list nil Man-find-section Man-next-section -1 back-to-indentation re-search-forward t match-string 0 (45 173) string-match " 	\n," Man-reference-regexp] 14 (#$ . 54529) [(byte-code "\204\301\302!\207G\303U\203\301\304!\207\305\306\307G\"!C\207" [Man-page-list error "Not a man page buffer" 1 "You're looking at the only manpage in the buffer" read-minibuffer format "Go to manpage [1-%d]: "] 4) (man-common)]])
#@44 Find the next manpage entry in the buffer.
(defalias 'Man-next-manpage #[0 "G\303U\203\304\305!\210	GW\203\306	T!\207\n\203\306\303!\207\304\307!\207" [Man-page-list Man-current-page Man-circular-pages-flag 1 error "This is the only manpage in the buffer" Man-goto-page "You're looking at the last manpage in the buffer"] 2 (#$ . 55736) [nil (man-common)]])
#@48 Find the previous manpage entry in the buffer.
(defalias 'Man-previous-manpage #[0 "G\303U\203\304\305!\210	\303V\203\306	S!\207\n\203\306G!\207\304\307!\207" [Man-page-list Man-current-page Man-circular-pages-flag 1 error "This is the only manpage in the buffer" Man-goto-page "You're looking at the first manpage in the buffer"] 2 (#$ . 56108) [nil (man-common)]])
#@78 View a header file specified by FILE from `Man-header-file-path'.

(fn FILE)
(defalias 'Man-view-header-file #[257 "\301
\203'\302@\"\262

A\262\303
!\203!\304
!\210\301\262\202\301\262
\202\207" [Man-header-file-path nil expand-file-name file-readable-p view-file] 6 (#$ . 56489)])
#@77 Default bookmark name for Man or WoMan pages.
Uses `Man-name-local-regexp'.
(defalias 'Man-default-bookmark-title #[0 "\212eb\210\301\302\303#\205\304\302w\210\305`\306 \")\207" [Man-name-local-regexp re-search-forward nil t "\n	 " buffer-substring-no-properties line-end-position] 4 (#$ . 56789)])
#@41 Make a bookmark entry for a Man buffer.
(defalias 'Man-bookmark-make-record #[0 "\301 \302\303\304!\305\306PB\307B\310BB\"B\207" [Man-arguments Man-default-bookmark-title append bookmark-make-record-default no-file location "man " man-args ((handler . Man-bookmark-jump))] 6 (#$ . 57097)])
#@58 Default bookmark handler for Man buffers.

(fn BOOKMARK)
(defalias 'Man-bookmark-jump #[257 "\301
\302\"\303\304
!\305
!\211\203\306
!\307=\203\310
!\210\202\f\311\312\313B\314!BB!)\207" [Man-notify-method bookmark-prop-get man-args meek Man-getpage-in-background get-buffer-process process-status run accept-process-output bookmark-default-handler "" buffer bookmark-get-bookmark-record] 9 (#$ . 57395)])
(byte-code "\300 \210\301\302!\207" [Man-init-defvars provide man] 2)