;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:48:10 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/man.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`man.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\301\302!\210\303\304\305\306\307\310\311\312&\210\313B\314B\315B\305\207" [current-load-list require assoc custom-declare-group man nil "Browse UNIX manual pages." :prefix "Man-" :group help Man-notify Man-current-page Man-page-list] 8) #@433 *Manpage cleaning filter command phrases. This variable contains a list of the following form: '((command-string phrase-string*)*) Each phrase-string is concatenated onto the command-string to form a command filter. The (standard) output (and standard error) of the Un*x man command is piped through each command filter in the order the commands appear in the association list. The final output is placed in the manpage buffer. (custom-declare-variable 'Man-filter-list 'nil '(#$ . -866) :type '(repeat (list (string :tag "Command String") (repeat :inline t (string :tag "Phrase String")))) :group 'man) (byte-code "\301B\302B\303B\304B\301\207" [current-load-list Man-original-frame Man-arguments Man-sections-alist Man-refpages-alist] 2) #@65 Non-nil means use `untabify' instead of `Man-untabify-command'. (defvar Man-uses-untabify-flag t (#$ . 1624)) (byte-code "\301B\301\207" [current-load-list Man-page-mode-string] 2) #@65 Script for sed to nuke backspaces and ANSI codes from manpages. (defvar Man-sed-script nil (#$ . 1813)) #@48 *Non-nil means make up the manpage with fonts. (custom-declare-variable 'Man-fontify-manpage-flag 't '(#$ . -1923) :type 'boolean :group 'man) #@42 *Face to use when fontifying overstrike. (custom-declare-variable 'Man-overstrike-face ''bold '(#$ . -2072) :type 'face :group 'man) #@43 *Face to use when fontifying underlining. (custom-declare-variable 'Man-underline-face ''underline '(#$ . -2211) :type 'face :group 'man) #@842 *Selects the behavior when manpage is ready. This variable may have one of the following values, where (sf) means that the frames are switched, so the manpage is displayed in the frame where the man command was called from: newframe -- put the manpage in its own frame (see `Man-frame-parameters') pushy -- make the manpage the current buffer in the current window bully -- make the manpage the current buffer and only window (sf) aggressive -- make the manpage the current buffer in the other window (sf) friendly -- display manpage in the other window but don't make current (sf) polite -- don't display manpage, but prints message and beep when ready quiet -- like `polite', but don't beep meek -- make no indication that the manpage is ready Any other value of `Man-notify-method' is equivalent to `meek'. (custom-declare-variable 'Man-notify-method '(if (boundp 'Man-notify) Man-notify 'friendly) '(#$ . -2356) :type '(radio (const newframe) (const pushy) (const bully) (const aggressive) (const friendly) (const polite) (const quiet) (const meek)) :group 'man) #@67 *Frame parameter list for creating a new frame for a manual page. (custom-declare-variable 'Man-frame-parameters 'nil '(#$ . -3460) :type 'sexp :group 'man) #@378 *Non-nil means letters in sections are converted to lower case. Some Un*x man commands can't handle uppercase letters in sections, for example "man 2V chmod", but they are often displayed in the manpage with the upper case letter. When this variable is t, the section letter (e.g., "2V") is converted to lowercase (e.g., "2v") before being sent to the man background process. (custom-declare-variable 'Man-downcase-section-letters-flag 't '(#$ . -3624) :type 'boolean :group 'man) #@71 *Non-nil means the manpage list is treated as circular for traversal. (custom-declare-variable 'Man-circular-pages-flag 't '(#$ . -4112) :type 'boolean :group 'man) #@292 *Association list of bogus sections to real section numbers. Some manpages (e.g. the Sun C++ 2.1 manpages) have section numbers in their references which Un*x `man' does not recognize. This association list is used to translate those sections, when found, to the associated section number. (custom-declare-variable 'Man-section-translations-alist '(list '("3C++" . "3") '("3X11" . "3") '("1-UCB" . "")) '(#$ . -4284) :type '(repeat (cons (string :tag "Bogus Section") (string :tag "Real Section"))) :group 'man) #@50 The name of the program that produces man pages. (defvar manual-program "man" (#$ . 4803)) #@31 Command used for untabifying. (defvar Man-untabify-command "pr" (#$ . 4900)) #@71 List of arguments to be passed to `Man-untabify-command' (which see). (defvar Man-untabify-command-args (list "-t" "-e") (#$ . 4983)) #@42 Command used for processing sed scripts. (defvar Man-sed-command "sed" (#$ . 5123)) #@42 Command used for processing awk scripts. (defvar Man-awk-command "awk" (#$ . 5213)) #@22 Keymap for Man mode. (defvar Man-mode-map nil (#$ . 5303)) #@36 Hook run when Man mode is enabled. (defvar Man-mode-hook nil (#$ . 5368)) #@70 Hook run after removing backspaces but before `Man-mode' processing. (defvar Man-cooked-hook nil (#$ . 5448)) #@72 Regular expression describing the name of a manpage (without section). (defvar Man-name-regexp "[-a-zA-Z0-9_][-a-zA-Z0-9_.]*" (#$ . 5564)) #@69 Regular expression describing a manpage section within parentheses. (defvar Man-section-regexp "[0-9][a-zA-Z+]*\\|[LNln]" (#$ . 5709)) #@54 Regular expression describing the heading of a page. (defvar Man-page-header-regexp (byte-code "\303\304\"\203\303\305\"\204\306 \307\n\310\260\207\311 \307\n\312\260\207" [system-configuration Man-name-regexp Man-section-regexp string-match "-solaris2\\." "-solaris2\\.[123435]$" "^[-A-Za-z0-9_].*[ ]\\(" "(\\(" "\\))\\)$" "^[ ]*\\(" "\\))\\).*\\1"] 5) (#$ . 5850)) #@56 Regular expression describing a manpage heading entry. (defvar Man-heading-regexp "^\\([A-Z][A-Z ]+\\)$" (#$ . 6233)) #@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" (#$ . 6358)) #@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.*$" (#$ . 6530)) #@63 Regular expression describing a reference to another manpage. (defvar Man-reference-regexp (concat "\\(" Man-name-regexp "\\)(\\(" Man-section-regexp "\\))") (#$ . 6743)) #@68 Regular expression describing a reference in the SEE ALSO section. (defvar Man-hyphenated-reference-regexp (concat "\\(" Man-name-regexp "\\)\\((\\(" Man-section-regexp "\\))\\)?") (#$ . 6920)) #@193 Switches passed to the man command, as a single string. If you want to be able to see all the manpages for a subject you type, make -a one of the switches, if your `man' program supports it. (defvar Man-switches "" (#$ . 7121)) #@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) (#$ . 7356)) (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\210\300\307!\210\310\301\311\"\210\310\302\311\"\210\310\303\311\"\210\310\304\312\"\210\310\305\313\"\207" [make-variable-buffer-local Man-sections-alist Man-refpages-alist Man-page-list Man-current-page Man-page-mode-string Man-original-frame Man-arguments set-default nil 0 "1 of 1"] 3) #@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" (#$ . 7959)) #@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" (#$ . 8219)) #@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)\207" [table copy-syntax-table standard-syntax-table modify-syntax-entry 46 "w" 95] 4) (#$ . 8503)) (byte-code "\204q\301 \302!\210\303\304\305#\210\303\306\307#\210\303\310\311#\210\303\312\313#\210\303\314\315#\210\303\316\317#\210\303\320\321#\210\303\322\323#\210\303\324\323#\210\303\325\326#\210\303\327\330#\210\303\331\332#\210\303\333\334#\210\303\335\336#\210\303\337\340#\210\303\341\342#\210\303\343\344#\210\301\207" [Man-mode-map make-keymap suppress-keymap define-key " " scroll-up "" scroll-down "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) #@125 Used for initialising 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 %\311U\203 \202+\310\n\307\211\211\f%\311U\203*\f\202+\307)\312\313\n \203;\314 \315Q\202<\316\317\320\321\322\323\324\325\326\327\330\331\332\333\334\257B#\335\336\337\340\341\342\315\257B$?\205e%&BC$\211'\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 "-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" Man-awk-command Man-uses-untabify-flag Man-untabify-command Man-untabify-command-args Man-filter-list] 18 (#$ . 9468)]) #@233 Return the substring matched by the last search. Optional arg N means return the substring matched by the Nth paren grouping. Optional second arg STRING means return a substring from that string instead of from the current buffer. (defalias 'Man-match-substring #[(&optional n string) "\204\302 \203 \224\225O\207\224\225{\207" [n string 0] 3 (#$ . 11021)]) (put 'Man-match-substring 'byte-optimizer 'byte-compile-inline-expand) #@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 (#$ . 11467)]) (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!\204 \311\202\312\nPR \f\203<\f@\203<\f@@\f@A \313\306\314\315\306#\260\fA*\202 *\207" [manual-program Man-switches null-device Man-filter-list flist command " " fboundp start-process " %s" " %s 2>" " | " mapconcat #[(phrase) ";\204 \301\302!\210\207" [phrase error "Malformed Man-filter-list"] 2] pargs pcom] 8 (#$ . 11757)]) (put 'Man-build-man-command 'byte-optimizer 'byte-compile-inline-expand) #@234 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\310\f\311Q \"\203a\312 \211\204\313\203.\224\225O\2025\224\225{*\314 \211\204D\313\203U\224\225O\202\\\224\225{*\202\276\307\315\316\317\260 \"\203\276\314 \211\204}\313\203\216\224\225O\202\225\224\225{*\312 \211\204\244\313\203\265\224\225O\202\274\224\225{* \306\230\203\310 \202\f\203\320\n\227 \203 @@ @A A\203\353\227\n\230\203\203\375\227\202\377\320*\202\320\n\321 R+\207" [Man-section-translations-alist slist section name Man-reference-regexp ref "" string-match "^" "$" 1 0 2 "^\\(" "\\) +\\(" "\\)$" nil " " string n Man-section-regexp Man-name-regexp Man-downcase-section-letters-flag s2 s1 Man-specified-section-option] 7 (#$ . 12301)]) #@97 Make a guess at a default manual entry. This guess is based on the text surrounding the cursor. (defalias 'Man-default-man-entry #[nil "\304\212\305 \306\307\"\203\310\211\224O\311v\210\312\313\314\315 \316Q!\203E\312\317\311\304\211\204.\310\n\203;\n \224 \225O\202@ \224 \225{*\"\202F\320#*\207" [word Man-section-regexp string n nil current-word string-match "[._]+$" 0 1 format "%s%s" looking-at "[ ]*([ ]*\\(" "\\)[ ]*)" "(%s)" ""] 9 (#$ . 13387)]) (byte-code "\300\301\302\303#\210\304\305\306\"\207" [put Man-default-man-entry byte-optimizer byte-compile-inline-expand defalias manual-entry man] 4) #@646 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 (manpage 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. To specify a man page from a certain section, type SUBJECT(SECTION) or SECTION SUBJECT when prompted for a manual entry. To see manpages from all sections related to a subject, put something appropriate into the `Man-switches' variable, which see. (defalias 'man #[(man-args) "\301!\302!\207" [man-args Man-translate-references Man-getpage-in-background] 2 (#$ . 14019) (list (let* ((default-entry (Man-default-man-entry)) (input (read-string (format "Manual entry%s: " (if (string= default-entry "") "" (format " (default %s)" default-entry)))))) (if (string= input "") (if (string= default-entry "") (error "No man args given") default-entry) 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 (#$ . 15081) (list (Man-default-man-entry))]) #@67 Use TOPIC to build and fire off the manpage and cleaning command. (defalias 'Man-getpage-in-background #[(topic) "\306 \307Q\310\n!\211\203\311 !\202M\312\313!\210\314\315\f #\210\316\n!\212 q\210\317  -)\320.!\321/\203=0\202>\321\322123.\323\324\325\"\2104\203e\326\327!\204e\326\330!\204e\323\330\331\332 !\"\210\333\334!\203\306\335\334\f \336\337\340\f\3415\333\334!\204\200\342\202\204\3436PR7898\203\2738@\203\2738@@8@A:;9\344;\341\345\346:\341#\26098A8*\202\2139* \"%\347\"\202L\350<\351 \351D\351\337\340\f\3415\333\334!\204\336\342\202\342\3436PR7898\2038@\2038@@8@A:;9\344;\341\345\346:\341#\26098A8*\202\3519* \"&\352=\211>\247\2031>\353U\204F>\247\203B\340\354>\"\211=\204F>=\347\n=\"*,+\207" [topic man-args bufname buffer manual-program Man-original-frame "*Man " "*" get-buffer Man-notify-when-ready require env message "Invoking %s %s in the background" generate-new-buffer selected-frame copy-sequence raw-text-unix "/" setenv "TERM" "dumb" getenv "MANWIDTH" "COLUMNS" number-to-string frame-width fboundp start-process set-process-sentinel "sh" "-c" format " " " %s" " %s 2>" " | " mapconcat #[(phrase) ";\204 \301\302!\210\207" [phrase error "Malformed Man-filter-list"] 2] Man-bgproc-sentinel call-process nil "" 0 "exited abnormally with code %d" Man-arguments process-environment default-enable-multibyte-characters locale-coding-system default-directory coding-system-for-read coding-system-for-write window-system Man-switches null-device Man-filter-list flist command pargs pcom shell-file-name msg exit-status] 16 (#$ . 15336)]) #@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) "\212q\210 ) \306=\203-\212\307\f!\310\311 !\"\210\312\311 !\313\"\210\314 !\206)\315 !*\202\245 \316=\2039\317!\202\245 \320=\203R\321\n!\203I\315\n!\210\322!\210\323 \202\245 \324=\203h\321\n!\203b\315\n!\210\322!\202\245 \325=\203\321\n!\203x\315\n!\210\326\327\"\202\245 \330=\203\221\331 \210\332\333\334!\"\202\245 \335=\203\240\332\333\334!\"\202\245 \210\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 (#$ . 16991)]) (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 "\303\304\"\210eb\210\305\306\307\310#\203*\311\312!\210\313`\305\314\307\315#\203\"\311\312!\210`\316 $\210\202\317 \320d!W\203geb\210\305\321\307\310#\203M\322\312!\210\313``T\316\n$\210\2026eb\210\305\323\307\310#\203g\322\312!\210\313`S`\316\n$\210\202Peb\210\305\324\307\310#\203\201\322\325!\210\313``T\316\n$\210\202jeb\210\305\326\307\310#\203\233\322\325!\210\313`S`\316\n$\210\202\204eb\210\327\330\307\310#\203\265\331\332!\210\313`S`\316 $\210\202\236eb\210\327\333\307\310#\203\317\331\334!\210\313`S`\316\335$\210\202\270eb\210\327\336\307\310#\203\351\331\337!\210\313`S`\316\335$\210\202\322\340 \210\303\341\"\207" [Man-arguments Man-overstrike-face Man-underline-face message "Please wait: making up the %s man page..." search-forward "" nil t delete-backward-char 4 put-text-property "" move face buffer-size position-bytes "__" backward-delete-char "__" "_" 2 "_" re-search-forward "\\(.\\)\\(+\\1\\)+" replace-match "\\1" "o\\+\\|\\+o" "o" bold "[-|]\\([-|]\\)+" "+" Man-softhyphen-to-minus "%s man page made up"] 6 (#$ . 18316) nil]) #@62 Remove overstriking and underlining from the current buffer. (defalias 'Man-cleanup-manpage #[nil "\302\303\"\210t\204 \204geb\210\304\305\306\307#\203\310\311!\210\202eb\210\304\312\306\307#\2031\310\311!\210\202\"eb\210\313\314\306\307#\203C\315\316!\210\2024eb\210\313\317\306\307#\203U\315\320!\210\202Feb\210\313\321\306\307#\203g\315\322!\210\202Xeb\210\313\323\306\307#\203y\315\324!\210\202j\325 \210\302\326\"\207" [Man-arguments 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 (#$ . 19565) nil]) #@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\276\312\310\"\202\276\212 q\210\310eb\210\313\314!\204:\313\315!\203F`\310\210`{\316\202\211;\204[\317!\320=\203[\321!\322U\204\211\323 G!\204\211\311 !\324 GS! !H\325U\203| \322!O\202} )Qdb\210\326\327 \"c\210\n\203\224\330 !\210\202\255\"\203\237\331 \210\202\242\332 \210\333\334!\210\335 \210\336\310!\210)\n\204\266\337 !\210 \205\275\340 !)+\207" [process err-mess delete-buff Man-buffer case-fold-search msg get-buffer process-buffer nil buffer-name set-process-buffer looking-at "No \\(manual \\)*entry for" "[^\n]*: nothing appropriate$" t process-status exit process-exit-status 0 zerop ": process " 10 format "\nprocess %s" kill-buffer Man-fontify-manpage Man-cleanup-manpage run-hooks Man-cooked-hook Man-mode set-buffer-modified-p Man-notify-when-ready error eos Man-fontify-manpage-flag] 5 (#$ . 20343)]) #@1848 A mode for browsing Un*x manual pages. The following man commands are available in the buffer. Try "\[describe-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] 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\307\310\311\303!\312\313\314F\315\315\316p!\210\317\320!\210\321!\210\322!\210\323 \210\324 \210\325 \210\326\327!\210\330\331!\207" [major-mode mode-name buffer-auto-save-file-name mode-line-buffer-identification truncate-lines buffer-read-only Man-mode "Man" nil default-value " {" Man-page-mode-string "}" t buffer-disable-undo auto-fill-mode -1 use-local-map set-syntax-table Man-build-page-list Man-strip-page-headers Man-unindent Man-goto-page 1 run-hooks Man-mode-hook Man-mode-map man-mode-syntax-table] 4 (#$ . 21616) nil]) #@49 Build the association list of manpage sections. (defalias 'Man-build-section-alist #[nil "\305eb\210\305\306\nd\307#\2056\310\300\311\305\211\204\312 \203( \f\224\f\225O\202-\f\224\f\225{*\"\210\311y\210\202)\207" [Man-sections-alist case-fold-search Man-heading-regexp string n nil re-search-forward t aput 1 0] 6 (#$ . 24044)]) (put 'Man-build-section-alist 'byte-optimizer 'byte-compile-inline-expand) #@69 Build the association list of references (in the SEE ALSO section). (defalias 'Man-build-references-alist #[nil "\306\212\307 !\203\240\310y\210`\311\310!\210`\306\312\214 \f}\210eb\210\313 \210m\204\237`\nU\204\237`\314\f\315#\203\230\316\306\211\204E\316\203V\224\225O\202]\224\225{*\211GS \203w P\306GSH\317U\203\210\316O\320\"\203\227\321\300\"\210*\322\306w\210\202#-)\237\211\207" [Man-refpages-alist Man-see-also-regexp runningpoint hyphenated end start nil Man-find-section 1 Man-next-section -1 back-to-indentation re-search-forward t 0 45 string-match aput " \n," Man-hyphenated-reference-regexp string n word len Man-reference-regexp] 5 (#$ . 24467)]) (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?\205r\310\f!\2059\311\306\211\204\"\312 \2031 \224\225O\2028\224\225{*\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 string nil "" looking-at 1 0 re-search-forward move 2 beginning-of-line search-backward "\n\n" t 3 append copy-marker n Man-first-heading-regexp p] 6 (#$ . 25282)]) #@60 Strip all the page headers but the first from the manpage. (defalias 'Man-strip-page-headers #[nil "\306\211\306\307 \205I @\310\n8\203A\n@b\203A\311\306\312#\203A\n@\313\224{\211\203A\314 \nA@\312#\203A\315\307!\210\2020 A\211\204\306-\207" [Man-page-list header page page-list case-fold-search buffer-read-only nil "" 2 re-search-forward t 0 search-forward replace-match Man-first-heading-regexp] 6 (#$ . 25854)]) #@52 Delete the leading spaces that indent the manpage. (defalias 'Man-unindent #[nil "\306\211 \205C @\307\310\211@A@}\210\203$\311ed\"\210\312\313\215\203<m\204<l\2046\314\f!\210\315y\210\202* A+\202+\207" [Man-page-list page-list case-fold-search buffer-read-only nindent indent nil "" 0 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 page Man-uses-untabify-flag] 4 (#$ . 26296)]) #@45 Move point to Nth next section (default 1). (defalias 'Man-next-section #[(n) "\303\304 !\203 \305y\210\306 d\307\n$\203\310 \202db)\207" [case-fold-search Man-heading-regexp n nil looking-at 1 re-search-forward t beginning-of-line] 5 (#$ . 27017) "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 (#$ . 27283) "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 (#$ . 27560)]) #@37 Query for section to move point to. (defalias 'Man-goto-section #[nil "\305\300\306!\307\310\311 \312Q\313\f\"\211\203 \314\230\203\" \202# ,\"\210\315\306!!\207" [Man-sections-alist default completion-ignore-case chosen prompt aput aheadsym t nil "Go to section: (default " ") " completing-read "" Man-find-section] 6 (#$ . 27886) nil]) #@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\304Q!\207" [Man-see-also-regexp Man-find-section error "No " " section found in the current manpage"] 4 (#$ . 28243) 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 (#$ . 28547)]) #@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\302\303!\207\304\300 \"\210\305\306\307!!!\207" [Man-refpages-alist reference error "Can't find any references in the current manpage" aput Man-getpage-in-background Man-translate-references aheadsym] 4 (#$ . 29137) (byte-code "\204\305\306!\207\307\310 \311\312 \"\203 \313\211\224O\202 )\"@\206&\314!\315\316\n\317Q\320\f\315\321$\211\203? \322\230\203C\n\202D +C\207" [Man-refpages-alist word default chosen prompt error "There are no references in the current man page" all-completions Man-possibly-hyphenated-word string-match "-$" 0 aheadsym nil "Refer to: (default " ") " completing-read t ""] 6)]) #@41 Kill the buffer containing the manpage. (defalias 'Man-kill #[nil "\300\301!\207" [quit-window t] 2 (#$ . 29961) nil]) #@41 Bury the buffer containing the manpage. (defalias 'Man-quit #[nil "\300 \207" [quit-window] 1 (#$ . 30086) nil]) #@37 Go to the manual page on page PAGE. (defalias 'Man-goto-page #[(page) "\204 \306p!\210\307\310\n\"\210) \311W\204 GV\203\"\307\312 \"\210 S8\211@\fA@ \313\314\315S88\206?\316G$~\210 b\210 }\210\317eb\210\317 \320!d\321#\205\222\322\323\311\317\"\211#\204q\324#\"\203\202\"#\224#\225O\202\211#\224#\225{*\"\210\311y\210\202Y)\210\317\212\325$!\203C\311y\210`\326\311!\210`\317\327%&'(\214('}\210eb\210\330 \210m\204B`%U\204B`%\320)'\321#\203;\324\317\"\211#\204\344\324#\"\203\365\"#\224#\225O\202\374#\224#\225{*\211*GS+&\203&*P*\317&*GS+*+H\331U\203+*\324+O&\332,*\"\203:\322\333*\"\210*\334\317w\210\202\277-)\237eb+\207" [Man-page-list Man-arguments args page page-range page-start kill-buffer error "Can't find the %s manpage" 1 "No manpage %d found" format "%s page %d of %d" 2 "" nil re-search-forward t aput Man-sections-alist 0 Man-find-section Man-next-section -1 back-to-indentation 45 string-match Man-refpages-alist " \n," page-end Man-current-page Man-page-mode-string case-fold-search Man-heading-regexp string n Man-see-also-regexp runningpoint hyphenated end start Man-hyphenated-reference-regexp word len Man-reference-regexp] 7 (#$ . 30205) (byte-code "\204 \303p!\210\304\305\n\")\207G\306U\203\304\307!\207\310\311\312G\"!C\207" [Man-page-list Man-arguments args kill-buffer error "Can't find the %s manpage" 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 (#$ . 31755) 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 (#$ . 32114) nil]) (byte-code "\300 \210\301\302\303\"\210\301\302\304\"\210\305\306!\207" [Man-init-defvars add-to-list debug-ignored-errors "^No manpage [0-9]* found$" "^Can't find the .* manpage$" provide man] 3)