ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/man.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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\300\303!\210\304\305\306\307\310\311\312\313\312\314& \210\315\316\306\317\320\321\312\305&\207" [require ansi-color cl-lib 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 (#$ . 1264))
#@65 Script for sed to nuke backspaces and ANSI codes from manpages.
(defvar Man-sed-script nil (#$ . 1380))
(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) (#$ . 2068))
(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, 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-frame-parameters "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 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_.:+]*" (#$ . 6744))
#@69 Regular expression describing a manpage section within parentheses.
(defvar Man-section-regexp "[0-9][a-zA-Z0-9+]*\\|[LNln]" (#$ . 6896))
#@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) (#$ . 7040))
#@56 Regular expression describing a manpage heading entry.
(defvar Man-heading-regexp "^\\([A-Z][A-Z0-9 /-]+\\)$" (#$ . 7382))
#@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" (#$ . 7512))
#@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.*$" (#$ . 7684))
#@63 Regular expression describing a reference to another manpage.
(defvar Man-reference-regexp (concat "\\(" Man-name-regexp "\\(\n[ ]+" Man-name-regexp "\\)*\\)[ ]*(\\(" Man-section-regexp "\\))") (#$ . 7892))
#@75 Regular expression describing a reference to manpages in "man -k output".
(defvar Man-apropos-regexp (concat "\\[\\(" Man-name-regexp "\\)\\][ ]*(\\(" Man-section-regexp "\\))") (#$ . 8107))
#@114 Regular expression for SYNOPSIS heading (or your equivalent).
This regexp should not start with a `^' character.
(defvar Man-synopsis-regexp "SYNOPSIS" (#$ . 8306))
#@111 Regular expression for FILES heading (or your equivalent).
This regexp should not start with a `^' character.
(defvar Man-files-regexp "FILES\\>" (#$ . 8478))
#@64 Regular expression describing the #include (directive of cpp).
(defvar Man-include-regexp "#[ ]*include[ ]*" (#$ . 8643))
#@71 Regular expression describing <> in #include line (directive of cpp).
(defvar Man-file-name-regexp "[^<>\", \n]+" (#$ . 8773))
#@70 Regular expression describing a file path appeared in FILES section.
(defvar Man-normal-file-prefix-regexp "[/~$]" (#$ . 8907))
#@59 Regular expression describing references to header files.
(defvar Man-header-regexp (concat #1="\\(" Man-include-regexp #2="\\)" "[<\"]" #1# Man-file-name-regexp #2# "[>\"]") (#$ . 9041))
#@59 Regular expression describing references to normal files.
(defvar Man-normal-file-regexp (concat Man-normal-file-prefix-regexp Man-file-name-regexp) (#$ . 9235))
#@68 Regular expression describing a reference in the SEE ALSO section.
(defvar Man-hyphenated-reference-regexp (concat "\\(" Man-name-regexp "\\)\\((\\(" Man-section-regexp "\\))\\)?") (#$ . 9403))
#@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 "" '(#$ . 9604) :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) (#$ . 9865))
#@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 (#$ . 10092))
(byte-code "\300\301\302\303\304\305\306\307\310\311& \210\312\313!\210\312\314!\210\315\314\316\317#\207" [custom-declare-variable man-imenu-title "Contents" "The title to use if man adds a Contents menu to the menubar." :version "24.4" :type string :group man make-variable-buffer-local Man-original-frame Man-arguments put permanent-local t] 10)
(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" (#$ . 11108))
#@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" (#$ . 11369))
#@21 Topic read history.
(defvar Man-topic-history nil (#$ . 11654))
#@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) (#$ . 11724))
#@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\307#\210\305\313\314#\210\305\315\316#\210\305\317\320#\210\305\321\322#\210\305\323\324#\210\305\325\326#\210\305\327\326#\210\305\330\331#\210\305\332\333#\210\305\334\335#\210\305\336\337#\210\305\340\341#\210\305\342\343#\210\305\344\345#\210\305\346\347#\210\305\350\351#\210\352\353\354\355$\210)\207" [map button-buffer-map make-sparse-keymap suppress-keymap set-keymap-parent define-key [33554464] scroll-down-command " " scroll-up-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 "u" Man-update-manpage "m" man "
" man-follow "?" describe-mode 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" Man-quit t])] 5) (#$ . 11982))
(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\202 01BC$\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 (#$ . 14726)])
#@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 (#$ . 16819)])
(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 make-process " %s" " %s 2>" " | " mapconcat #[(phrase) ";\204 \301\302!\210\207" [phrase error "Malformed Man-filter-list"] 2] pargs pcom] 8 (#$ . 17109)])
(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 (#$ . 17699)])
#@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\325 R+\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 (#$ . 18001)])
#@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 "\304=\203J \305\306!r q\210\307\216\310\n!\203 \n\202 \311\312!\3131- \314 \315\316\315\317%0\2021 \210\2022 \210)\320\321\315\322#\203? \323\202F \324\325!\205F \326+\211\207\207" [Man-support-local-filenames #1=#:temp-buffer default-directory manual-program auto-detect generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] file-accessible-directory-p expand-file-name "~/" (error) call-process nil t "--help" search-backward "--local-file" move man-db looking-at "^man, versione? [1-9]" man] 6 (#$ . 18919)])
#@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\306x\311U\204C \312\313
\314Q!\203C \315\306x\2037 \316\306x\311U\203> \311\225\211\204C `\202\245 \fb\210\316\306x\311U\204S `\202\245 i\315\306x\210 iZ\317\320
\314Q\321 \"\203p \311\224b\210\322\306x\210\316\306x\311U\204\234 `\fb\210\315\306w\203\226 i ZW\203\226 \312\323!\203\226 `\202\245 \nb\210\202\245 \fb\210\315\306w\210`\316\306w\210\324\n`\"\312\325!\203\276 \326\327!P\327\225b\210\330\331 \"\203\313 \311\211\224O \211\332\230?\205\342 \312\333
\314Q!\205\342 \334\335\326\327!\"P-\207" [distance column start word pos 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._+:]+\\)([0-9])" match-string-no-properties 1 string-match "[-._]+$" "" "[ ]*([ ]*\\(" format "(%s)"] 5 (#$ . 19919)])
(defalias 'manual-entry 'man)
#@57 Cache of completion table of the form (PREFIX . TABLE).
(defvar Man-completion-cache nil (#$ . 21060))
#@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)) (#$ . 21170))
#@694 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
For more details and some regression tests, please see
test/automated/man-tests.el in the emacs repository.
(defalias 'Man-parse-man-k #[nil "eb\210\304\305\306\304\307#\2034 \310\311!\310\312!\313\225\314\225b\210\315\310\314! P\316\n#B\305\317 \307#\204 +\202 \237)\207" [table bound description section nil search-forward-regexp "^\\([^ ,\n]+\\)\\(.*?\\)\\(?:[ ]\\(([^ ,\n]+?)\\)\\)?\\(?:[ ]+- ?\\(.*\\)\\)?$" t match-string 3 4 2 1 propertize help-echo "\\=, *\\([^ ,]+\\)"] 4 (#$ . 21686)])
(defalias 'Man-completion-table #[(string pred action) "\306\232\203
\307 \310\n$\207 A\311 %\312\313\"\203' \314\315\"\316\225\311O \2033 \317 @\f\"\204| \320\321! &r&q\210\322\216\323'\324(! (\325\326\327\"\210\3301l \331)\311\332\311\306*\204c \f\333\230\205d \334\fP&0\202p \210\202q \210)\335 %+\f%B
\203\307 \336\337
!\340Q +%\311\211% ,\211 -\203\270 -@,\312+,\"\203\257 ,\316\211\224O%B%-A\211-\204\226 *\341
\342P%\f\n %)\202 \312\343\"\203\326 \342P%B%\307 %\n$\211 .;\203\375 \312\344.\"\203\375 \316\224\fGV\203\375 .\316\211\224O\202\377 .)+\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*" #[nil "\301!\205 \302!\207" [#1=#:temp-buffer 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:]]" "([^(]*\\'" table #1# default-directory process-environment manual-program Man-man-k-use-anchor re comp --dolist-tail-- res] 9])
#@1268 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
(defalias 'man #[(man-args) "\301!\302!\207" [man-args Man-translate-references Man-getpage-in-background] 2 (#$ . 23962) (list (let* ((default-entry (Man-default-man-entry)) (completion-ignore-case t) Man-completion-cache (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 (#$ . 25725) (list (Man-default-man-entry))])
#@66 Start the man command in `body' after setting up the environment
(defalias 'Man-start-calling '(macro . #[(&rest body) "\301\302\303\304\305BBBBB\207" [body let ((process-environment (copy-sequence process-environment)) (coding-system-for-write 'raw-text-unix) (coding-system-for-read 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")))) (setenv "COLUMNS" (number-to-string (cond ((and (integerp Man-width) (> Man-width 0)) Man-width) (Man-width (if (window-live-p (get-buffer-window (current-buffer) t)) (with-selected-window (get-buffer-window (current-buffer) t) (frame-width)) (frame-width))) (t (if (window-live-p (get-buffer-window (current-buffer) t)) (with-selected-window (get-buffer-window (current-buffer) t) (window-width)) (window-width))))))) (setenv "MAN_KEEP_FORMATTING" "1")] 6 (#$ . 25980)]))
#@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,\312\313!\210\314\315\f #\210\316\n!r q\210\311 !\210\317\320 @ A\321 \210\322\323B\203C \324\202D \325\326\327#PC\330D!\331E\332F!\203e \333F\332\"\204e F\202f \334 F G H D\335\336\337\"\210I\204\204 \340\341!\204\352 \340\342!\204\352 \335\342\343J\250\203\231 J\344V\203\231 J\202\347 J\203\304 \345\346p\317\"!\203\277 \347\346p\317\"! Kr\350\216\351K@\352\"\210\353 +\202\347 \353 \202\347 \345\346p\317\"!\203\345 \347\346p\317\"! Kr\354\216\351K@\352\"\210\355 +\202\347 \355 !\"\210\335\356\357\"\210\360\361!\203x\362\f L\363>\203M\202\364N\365\f\322O\366\367\f\"\203\370\202%\360\361!\204!\371\202%\372PPRQ R SR\203\\R@\203\\R@@R@A T US\373U\322\374\375T\322#\260SRAR*\202,S* \"% V\376V\377\"\210\201Z V\201[ \"\210)\202+\317 W\201\\ M\201] \201] D\201] N\365\f\322O\366\367\f\"\203\235\370\202\253\360\361!\204\247\371\202\253\372PPRQ R SR\203\342R@\203\342R@@R@A T US\373U\322\374\375T\322#\260SRAR*\202\262S* \"& X\370 YX\247\203\373X\344U\204X\247\203\365\201^ X\"\211Y\204XYB\203 \201_ \210\202$\201` \210\377\nY\"\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 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" number-to-string 0 window-live-p get-buffer-window internal--before-with-selected-window #[nil "\301!\207" [save-selected-window--state internal--after-with-selected-window] 2] select-window norecord frame-width #[nil "\301!\207" [save-selected-window--state internal--after-with-selected-window] 2] window-width "MAN_KEEP_FORMATTING" "1" fboundp make-process start-process (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] set-process-sentinel Man-bgproc-sentinel Man-original-frame Man-arguments Man-fontify-manpage-flag mode-line-process process-environment locale-coding-system default-directory coding-system-for-read coding-system-for-write window-system Man-width save-selected-window--state system-type shell-file-name shell-command-switch Man-switches null-device Man-filter-list flist command pargs pcom proc inhibit-read-only exit-status msg set-process-filter Man-bgproc-filter call-process nil "exited abnormally with code %d" Man-fontify-manpage Man-cleanup-manpage] 16 (#$ . 27024)])
#@74 Reformat current manpage by calling the man command again synchronously.
(defalias 'Man-update-manpage #[nil "\306=\203\n \307\310!\210`\311 \312 \313\306 \314 \210\3156!\3167\3178!\2034 \3208\317\"\2044 8\2025 \321 8 9 : 6\322\323\324\"\210;\204S \325\326!\204\271 \325\327!\204\271 \322\327\330<\250\203h <\331V\203h <\202\266 <\203\223 \332\333p\313\"!\203\216 \334\333p\313\"! =r\335\216\336=@\337\"\210\340 +\202\266 \340 \202\266 \332\333p\313\"!\203\264 \334\333p\313\"! =r\341\216\336=@\337\"\210\342 +\202\266 \342 !\"\210\322\343\344\"\210\345>\306p\306D\306?\346@\347A\350\351@\"\203\332 \352\202\350 \353\354!\204\344 \355\202\350 \356BPRC D ED\203 D@\203 D@@D@A F GE\357G\347\360\361F\347#\260EDAD*\202\357 E*\"&\210,H\2033\362 \210\2026\363 \210
b\210\f\306=\206C \312 U?\205]\306 I \312 V\203W\364\f\306\313#\210\365\f\306\313#)-\207" [Man-arguments buffer-read-only inhibit-read-only old-size text old-pos nil error "Man-arguments not initialized" current-word buffer-size t erase-buffer copy-sequence raw-text-unix file-directory-p find-file-name-handler "/" setenv "TERM" "dumb" getenv "MANWIDTH" "COLUMNS" number-to-string 0 window-live-p get-buffer-window internal--before-with-selected-window #[nil "\301!\207" [save-selected-window--state internal--after-with-selected-window] 2] select-window norecord frame-width #[nil "\301!\207" [save-selected-window--state internal--after-with-selected-window] 2] window-width "MAN_KEEP_FORMATTING" "1" call-process format " " string-match "%s" "" fboundp make-process " %s" " %s 2>" " | " mapconcat #[(phrase) ";\204 \301\302!\210\207" [phrase error "Malformed Man-filter-list"] 2] Man-fontify-manpage Man-cleanup-manpage search-backward search-forward process-environment locale-coding-system default-directory coding-system-for-read coding-system-for-write window-system Man-width save-selected-window--state shell-file-name shell-command-switch manual-program Man-switches null-device Man-filter-list flist command pargs pcom Man-fontify-manpage-flag case-fold-search] 15 (#$ . 29908) nil])
#@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 (#$ . 32022)])
(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 "eb\210\305\306ed\"\210*\307\310 \311d!W\203P eb\210\312\313\314\307#\2036 m\2046 \315\316!\210\317``T\320\321$\210\202 eb\210\312\322\314\307#\203P \315\316!\210\317`S`\320\321$\210\2029 eb\210\312\323\314\307#\203n m\204n \315\324!\210\317``T\320\321$\210\202S eb\210\312\325\314\307#\203\210 \315\324!\210\317`S`\320\321$\210\202q eb\210\326\327\314\307#\203\242 \330\331!\210\317`S`\320\332$\210\202\213 eb\210\326\333\314\307#\203\274 \330\334!\210\317`S`\320\335$\210\202\245 eb\210\326\336\314\307#\203\326 \330\337!\210\317`S`\320\335$\210\202\277 eb\210\326\340\314\307#\203\350 \315\324!\210\202\331 eb\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-map ansi-color-map ansi-color-apply-face-function buffer-undo-list Man-heading-regexp #[(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] 5 (#$ . 33339) 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 (#$ . 34754)])
(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) "\204 \204b eb\210\302\303\304\305#\203 \306\307!\210\202 eb\210\302\310\304\305#\203, \306\307!\210\202 eb\210\311\312\304\305#\203> \313\314!\210\202/ eb\210\311\315\304\305#\203P \313\316!\210\202A eb\210\311\317\304\305#\203b \313\320!\210\202S eb\210\311\321\304\305#\203t \313\322!\210\202e eb\210\311\323\304\305#\203\206 \306\307!\210\202w \324 \207" [interactive 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] 4 (#$ . 36118) "p"])
#@302 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.
(defalias 'Man-bgproc-filter #[(process string) "\212\306!\307 !\204 \310\311\"\202E r q\210\312\313\314!!\212\nb\210\fc\210\214\212\nb\210\315 )`}\210
\203: \316 \210\202= \317 \210)\314!d\311\223,*\207" [process Man-buffer beg inhibit-read-only string Man-fontify-manpage-flag process-buffer buffer-name set-process-buffer nil t marker-position process-mark line-beginning-position Man-fontify-manpage Man-cleanup-manpage] 4 (#$ . 37019)])
#@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% ;\206I\312\310\"\202Ir q\210\212\310 eb\210\313\314!\204; \313\315!\203G `\310\210`{\316\202\267 \317\320
\"\203n \321!\322=\203n \323!\324U\203n edU\203n \325\326
\"\316\202\267 ;\204\203 \321!\322=\203\203 \323!\324U\204\267 .G\324U\204\267 \311 !\327.GS /./H\330U\203\250 .\324/O\202\252 .)Qdb\210\325\331.\"c\210\n\203\326 \332\333 \316\"!\203\317 \334\333 \316\"\335\"\210\202?\336 !\210\202?\337\340!\210\341 \210\342 \210\343 \210\344\345\316\"\2100\204
1\332\333p\316\"!\203\334\333p\316\"\335\"\210\202\336p!\210\346\347\3501!\"\210)\202?2\203#\346\351\350
!\"\210\202*\346\352\350
!\"\210\353!\2038\321!\322=\203;\3103\354\310!\210* \205H\346\355 \")+\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" ": process " 10 "\nprocess %s" window-live-p get-buffer-window quit-restore-window kill kill-buffer run-hooks Man-cooked-hook Man-build-page-list Man-strip-page-headers Man-unindent Man-goto-page 1 message "Can't find the %s manpage" Man-page-from-arguments "%s man page formatted" "%s man page cleaned up" processp set-buffer-modified-p "%s" msg eos Man-page-list args Man-fontify-manpage-flag mode-line-process] 5 (#$ . 37777)])
(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)
#@160 Hook run after entering Man mode.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar Man-mode-hook nil (#$ . 39905))
(byte-code "\300\301!\204\f \302\301\303\304#\210\300\207" [boundp Man-mode-map put definition-name Man-mode] 4)
(defvar Man-mode-map (make-sparse-keymap))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [Man-mode-map variable-documentation put purecopy "Keymap for `Man-mode'." boundp Man-mode-syntax-table definition-name Man-mode] 5)
(defvar Man-mode-syntax-table (make-syntax-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [Man-mode-syntax-table variable-documentation put purecopy "Syntax table for `Man-mode'." Man-mode-abbrev-table definition-name Man-mode] 5)
(defvar Man-mode-abbrev-table (progn (define-abbrev-table 'Man-mode-abbrev-table nil) Man-mode-abbrev-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [Man-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `Man-mode'." Man-mode derived-mode-parent nil] 5)
#@1849 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 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 #[nil "\306\300!\210\307\310 \210\311\312\313 !\210\314\f!\210
\315 \316\317!\320\321\322F\307\211!\"\323 \210\324\325!\210\315#\326EC$\327%!\210\306\330!\210#\306\331!\210\332\306\333!\210\334)\335\336!\207" [delay-mode-hooks major-mode mode-name Man-mode-map Man-mode-syntax-table Man-mode-abbrev-table make-local-variable t kill-all-local-variables Man-mode "Man" 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 #[nil "\300\207" [1] 1] bookmark-make-record-function Man-bookmark-make-record run-mode-hooks Man-mode-hook local-abbrev-table buffer-auto-save-file-name truncate-lines buffer-read-only Man-heading-regexp imenu-generic-expression man-imenu-title] 5 (#$ . 41081) 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\204 B)\310y\210\202 )\207" [Man--sections case-fold-search Man-heading-regexp section nil re-search-forward t match-string 1] 5 (#$ . 43811)])
(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!\211 GS \203T P\306GSH\320>\203e \317O\321\"\203z \235\204z B*\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 (#$ . 44172)])
(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 (#$ . 44906)])
#@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 (#$ . 45419)])
#@52 Delete the leading spaces that indent the manpage.
(defalias 'Man-unindent #[nil "\306\307\n\307\211 \205\236 \f@\310\311 @ A@}\210\203, \312B \313ed\"\210)\3142\200 eb\210\315\307\306#\204A \316\314\307\"\210\317 \210`\320\307w\210`{\211G\211\311U\203[ \316\314\307\"\210\321Peb\210m\204} \322!\203u \323y\210\202d \316\314\307\"\210\202d eb0\203\225 m\204\225 l\204\217 \324
!\210\323y\210\202\203 *\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 re-search-forward throw beginning-of-line " " "\\|$" looking-at 1 delete-char indent Man-uses-untabify-flag text-property-default-nonsticky Man-first-heading-regexp] 5 (#$ . 45871)])
#@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 (#$ . 46629) "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 \202 eb)\207" [case-fold-search Man-heading-regexp n nil looking-at -1 re-search-backward t beginning-of-line] 5 (#$ . 46936) "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 (#$ . 47213)])
(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 (#$ . 47570) (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 (#$ . 48038) 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 (#$ . 48352)])
(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 (#$ . 48973) (byte-code "\204 \306\307!\207\310\311 \206 \312\313\314 \"\203 \315\211\224O\202 )\"@\2063 \n\235\2031 \n\2023 @\316\317 B\" \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 (#$ . 49823) nil])
#@41 Bury the buffer containing the manpage.
(defalias 'Man-quit #[nil "\300 \207" [quit-window] 1 (#$ . 49948) 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\317 eb\210\317 \320 d\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 (#$ . 50067) (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 (#$ . 51451) 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 (#$ . 51810) 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 (#$ . 52178)])
#@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 (#$ . 52489)])
#@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 (#$ . 52799)])
#@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\316 B\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 (#$ . 53099)])
(byte-code "\300 \210\301\302!\207" [Man-init-defvars provide man] 2)
Kontol Shell Bypass