;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:25 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/man.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

;;; This file contains utf-8 non-ASCII characters,
;;; and so cannot be loaded into Emacs 22 or earlier.
(and (boundp 'emacs-version)
     (< (aref emacs-version (1- (length emacs-version))) ?A)
     (string-lessp emacs-version "23")
     (error "`%s' was compiled for Emacs 23 or later" #$))

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


(byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\310\311\312\311\313&	\210\314\315\305\316\317\320\311\304&\207" [require ansi-color button custom-declare-group man nil "Browse UNIX manual pages." :prefix "Man-" :group external help custom-declare-variable Man-filter-list "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 (#$ . 1379))
#@65 Script for sed to nuke backspaces and ANSI codes from manpages.
(defvar Man-sed-script nil (#$ . 1495))
(byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313\306\307\314\315&\210\310\316\317\320\306\307\314\315&\210\310\321\322\323\306\307\314\315&\207" [custom-declare-variable Man-fontify-manpage-flag t "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)
#@43 The value used here for `ansi-color-map'.
(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) (#$ . 2183))
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\313\306\307&\210\300\314\311\315\304\316\306\307&\210\300\317\320\321\304\322\306\307&\210\300\323\320\324\304\322\306\307&\210\300\325\326\327\304\330\306\307&\210\300\331\332\333\334\335\304\336\306\307&	\210\300\337\340\341\334\335\304\342\306\343&	\210\300\344\345\346\304\342\306\307&\210\300\347\350\351\304\342\306\307&\210\300\352\353\354\304\355\306\307&\210\300\356\357\360\304\342\306\307&\210\300\361\362\363\304\342\306\307&\210\300\364\311\365\304\366\306\307&\210\300\367\311\370\304\366\306\307&\207" [custom-declare-variable Man-notify-method (if (boundp 'Man-notify) Man-notify 'friendly) "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 nil "Number of columns for which manual pages should be formatted.\nIf nil, the width of the window selected at the moment of man\ninvocation is used.  If non-nil, the width of the frame selected\nat the moment of man invocation is used.  The value also can be a\npositive integer." (choice (const :tag "Window width" nil) (const :tag "Frame width" t) (integer :tag "Specific width" :value 65)) Man-frame-parameters "Frame parameter list for creating a new frame for a manual page." sexp Man-downcase-section-letters-flag t "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 "Non-nil means the manpage list is treated as circular for traversal." Man-section-translations-alist (list '("3C++" . "3") '("3X11" . "3") '("1-UCB" . "")) "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 (let ((arch (with-temp-buffer (when (eq 0 (ignore-errors (call-process "gcc" nil '(t nil) nil "-print-multiarch"))) (goto-char (point-min)) (buffer-substring (point) (line-end-position))))) (base '("/usr/include" "/usr/local/include"))) (if (zerop (length arch)) base (append base (list (expand-file-name arch "/usr/include"))))) "C Header file search path used in Man." :version "24.1" (repeat string) Man-name-local-regexp (concat "^" (regexp-opt '("NOM" "NAME")) "$") "Regexp that matches the text that precedes the command's name.\nUsed in `bookmark-set' to get the default bookmark name." string bookmark manual-program "man" "Program used by `man' to produce man pages." Man-untabify-command "pr" "Program used by `man' for untabifying." Man-untabify-command-args (list "-t" "-e") "List of arguments to be passed to `Man-untabify-command' (which see)." (repeat string) Man-sed-command "sed" "Program used by `man' to process sed scripts." Man-awk-command "awk" "Program used by `man' to process awk scripts." Man-mode-hook "Hook run when Man mode is enabled." hook Man-cooked-hook "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 "[-a-zA-Z0-9_­+][-a-zA-Z0-9_.:­+]*" (#$ . 6805))
#@69 Regular expression describing a manpage section within parentheses.
(defvar Man-section-regexp "[0-9][a-zA-Z0-9+]*\\|[LNln]" (#$ . 6957))
#@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\\." "^[-A-Za-z0-9_].*[ 	]\\(" "(\\(" "\\))\\)$" "^[ 	]*\\(" "\\))\\).*\\1"] 5) (#$ . 7101))
#@56 Regular expression describing a manpage heading entry.
(defvar Man-heading-regexp "^\\([A-Z][A-Z0-9 /-]+\\)$" (#$ . 7443))
#@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" (#$ . 7573))
#@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.*$" (#$ . 7745))
#@63 Regular expression describing a reference to another manpage.
(defvar Man-reference-regexp (concat "\\(" Man-name-regexp "\\(\n[ 	]+" Man-name-regexp "\\)*\\)[ 	]*(\\(" Man-section-regexp "\\))") (#$ . 7953))
#@75 Regular expression describing a reference to manpages in "man -k output".
(defvar Man-apropos-regexp (concat "\\[\\(" Man-name-regexp "\\)\\][ 	]*(\\(" Man-section-regexp "\\))") (#$ . 8168))
#@114 Regular expression for SYNOPSIS heading (or your equivalent).
This regexp should not start with a `^' character.
(defvar Man-synopsis-regexp "SYNOPSIS" (#$ . 8367))
#@111 Regular expression for FILES heading (or your equivalent).
This regexp should not start with a `^' character.
(defvar Man-files-regexp "FILES\\>" (#$ . 8539))
#@64 Regular expression describing the #include (directive of cpp).
(defvar Man-include-regexp "#[ 	]*include[ 	]*" (#$ . 8704))
#@71 Regular expression describing <> in #include line (directive of cpp).
(defvar Man-file-name-regexp "[^<>\", 	\n]+" (#$ . 8834))
#@70 Regular expression describing a file path appeared in FILES section.
(defvar Man-normal-file-prefix-regexp "[/~$]" (#$ . 8968))
#@59 Regular expression describing references to header files.
(defvar Man-header-regexp (concat #1="\\(" Man-include-regexp #2="\\)" "[<\"]" #1# Man-file-name-regexp #2# "[>\"]") (#$ . 9102))
#@59 Regular expression describing references to normal files.
(defvar Man-normal-file-regexp (concat Man-normal-file-prefix-regexp Man-file-name-regexp) (#$ . 9296))
#@68 Regular expression describing a reference in the SEE ALSO section.
(defvar Man-hyphenated-reference-regexp (concat "\\(" Man-name-regexp "\\)\\((\\(" Man-section-regexp "\\))\\)?") (#$ . 9464))
#@174 Switches passed to the man command, as a single string.
For example, the -a switch lets you see all the manpages for a
specified subject, if your `man' program supports it.
(custom-declare-variable 'Man-switches "" '(#$ . 9665) :type 'string :group 'man)
#@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) (#$ . 9926))
#@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 (#$ . 10153))
(byte-code "\300\301!\210\300\302!\210\303\302\304\305#\207" [make-variable-buffer-local Man-original-frame Man-arguments put permanent-local t] 4)
(defvar Man--sections nil)
(make-variable-buffer-local 'Man--sections)
(defvar Man--refpages nil)
(make-variable-buffer-local 'Man--refpages)
(defvar Man-page-list nil)
(make-variable-buffer-local 'Man-page-list)
(defvar Man-current-page 0)
(make-variable-buffer-local 'Man-current-page)
(defvar Man-page-mode-string "1 of 1")
(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" (#$ . 10968))
#@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" (#$ . 11229))
#@21 Topic read history.
(defvar Man-topic-history nil (#$ . 11514))
#@40 Syntax table used in Man mode buffers.
(defvar man-mode-syntax-table (byte-code "\301\302 !\303\304\305#\210\303\306\305#\210\303\307\305#\210)\207" [table copy-syntax-table standard-syntax-table modify-syntax-entry 46 "w" 95 58] 4) (#$ . 11584))
#@22 Keymap for Man mode.
(defvar Man-mode-map (byte-code "\302 \303!\210\304	\"\210\305\306\307#\210\305\310\311#\210\305\312\313#\210\305\314\315#\210\305\316\317#\210\305\320\321#\210\305\322\323#\210\305\324\325#\210\305\326\325#\210\305\327\330#\210\305\331\332#\210\305\333\334#\210\305\335\336#\210\305\337\340#\210\305\341\342#\210\305\343\344#\210\305\345\346#\210)\207" [map button-buffer-map make-sparse-keymap suppress-keymap set-keymap-parent define-key " " scroll-up-command "" scroll-down-command "n" Man-next-section "p" Man-previous-section "n" Man-next-manpage "p" Man-previous-manpage ">" end-of-buffer "<" beginning-of-buffer "." "r" Man-follow-manual-reference "g" Man-goto-section "s" Man-goto-see-also-section "k" Man-kill "q" Man-quit "m" man "
" man-follow "?" describe-mode] 4) (#$ . 11842))
(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)
(defalias 'Man-xref-button-action #[(button) "\302\303\"\302\304\"	\204\305!\202\"\306	!\203!	\307!!\202\"	!)\207" [button target button-get Man-target-string func button-label functionp button-start] 4])
(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 #[(button) "\302\303\"\304	!?\205\305\306	\")\207" [button w button-get Man-target-string Man-view-header-file error "Cannot find header file: %s"] 3] follow-link t help-echo "mouse-2: display this header file" Man-xref-normal-file #[(button) "\302\303\304\"!\305	!\203 \306	!\203\307	!\202$\310\311	\"\202$\310\312	\")\207" [button f 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"] 4] "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 #[nil "\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 (#$ . 13827)])
#@45 Formats part of the mode line for Man mode.
(defalias 'Man-make-page-mode-string #[nil "\302\303\304S	88\206\f\305	G$\207" [Man-current-page Man-page-list format "%s page %d of %d" 2 ""] 5 (#$ . 15920)])
(put 'Man-make-page-mode-string 'byte-optimizer 'byte-compile-inline-expand)
#@60 Builds the entire background manpage and cleaning command.
(defalias 'Man-build-man-command #[nil "\306	\307\310\"\203\311\202\312\313!\204\314\202\315\nPR\f\203G\f@\203G\f@@\f@A
\316\306\317\320\306#\260\fA*\202
*\207" [manual-program Man-switches null-device Man-filter-list flist command " " string-match "%s" "" fboundp start-process " %s" " %s 2>" " | " mapconcat #[(phrase) ";\204	\301\302!\210\207" [phrase error "Malformed Man-filter-list"] 2] pargs pcom] 8 (#$ . 16210)])
(put 'Man-build-man-command 'byte-optimizer 'byte-compile-inline-expand)
#@44 Strip leading, trailing and middle spaces.
(defalias 'Man-translate-cleanup #[(string) ";\205\301\302\"\203\303\304\"\305\306\307#\305\310\307#\211\207" [string string-match "^[ 	\f
\n]*\\(.+[^ 	\f
\n]\\)" match-string 1 replace-regexp-in-string "[	
\n]" " " "  +"] 5 (#$ . 16801)])
#@238 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).
(defalias 'Man-translate-references #[(ref) "\306\211\307\f!\310\311
\312Q\f\"\203%\313\314\306\315\316\f\"#\315\317\f\"\202>\310\320\321\322\260\f\"\203>\315\323\f\"\315\316\f\"\306\230\203H\f\202\214\203P\n\227	\203\206	@@	@A	A\203k\227\n\230\203\202\203}\227\202\324*\202P\n\325R+\207" [Man-section-translations-alist slist section name ref Man-reference-regexp "" Man-translate-cleanup string-match "^" "$" replace-regexp-in-string "[\n	 ]" match-string 1 3 "^\\(" "\\) +\\(" "\\)$" 2 nil " " Man-section-regexp Man-name-regexp Man-downcase-section-letters-flag s2 s1 Man-specified-section-option] 6 (#$ . 17103)])
#@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 #[nil "\303=\203A\304\305!r	q\210\306\216\307\n!\203 \310\n!\203 \n\202#\311\312!\313\314\315\217\210)\316\317\313\320#\2036\321\202=\322\323!\205=\324+\211\207\207" [Man-support-local-filenames #1=#:temp-buffer default-directory auto-detect generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) file-directory-p file-readable-p expand-file-name "~/" nil (call-process manual-program nil t nil "--help") ((error)) search-backward "--local-file" move man-db looking-at "^man, versione? [1-9]" man] 4 (#$ . 18021)])
#@90 Guess default manual entry based on the text near position POS.
POS defaults to `point'.
(defalias 'Man-default-man-entry #[(&optional pos) "\306\211\211\211\212\f\203\fb\210`\307\306x\203C\310\311\306x!\204C\312\313
\314Q!\203C\315\306x\2037\310\316\306x!\203>\317\225\211\204C`\202\243\fb\210\310\316\306x!\204S`\202\243i\315\306x\210	iZ\320\321
\314Q!\203n\317\224b\210\322\306x\210\310\316\306x!\204\232`\fb\210\315\306w\203\224i	ZW\203\224\312\323!\203\224`\202\243\nb\210\202\243\fb\210\315\306w\210`\316\306w\210\324\n`\"\312\325!\203\274\326\327!P\327\225b\210\330\331\"\203\311\317\211\224O\211\332\230?\205\340\312\333
\314Q!\205\340\334\335\326\327!\"P-\207" [distance column start word pos Man-section-regexp nil " 	a-zA-Z0-9+" zerop "(" looking-at "([ 	]*\\(" "\\)[ 	]*)" ",; 	" "-a-zA-Z0-9._+:" 0 looking-back "([ 	]*\\(?:" " 	" "[-a-zA-Z0-9._+:]" buffer-substring-no-properties "[ 	
\n]+\\([-a-zA-Z0-9._+:]+\\)([0-9])" match-string-no-properties 1 string-match "[._]+$" "" "[ 	]*([ 	]*\\(" format "(%s)"] 5 (#$ . 19037)])
(defalias 'manual-entry 'man)
#@57 Cache of completion table of the form (PREFIX . TABLE).
(defvar Man-completion-cache nil (#$ . 20153))
(defalias 'Man-completion-table #[(string pred action) "\306\232\203
\307	\310\n$\207A\311(\312\313\"\203'\314\315\"\316\225\311O\2033\317@\f\"\204y\320\321!)r)q\210\322\216\323*\324+!+\325\326\327\"\210\311\330\331\217\210)eb\210\332\333\311\334#\203s\335\314\315!\314\336!P\337\314\340!#(B(\202V+\f(B
\203\304\341\342
!\343Q,(\311\211(-\211.\203\265.@-\312,-\"\203\254-\316\211\224O(B(.A\211.\204\223*\344
\345P(\f\n	%)\202\375\312\346\"\203\323\345P(B(\307	(\n$\211/;\203\372\312\347/\"\203\372\316\224\fGV\203\372/\316\211\224O\202\374/)+\207" [string action pred Man-completion-cache prefix section "-k" complete-with-action ("-k ") nil string-match "\\`\\([[:digit:]].*?\\) " match-string 1 0 string-prefix-p generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) "/" copy-sequence setenv "COLUMNS" "999" (byte-code "\302\303\304\303\305\306	P&\207" [manual-program prefix call-process nil (t nil) "-k" "^"] 8) ((error)) re-search-forward "^\\([^ 	\n]+\\)\\(?: ?\\((.+?)\\)\\(?:[ 	]+- \\(.*\\)\\)?\\)?" t propertize 2 help-echo 3 "(" regexp-quote ")\\'" completion-table-with-context " " "\\`[[:digit:]]" "([^(]*\\'" table #1# default-directory process-environment re comp --dolist-tail-- res] 7])
#@1129 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.  See variable `Man-notify-method' for what happens when
the buffer is ready.  If a buffer already exists for this man
page, it will display immediately.

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
"egrep" style regexp.

    -k pattern
(defalias 'man #[(man-args) "\301!\302!\207" [man-args Man-translate-references Man-getpage-in-background] 2 (#$ . 21602) (list (let* ((default-entry (Man-default-man-entry)) (completion-ignore-case t) (input (completing-read (format "Manual entry%s" (if (string= default-entry #1="") ": " (format " (default %s): " default-entry))) 'Man-completion-table nil nil nil 'Man-topic-history default-entry))) (if (string= input #1#) (error "No man args given") input)))])
#@72 Get a Un*x manual page of the item under point and put it in a buffer.
(defalias 'man-follow #[(man-args) "\203\n\301\230\203\302\303!\207\304!\207" [man-args "" error "No item under point" man] 2 (#$ . 23205) (list (Man-default-man-entry))])
#@119 Use TOPIC to build and fire off the manpage and cleaning command.
Return the buffer in which the manpage will appear.
(defalias 'Man-getpage-in-background #[(topic) "\306	\307Q\310\n!\211\203\311!\210\202\255
\312\313!\210\314\315\f	#\210\316\n!rq\210\317\320 7	8)\3219!\322\323\324!\203B:\202C\322\325;!\203W\326;\325\"\204W;\202X\327;<=9\330\331\332\"\210>\204v\333\334!\204\232\333\335!\204\232\330\335\336?\250\203\213?\337V\203\213?\202\227?\203\225\340 \202\227\341 !\"\210\330\342\343\"\210\344\345!\203
\346\345\f@\347>\203\265A\202\266\350B\351\f\352C\353\354\f\"\203\310\355\202\326\344\345!\204\322\356\202\326\357DPREFGF\203

F@\203

F@@F@AHIG\360I\352\361\362H\352#\260GFAF*\202\335G*	\"%\363\"\210\202\254
\364A\365\365D\365B\351\f\352C\353\354\f\"\2033
\355\202A
\344\345!\204=
\356\202A
\357DPREFGF\203x
F@\203x
F@@F@AHIG\360I\352\361\362H\352#\260GFAF*\202H
G*	\"&\355J\211K\247\203\220
K\337U\204\245
K\247\203\241
\351\366K\"\211J\204\245
KJ\363\nJ\"\210*,+\207" [topic man-args bufname buffer manual-program buffer-undo-list "*Man " "*" get-buffer Man-notify-when-ready require env message "Invoking %s %s in the background" generate-new-buffer t selected-frame copy-sequence raw-text-unix default-value enable-multibyte-characters file-directory-p find-file-name-handler "/" setenv "TERM" "dumb" getenv "MANWIDTH" "COLUMNS" number-to-string 0 frame-width window-width "MAN_KEEP_FORMATTING" "1" fboundp start-process set-process-sentinel (cygwin windows-nt) "sh" format " " string-match "%s" "" " %s" " %s 2>" " | " mapconcat #[(phrase) ";\204	\301\302!\210\207" [phrase error "Malformed Man-filter-list"] 2] Man-bgproc-sentinel call-process nil "exited abnormally with code %d" Man-original-frame Man-arguments process-environment locale-coding-system default-directory coding-system-for-read coding-system-for-write window-system Man-width system-type shell-file-name shell-command-switch Man-switches null-device Man-filter-list flist command pargs pcom msg exit-status] 16 (#$ . 23461)])
#@122 Notify the user when MAN-BUFFER is ready.
See the variable `Man-notify-method' for the different notification behaviors.
(defalias 'Man-notify-when-ready #[(man-buffer) "rq\210	)\306=\203-\212\307\f!\310\311
!\"\210\312\311
!\313\"\210\314
!\206)\315
!*\202\243\316=\2039\317!\202\243\320=\203R\321\n!\203I\315\n!\210\322!\210\323 \202\243\324=\203h\321\n!\203b\315\n!\210\322!\202\243\325=\203\321\n!\203x\315\n!\210\326\327\"\202\243\330=\203\221\331 \210\332\333\334!\"\202\243\335=\203\240\332\333\334!\"\202\243\332\336!)\207" [man-buffer Man-original-frame saved-frame Man-notify-method Man-frame-parameters frame newframe make-frame set-window-buffer frame-selected-window set-window-dedicated-p t display-multi-frame-p select-frame pushy switch-to-buffer bully frame-live-p pop-to-buffer delete-other-windows aggressive friendly display-buffer not-this-window polite beep message "Manual buffer %s is ready" buffer-name quiet ""] 4 (#$ . 25586)])
(defalias 'Man-softhyphen-to-minus #[nil "\303\304\305\306\305\307\310&\310=?\205-eb\210\311\n\203\312	!\313	\306\310#\205,\314\315!\210\202)\207" [current-language-environment str enable-multibyte-characters compare-strings "latin-" 0 nil 6 t "\255" string-as-multibyte 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 #[nil "\306\307\"\210eb\210\310	\311ed\"\210*\312\313 \314d!W\203Qeb\210\315\316\317\312#\2037\320\321!\210\322``T\323\324$\210\202 eb\210\315\325\317\312#\203Q\320\321!\210\322`S`\323\324$\210\202:eb\210\315\326\317\312#\203k\320\327!\210\322``T\323\324$\210\202Teb\210\315\330\317\312#\203\205\320\327!\210\322`S`\323\324$\210\202neb\210\331\332\317\312#\203\237\333\334!\210\322`S`\323\335$\210\202\210eb\210\331\336\317\312#\203\271\333\337!\210\322`S`\323\340$\210\202\242eb\210\331\341\317\312#\203\323\333\342!\210\322`S`\323\340$\210\202\274eb\210\331\343\317\312#\203\345\320\327!\210\202\326eb\210\344 \210\345 \210eb\210\331
\317\312#\203
\322\346\224\346\225\323\335$\210\202\361)\306\347\350!\"\207" [Man-arguments Man-ansi-color-map ansi-color-map ansi-color-apply-face-function buffer-undo-list Man-heading-regexp message "Please wait: formatting the %s man page..." #[(beg end face) "\205\n\303	\n\300$\207" [face beg end put-text-property] 5] ansi-color-apply-on-region t buffer-size position-bytes search-forward "__" nil backward-delete-char 4 put-text-property 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 "%s man page formatted" Man-page-from-arguments] 5 (#$ . 26903) nil])
#@326 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.
(defalias 'Man-highlight-references #[(&optional xref-man-type) "\204\306\307\310\"\203%\311\312	\313\314\n\206\315%\210\311\312\313\314\n\206#\315%\207\311\f	\313\314\n\206/\315%\210\311
\316\317\320%\210\311\316\211\321%\207" [Man-arguments Man-reference-regexp xref-man-type Man-apropos-regexp Man-see-also-regexp Man-synopsis-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-header-regexp Man-files-regexp Man-normal-file-regexp] 6 (#$ . 28449)])
(defalias 'Man-highlight-references0 #[(start-section regexp button-pos target type) "\203\n\306!\205P\203\307y\210\310 \210\212\311\307!\210`)\202\"eb\210\312\313\n	\314#\205O\315\224\225\304\f\316
\247\203>\317
!\202I\320
!\203H
\202I\312&\210\202#)\207" [start-section end regexp button-pos type target Man-find-section 1 back-to-indentation Man-next-section nil re-search-forward t make-button Man-target-string match-string functionp] 8])
#@221 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.
(defalias 'Man-cleanup-manpage #[(&optional interactive) "\303\304\"\210	\204
\n\204geb\210\305\306\307\310#\203\311\312!\210\202eb\210\305\313\307\310#\2031\311\312!\210\202\"eb\210\314\315\307\310#\203C\316\317!\210\2024eb\210\314\320\307\310#\203U\316\321!\210\202Feb\210\314\322\307\310#\203g\316\323!\210\202Xeb\210\314\324\307\310#\203y\316\325!\210\202jeb\210\314\326\307\310#\203\213\311\312!\210\202|\327 \210\303\330\"\207" [Man-arguments interactive Man-sed-script message "Please wait: cleaning up the %s man page..." 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 "%s man page cleaned up"] 4 (#$ . 29813) "p"])
#@313 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.
(defalias 'Man-bgproc-sentinel #[(process msg) ";\203\306!\202\307!\310\211\311!\204%;\206
\312\310\"\202
rq\210\310eb\210\313\314!\204:\313\315!\203F`\310\210`{\316\202\266\317\320
\"\203m\321!\322=\203m\323!\324U\203medU\203m\325\326
\"\316\202\266;\204\202\321!\322=\203\202\323!\324U\204\266\327(G!\204\266\311!\330(GS)()H\331U\203\247(\324)O\202\251()Qdb\210\325\332(\"c\210\n\203\301\333!\210\202\362*\203\314\334 \210\202\317\335 \210\336\337!\210\340 \210+\204\356
,\333p!\210\341\342\343,!\"\210)\202\362\344\310!\210)\n\204\373\345!\210	\205
\346\347	\")+\207" [process err-mess delete-buff Man-buffer case-fold-search Man-arguments get-buffer process-buffer nil buffer-name set-process-buffer looking-at "No \\(manual \\)*entry for" "[^\n]*: nothing appropriate$" t string-match "\\(\\`\\|\\s-\\)-k\\s-" process-status exit process-exit-status 0 format "%s: no matches" zerop ": process " 10 "\nprocess %s" kill-buffer Man-fontify-manpage Man-cleanup-manpage run-hooks Man-cooked-hook Man-mode user-error "Can't find the %s manpage" Man-page-from-arguments set-buffer-modified-p Man-notify-when-ready error "%s" msg eos Man-fontify-manpage-flag Man-page-list args] 5 (#$ . 30839)])
(defalias 'Man-page-from-arguments #[(args) "\301\302\303\304\305\306\307\310\"\"\"\310#\207" [args mapconcat identity delete nil mapcar #[(elem) "\301\302\"?\205	\207" [elem string-match "^-"] 3] split-string " "] 9])
(put 'Man-mode 'mode-class 'special)
#@1848 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.
\[Man-quit]       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 formatting is done.
`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 #[nil "\306 \210\307\310\311\312\303!\313\314\315F\316\211\317 \210\320\321!\210\322\"!\210\323#!\210\311$\324EC%\325\326!\210$\325\327!\210\330\325\331!\210\332\333 \210\334 \210\335 \210\336\337\316\"\210\340\341!\207" [major-mode mode-name buffer-auto-save-file-name mode-line-buffer-identification truncate-lines buffer-read-only kill-all-local-variables Man-mode "Man" nil default-value " {" Man-page-mode-string "}" t buffer-disable-undo auto-fill-mode -1 use-local-map set-syntax-table 0 make-local-variable outline-regexp outline-level #[nil "\300\207" [1] 1] bookmark-make-record-function Man-bookmark-make-record Man-build-page-list Man-strip-page-headers Man-unindent Man-goto-page 1 run-mode-hooks Man-mode-hook Man-mode-map man-mode-syntax-table Man-heading-regexp imenu-generic-expression] 5 (#$ . 32679) nil])
#@37 Build the list of manpage sections.
(defalias 'Man-build-section-alist #[nil "\304eb\210\304\305\nd\306#\205$\307\310!\211\235\204B)\310y\210\202)\207" [Man--sections case-fold-search Man-heading-regexp section nil re-search-forward t match-string 1] 5 (#$ . 35394)])
(put 'Man-build-section-alist 'byte-optimizer 'byte-compile-inline-expand)
#@57 Build the list of references (in the SEE ALSO section).
(defalias 'Man-build-references-alist #[nil "\306\212\307	!\203\203\310y\210`\311\310!\210`\306\312\214
\f}\210eb\210\313 \210m\204\202`\nU\204\202`\314\f\315#\203{\316\317!\211GS\203TP\306GSH\320>\203e\317O\321\"\203z\235\204zB*\322\306w\210\202#-)\237\211\207" [Man--refpages Man-see-also-regexp runningpoint hyphenated end start nil Man-find-section 1 Man-next-section -1 back-to-indentation re-search-forward t match-string 0 (45 173) string-match " 	\n," Man-hyphenated-reference-regexp word len Man-reference-regexp] 5 (#$ . 35755)])
(put 'Man-build-references-alist 'byte-optimizer 'byte-compile-inline-expand)
#@52 Build the list of separate manpages in the buffer.
(defalias 'Man-build-page-list #[nil "\306ed\307\211b\210m?\205Q\310\f!\205\311\312!\313
\306\314\315$\203=\316 \210`\317\320\306\321\322$\210\313\f\314#\203<\316 \210)`\323\324!\324\n!	EC\"\n\202+\207" [Man-page-list header page-end page-start 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 p] 6 (#$ . 36489)])
#@60 Strip all the page headers but the first from the manpage.
(defalias 'Man-strip-page-headers #[nil "\306\307\310\307\211\205I
@\311\f8\203A\f@b\203A\312\307\306#\203A\f@\313\224{\211\203A\314\fA@\306#\203A\315\310!\210\2020
A\211\204\307-\207" [header case-fold-search inhibit-read-only Man-page-list page --dolist-tail-- t nil "" 2 re-search-forward 0 search-forward replace-match Man-first-heading-regexp] 5 (#$ . 37002)])
#@52 Delete the leading spaces that indent the manpage.
(defalias 'Man-unindent #[nil "\306\307\n\307\211\205M\f@\310\311@A@}\210\203,\312B\313ed\"\210)\314\315\215\203Dm\204Dl\204>\316
!\210\317y\210\2022*\fA\211\204\f\307,\207" [case-fold-search inhibit-read-only Man-page-list page --dolist-tail-- nindent t nil "" 0 (face . t) untabify unindent (byte-code "eb\210\303\304\305#\204\306\307\304\"\210\310 \210`\311\304w\210`{\211G\312\n!\203)\306\307\304\"\210	\313Peb\210m\204H\314	!\203@\315y\210\2020\306\307\304\"\210\2020eb\207" [Man-first-heading-regexp indent nindent re-search-forward nil t throw unindent beginning-of-line " " zerop "\\|$" looking-at 1] 5) delete-char 1 indent Man-uses-untabify-flag text-property-default-nonsticky] 4 (#$ . 37454)])
#@45 Move point to Nth next section (default 1).
(defalias 'Man-next-section #[(n) "\304`\305\n!\203
\306y\210\307\nd\310$\203\311 \210\202\"db\210\312y\210`W\205*b*\207" [start case-fold-search Man-heading-regexp n nil looking-at 1 re-search-forward t beginning-of-line -1] 5 (#$ . 38252) "p"])
#@49 Move point to Nth previous section (default 1).
(defalias 'Man-previous-section #[(n) "\303\304	!\203\305y\210\306	e\307\n$\203\310 \202eb)\207" [case-fold-search Man-heading-regexp n nil looking-at -1 re-search-backward t beginning-of-line] 5 (#$ . 38559) "p"])
#@111 Move point to SECTION if it exists, otherwise don't move point.
Returns t if section is found, nil otherwise.
(defalias 'Man-find-section #[(section) "`\303eb\210\304\305\nPd\306#\203\307 \210\306\202	b\210\303*\207" [case-fold-search curpos section nil re-search-forward "^" t beginning-of-line] 4 (#$ . 38836)])
(defvar Man--last-section nil)
#@24 Move point to SECTION.
(defalias 'Man-goto-section #[(section) "\302!?\205
\303\304\"\207" [section Man--last-section Man-find-section error "Section %s not found"] 3 (#$ . 39193) (let* ((default (if (member Man--last-section Man--sections) Man--last-section (car Man--sections))) (completion-ignore-case t) (prompt (concat "Go to section (default " default "): ")) (chosen (completing-read prompt Man--sections nil nil nil nil default))) (list chosen))])
#@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 #[nil "\301!?\205\302\303\304\305Q\"\207" [Man-see-also-regexp Man-find-section error "%s" "No " " section found in the current manpage"] 5 (#$ . 39661) nil])
#@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 #[nil "\212\302\303!\210\304\305w\210`\306 \211\212\307 \210`)=\203'\310\210`Sf\311=\203'\306 +\207" [word beg skip-syntax-backward "w()" " 	" nil current-word back-to-indentation 0 45] 3 (#$ . 39975)])
(defvar Man--last-refpage nil)
#@131 Get one of the manpages referred to in the "SEE ALSO" section.
Specify which REFERENCE to use; default is based on word at point.
(defalias 'Man-follow-manual-reference #[(reference) "\204\303\304!\207	\305\306	!!\207" [Man--refpages reference Man--last-refpage error "Can't find any references in the current manpage" Man-getpage-in-background Man-translate-references] 3 (#$ . 40596) (byte-code "\204\306\307!\207\310\311 \206\312\313\314	\"\203	\315\211\224O\202 	)\"@\2063\n\235\2031\n\2023@\316\317B\"\320\321Q\322
\323\211\211\211\f&+C\207" [Man--refpages word Man--last-refpage default defaults prompt 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] 9)])
#@41 Kill the buffer containing the manpage.
(defalias 'Man-kill #[nil "\300\301!\207" [quit-window t] 2 (#$ . 41446) nil])
#@41 Bury the buffer containing the manpage.
(defalias 'Man-quit #[nil "\300 \207" [quit-window] 1 (#$ . 41571) nil])
#@37 Go to the manual page on page PAGE.
(defalias 'Man-goto-page #[(page &optional noerror) "\204\f	\204\f\306\307!\210\205
\n\310W\204\nGV\203\"\311\312\n\"\210\nS8\211@A@\n\313\314\315S88\206>\316G$~\210\fb\210\f
}\210\317eb\210\317\320d\321#\205z\322\310!\211 \235\204s B)\310y\210\202W)\210\317!\212\323\"!\203
\310y\210`\324\310!\210`\317\325#$%&\214&%}\210eb\210\326 \210m\204
`#U\204
`#\320'%\321#\203	
\322\327!\211(GS)$\203\336$(P(\317$(GS)()H\330>\203\360(\327)O$\331*(\"\203
(!\235\204
(!B!*\332\317w\210\202\247-)!\237!eb+\207" [Man-page-list noerror page page-range page-start page-end error "Not a man page buffer" 1 user-error "No manpage %d found" format "%s page %d of %d" 2 "" nil re-search-forward t match-string Man-find-section Man-next-section -1 back-to-indentation 0 (45 173) string-match " 	\n," Man-current-page Man-page-mode-string Man--sections case-fold-search Man-heading-regexp section Man--refpages Man-see-also-regexp runningpoint hyphenated end start Man-hyphenated-reference-regexp word len Man-reference-regexp] 6 (#$ . 41690) (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)])
#@44 Find the next manpage entry in the buffer.
(defalias 'Man-next-manpage #[nil "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 (#$ . 43074) nil])
#@48 Find the previous manpage entry in the buffer.
(defalias 'Man-previous-manpage #[nil "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 (#$ . 43433) nil])
#@67 View a header file specified by FILE from `Man-header-file-path'.
(defalias 'Man-view-header-file #[(file) "\304\n\203&\305\n@\"\nA\306	!\203!\307	!\210\304\211\202\304\202	*\207" [Man-header-file-path complete-path path file nil expand-file-name file-readable-p view-file] 4 (#$ . 43801)])
#@77 Default bookmark name for Man or WoMan pages.
Uses `Man-name-local-regexp'.
(defalias 'Man-default-bookmark-title #[nil "\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 (#$ . 44112)])
#@41 Make a bookmark entry for a Man buffer.
(defalias 'Man-bookmark-make-record #[nil "\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 (#$ . 44422)])
#@43 Default bookmark handler for Man buffers.
(defalias 'Man-bookmark-jump #[(bookmark) "\305\301\"\306\307	!\310!\f\203\"\311\f!\312=\203\"\313\f!\210\202\314\315\316B\317!BB!,\207" [bookmark man-args Man-notify-method buf proc bookmark-prop-get meek Man-getpage-in-background get-buffer-process process-status run accept-process-output bookmark-default-handler "" buffer bookmark-get-bookmark-record] 5 (#$ . 44722)])
(byte-code "\300 \210\301\302!\207" [Man-init-defvars provide man] 2)