;ELC ;;; compiled by rms@mole.gnu.ai.mit.edu on Sun Mar 3 04:31:42 1996 ;;; from file /home/fsf/rms/e19/lisp/man.el ;;; emacs version 19.30.91.2. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (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 "ÀÁ!ˆÂ BÄ BÅ BÀ‡" [require assoc Man-notify current-load-list Man-current-page Man-page-list] 2) #@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. (defvar Man-filter-list nil (#$ . -576)) (byte-code "À B Bà BÄ BÀ‡" [Man-original-frame current-load-list Man-arguments Man-sections-alist Man-refpages-alist] 2) #@62 When non-nil use `untabify' instead of Man-untabify-command. (defvar Man-uses-untabify-flag t (#$ . 1181)) (byte-code "À BÀ‡" [Man-page-mode-string current-load-list] 2) #@65 Script for sed to nuke backspaces and ANSI codes from manpages. (defvar Man-sed-script nil (#$ . 1358)) #@34 *Make up the manpage with fonts. (defvar Man-fontify-manpage-flag t (#$ . -1468)) #@42 *Face to use when fontifying overstrike. (defvar Man-overstrike-face (quote bold) (#$ . -1556)) #@43 *Face to use when fontifying underlining. (defvar Man-underline-face (quote underline) (#$ . -1658)) #@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'. (defvar Man-notify-method (byte-code "ÀÁ!ƒ ‡Â‡" [boundp Man-notify friendly] 2) (#$ . -1766)) #@67 *Frame parameter list for creating a new frame for a manual page. (defvar Man-frame-parameters nil (#$ . -2709)) #@364 *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. (defvar Man-downcase-section-letters-flag t (#$ . -2829)) #@63 *If t, the manpage list is treated as circular for traversal. (defvar Man-circular-pages-flag t (#$ . -3256)) #@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. (defvar Man-section-translations-alist (list (quote ("3C++" . "3")) (quote ("3X11" . "3")) (quote ("1-UCB" . ""))) (#$ . -3373)) #@50 The name of the program that produces man pages. (defvar manual-program "man" (#$ . 3799)) #@31 Command used for untabifying. (defvar Man-untabify-command "pr" (#$ . 3896)) #@69 List of arguments to be passed to Man-untabify-command (which see). (defvar Man-untabify-command-args (list "-t" "-e") (#$ . 3979)) #@42 Command used for processing sed scripts. (defvar Man-sed-command "sed" (#$ . 4117)) #@42 Command used for processing awk scripts. (defvar Man-awk-command "awk" (#$ . 4207)) #@42 Mode line format for manual mode buffer. (defvar Man-mode-line-format (quote ("" mode-line-modified mode-line-buffer-identification " " global-mode-string " " Man-page-mode-string " %[(" mode-name mode-line-process minor-mode-alist ")%]----" (-3 . "%p") "-%-")) (#$ . 4297)) #@22 Keymap for Man mode. (defvar Man-mode-map nil (#$ . 4580)) #@36 Hook run when Man mode is enabled. (defvar Man-mode-hook nil (#$ . 4645)) #@68 Hook run after removing backspaces but before Man-mode processing. (defvar Man-cooked-hook nil (#$ . 4725)) #@72 Regular expression describing the name of a manpage (without section). (defvar Man-name-regexp "[-a-zA-Z0-9_][-a-zA-Z0-9_.]*" (#$ . 4839)) #@69 Regular expression describing a manpage section within parentheses. (defvar Man-section-regexp "[0-9][a-zA-Z+]*\\|[LNln]" (#$ . 4984)) #@54 Regular expression describing the heading of a page. (defvar Man-page-header-regexp (concat "^[ ]*\\(" Man-name-regexp "(\\(" Man-section-regexp "\\))\\).*\\1") (#$ . 5125)) #@56 Regular expression describing a manpage heading entry. (defvar Man-heading-regexp "^\\([A-Z][A-Z ]+\\)$" (#$ . 5306)) #@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" (#$ . 5431)) #@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.*$" (#$ . 5603)) #@68 Regular expression describing a reference in the SEE ALSO section. (defvar Man-reference-regexp (concat "\\(" Man-name-regexp "\\)(\\(" Man-section-regexp "\\))") (#$ . 5816)) #@57 Switches passed to the man command, as a single string. (defvar Man-switches "" (#$ . 5998)) #@58 Option that indicates a specified a manual section name. (defvar Man-specified-section-option (byte-code "ÀÁ\n\"ƒ Çć" [string-match "-solaris[0-9.]*$" system-configuration "-s" ""] 3) (#$ . 6097)) (byte-code "ÀÁ!ˆÀÂ!ˆÀÃ!ˆÀÄ!ˆÀÅ!ˆÀÆ!ˆÀÇ!ˆÈÁÉ\"ˆÈÂÉ\"ˆÈÃÉ\"ˆÈÄÊ\"ˆÈÅË\"‡" [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" (#$ . 6557)) #@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" (#$ . 6817)) (byte-code "„kÁ Â!ˆÃÄÅ#ˆÃÆÇ#ˆÃÈÉ#ˆÃÊË#ˆÃÌÍ#ˆÃÎÏ#ˆÃÐÑ#ˆÃÒÓ#ˆÃÔÓ#ˆÃÕÖ#ˆÃ×Ø#ˆÃÙÚ#ˆÃÛÜ#ˆÃÝÞ#ˆÃßà#ˆÃáâ#ˆÁ‡" [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 "?" describe-mode] 4) #@128 Used for initialising variables based on the value of window-system. This is necessary if one wants to dump man.el with emacs. (defalias 'Man-init-defvars #[nil "… ‰ƒ‚1Ã\f‰‰ %ÆUƒ ‚1Ã\f‰‰%ÆUƒ0‚1Â\fƒAÉÊQ‚BËÌÍÎÏÐÑÒÓÔÕÖ×ØÙ¯BÛÜÝÞßàʯB!?…j\"#BE‰$‡" [Man-fontify-manpage-flag window-system nil call-process Man-sed-command Man-sysv-sed-script 0 Man-berkeley-sed-script Man-sed-script "-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'" Man-awk-command "'\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-uses-untabify-flag Man-untabify-command Man-untabify-command-args Man-filter-list] 17 (#$ . 7587)]) #@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) "„Á\nƒ\n”•O‡”•{‡" [n 0 string] 3 (#$ . 8971)]) (put (quote Man-match-substring) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@45 Formats part of the mode line for Man mode. (defalias 'Man-make-page-mode-string #[nil "ÀÁ S\f88†\fÅ \fG$‡" [format "%s page %d of %d" 2 Man-current-page Man-page-list ""] 5 (#$ . 9412)]) (put (quote Man-make-page-mode-string) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@60 Builds the entire background manpage and cleaning command. (defalias 'Man-build-man-command #[nil "Á\nÃR\f ƒ3 @ƒ3 @@ @AÉÁÊËÁ#° A*‚ *‡" [manual-program " " Man-switches " %s 2>/dev/null" Man-filter-list flist command pargs pcom " | " mapconcat #[(phrase) ";„ ÁÂ!ˆ‡" [phrase error "Malformed Man-filter-list"] 2]] 8 (#$ . 9706)]) (put (quote Man-build-man-command) (quote byte-optimizer) (quote 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) "À‰ ÅÆÈQ \"ƒeÊ  ‰\f„ Í\f ƒ1 \f”\f•O‚8\f”\f•{*Î  ‰\f„HÍ\f ƒY \f”\f•O‚`\f”\f•{*‚ÅÅÏÑÓ° \"ƒÅÎ  ‰\f„ƒÍ\f ƒ” \f”\f•O‚›\f”\f•{*Ê  ‰\f„«Í\f ƒ¼ \f”\f•O‚Ã\f”\f•{*\fÀ˜ƒÐ ‚ƒØ —\nƒ\n@@\n@A\nAƒó— ˜ƒ\nƒ—‚×*‚Ø Ù\fR+‡" ["" Man-section-translations-alist slist section name string-match "^" Man-reference-regexp "$" ref 1 string n 0 2 "^\\(" Man-section-regexp "\\) +\\(" Man-name-regexp "\\)$" Man-downcase-section-letters-flag s2 s1 nil Man-specified-section-option " "] 7 (#$ . 10161)]) #@171 Make a guess at a default manual entry. This guess is based on the text surrounding the cursor, and the default section number is selected from `Man-auto-section-alist'. (defalias 'Man-default-man-entry #[nil "ÀŠÂÃ!„ ÄÀxˆÅÀxˆÂÆ!ƒÇuˆ`ÈÀwˆ`{‰ÂÉ\nËQ!…VÌÍÇÀ‰„<ЃM”•O‚T”•{*\"PÒÐGÀ$ˆ+‡" [nil default-title looking-at "[-a-zA-Z_.]" "^a-zA-Z" "-(a-zA-Z_0-9_." "(" 1 "-a-zA-Z0-9_." "[ ]*([ ]*\\(" Man-section-regexp "\\)[ ]*)" format "(%s)" string n 0 result set-text-properties] 7 (#$ . 11029)]) (byte-code "ÀÁÂÃ#ˆÄÅÆ\"‡" [put Man-default-man-entry byte-optimizer byte-compile-inline-expand defalias manual-entry man] 4) #@396 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. (defalias 'man #[(man-args) "À ! !‡" [Man-translate-references man-args Man-getpage-in-background] 2 (#$ . 11688) (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)))]) #@68 Uses TOPIC to build and fire off the manpage and cleaning command. (defalias 'Man-getpage-in-background #[(topic) " ÃQÅ\f!‰ƒÇ!‚ŽÈÉ!ˆÊË\f #ˆÍ\f!ŠqˆÎ  )Ñ!ÓÔÕ\"ˆÖ×\fØÙÚ\fÛÝR ƒ…@ƒ…@@@A!\" ã\"Ûäå!Û#° A*‚U * \"%æ\")+‡" [topic man-args "*Man " "*" bufname get-buffer buffer Man-notify-when-ready require env message "Invoking %s %s in the background" manual-program generate-new-buffer selected-frame Man-original-frame Man-arguments copy-sequence process-environment setenv "TERM" "dumb" set-process-sentinel start-process "sh" "-c" format " " Man-switches " %s 2>/dev/null" Man-filter-list flist command pargs pcom " | " mapconcat #[(phrase) ";„ ÁÂ!ˆ‡" [phrase error "Malformed Man-filter-list"] 2] Man-bgproc-sentinel] 16 (#$ . 12491)]) #@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) "Šqˆ ) Ä=ƒŠqˆÅ!)‚ž Ç=ƒ%È!‚ž É=ƒC\nƒ:Ë\n!ƒ:Ì\n!ˆÍ!ˆÎ ‚ž Ï=ƒ^\nƒXË\n!ƒXÌ\n!ˆÍ!‚ž Ð=ƒz\nƒsË\n!ƒsÌ\n!ˆÑÒ\"‚ž Ó=ƒŒÔ ˆÕÖ×!\"‚ž Ø=ƒ›ÕÖ×!\"‚žÕÙ!)‡" [man-buffer Man-original-frame saved-frame Man-notify-method newframe make-frame Man-frame-parameters pushy switch-to-buffer bully window-system frame-live-p select-frame 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 (#$ . 13292)]) #@112 Convert overstriking and underlining to the correct fonts. Same for the ANSI bold and normal escape sequences. (defalias 'Man-fontify-manpage #[nil "ÀÁ\n\"ˆebˆÃÄÅÆ#ƒ+ÇÈ!ˆÉ`ÃÊÅË#ƒ\"ÇÈ!ˆ`Ì $ˆ‚ebˆÃÎÅÆ#ƒFÏÐ!ˆÉ``TÌ$ˆ‚.ebˆÃÒÅÆ#ƒaÏÐ!ˆÉ`S`Ì$ˆ‚IebˆÓÔÅÆ#ƒ|ÕÖ!ˆÉ`S`Ì $ˆ‚debˆÓ×ÅÆ#ƒ–ÕØ!ˆÉ`S`ÌÙ$ˆ‚ebˆÓÚÅÆ#ƒ°ÕÛ!ˆÉ`S`ÌÙ$ˆ‚™ebˆÃÜÅÆ#ƒÂÕÝ!ˆ‚³ÀÞ\n\"‡" [message "Please wait: making up the %s man page..." Man-arguments search-forward "" nil t delete-backward-char 4 put-text-property "" move face Man-overstrike-face "_" backward-delete-char 2 Man-underline-face "_" re-search-forward "\\(.\\)\\(\\1\\)+" replace-match "\\1" "o\\+\\|\\+o" "o" bold "[-|]\\([-|]\\)+" "+" "­" "-" "%s man page made up"] 6 (#$ . 13987) nil]) #@62 Remove overstriking and underlining from the current buffer. (defalias 'Man-cleanup-manpage #[nil "ÀÁ\n\"ˆt„ „gebˆÄÅÆÇ#ƒÈÉ!ˆ‚ebˆÄÊÆÇ#ƒ1ÈÉ!ˆ‚\"ebˆËÌÆÇ#ƒCÍÎ!ˆ‚4ebˆËÏÆÇ#ƒUÍÐ!ˆ‚FebˆËÑÆÇ#ƒgÍÒ!ˆ‚XebˆËÓÆÇ#ƒyÍÔ!ˆ‚jebˆÄÕÆÇ#ƒ‹ÍÖ!ˆ‚|À×\n\"‡" [message "Please wait: cleaning up the %s man page..." Man-arguments Man-sed-script search-forward "_" nil t backward-delete-char 2 "_" re-search-forward "\\(.\\)\\(\\1\\)+" replace-match "\\1" "\\[[0-9]+m" "" "o\\+\\|\\+o" "o" "[-|]\\([-|]\\)+" "+" "­" "-" "%s man page cleaned up"] 4 (#$ . 14732) nil]) #@38 Manpage background process sentinel. (defalias 'Man-bgproc-sentinel #[(process msg) "À !‰Æ !„Ç Â\"‚¨Š qˆÂebˆÉÊ!„+ÉË!ƒ7`ˆ`{Ì‚sÍ !Î=ƒGÏ !ÐU„sÆ !ÑGSHÔUƒdÐO‚f)QdbˆÕÖ\"cˆ\fƒ~× !ˆ‚—ƒ‰Ù ˆ‚ŒÚ ˆÛÜ!ˆÝ ˆÞÂ!ˆ)\f„ ß !ˆ …§à !)+‡" [process-buffer process nil err-mess delete-buff Man-buffer buffer-name set-process-buffer case-fold-search looking-at "No \\(manual \\)*entry for" "[^\n]*: nothing appropriate$" t process-status exit process-exit-status 0 ": process " msg eos 10 format "\nprocess %s" kill-buffer Man-fontify-manpage-flag Man-fontify-manpage Man-cleanup-manpage run-hooks Man-cooked-hook Man-mode set-buffer-modified-p Man-notify-when-ready error] 5 (#$ . 15300)]) #@2093 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-auto-section-alist List of major modes and their section numbers. Man-section-translations-alist List of section numbers and their Un*x equiv. Man-filter-list Background manpage filter command. Man-mode-line-format Mode line format for Man mode buffers. 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 "ÀÂÄÈ È\nËp!ˆÌÍ!ˆÎ!ˆÐ ˆÑ ˆÒ ˆÓÔ!ˆÕÖ!‡" [Man-mode major-mode "Man" mode-name nil buffer-auto-save-file-name Man-mode-line-format mode-line-format t truncate-lines buffer-read-only buffer-disable-undo auto-fill-mode -1 use-local-map Man-mode-map Man-build-page-list Man-strip-page-headers Man-unindent Man-goto-page 1 run-hooks Man-mode-hook] 2 (#$ . 16018) nil]) #@49 Build the association list of manpage sections. (defalias 'Man-build-section-alist #[nil "ÀebˆÀÃ\fdÅ#…?ÆÁÇÀ‰ „Ê ƒ/ ” •O‚6 ” •{*\"ˆÇyˆ‚)‡" [nil Man-sections-alist case-fold-search re-search-forward Man-heading-regexp t aput 1 string n 0] 6 (#$ . 18515)]) (put (quote Man-build-section-alist) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@69 Build the association list of references (in the SEE ALSO section). (defalias 'Man-build-references-alist #[nil "ÀŠÂ !…£Äyˆ`ÅÄ!ˆ`ÀÆ \nŒ\n }ˆebˆË ˆm?…¢`U?…¢`Ì  Î#ƒ›ÏÀ‰„Pσa”•O‚h”•{*‰GSƒPÀHÔUƒ”ÏO‚šÕÁ\"ˆ*ÖÀwˆ‚)-)‡" [nil Man-refpages-alist Man-find-section Man-see-also-regexp 1 Man-next-section -1 runningpoint hyphenated end start back-to-indentation re-search-forward Man-reference-regexp t 0 string n word len 45 aput " \n,"] 5 (#$ . 18892)]) (put (quote Man-build-references-alist) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@52 Build the list of separate manpages in the buffer. (defalias 'Man-build-page-list #[nil "Àed‰bˆm?…wÆ!…=ÈÀ ‰\n„$Ë\n ƒ5 \n”\n•O‚<\n”\n•{*Ì ÀÎÏ$ƒcËyˆ`ÑÒÀÓÔ$ˆÌÎ#ƒbËyˆ)`Õ Ö !Ö\f! EC\"\f‚ +‡" [nil Man-page-list "" header page-end page-start looking-at Man-page-header-regexp 1 string n 0 re-search-forward Man-first-heading-regexp move 2 p search-backward "\n\n" t 3 append copy-marker] 6 (#$ . 19512)]) #@60 Strip all the page headers but the first from the manpage. (defalias 'Man-strip-page-headers #[nil "À‰ À …K @È\f8ƒC\f@bƒCÉ\nÀË#ƒC\f@Ì”{‰ƒCÍ \fA@Ë#ƒCÎÂ!ˆ‚2 A‰„À-‡" [nil Man-page-list "" header page page-list case-fold-search buffer-read-only 2 re-search-forward Man-first-heading-regexp t 0 search-forward replace-match] 6 (#$ . 19951)]) #@52 Delete the leading spaces that indent the manpage. (defalias 'Man-unindent #[nil "À‰ \n…F\n@ÅƉ @ A@}ˆ\nƒ&Ëed\"ˆÌ̓?m„?l„9Î!ˆÏyˆ‚,\nA+‚+‡" [nil Man-page-list page-list case-fold-search buffer-read-only "" 0 nindent indent page Man-uses-untabify-flag untabify unindent (byte-code "ebˆÀ ÂÃ#„ÄÅÂ\"ˆÆyˆ`ÇÂwˆ`{‰G‰ ÆUƒ+ÄÅÂ\"ˆÊPebˆm„MË!ƒEÌyˆ‚4ÄÅÂ\"ˆ‚4eb‡" [re-search-forward Man-first-heading-regexp nil t throw unindent 0 " " indent nindent "\\|$" looking-at 1] 5) delete-char 1] 4 (#$ . 20315)]) #@45 Move point to Nth next section (default 1). (defalias 'Man-next-section #[(n) "À !ƒ ÄyˆÅ dÆ$ƒÈyˆÀ‚db)‡" [nil case-fold-search looking-at Man-heading-regexp 1 re-search-forward t n 0] 5 (#$ . 20850) "p"]) #@49 Move point to Nth previous section (default 1). (defalias 'Man-previous-section #[(n) "À !ƒ ÄyˆÅ eÆ$ƒÈyˆÀ‚eb)‡" [nil case-fold-search looking-at Man-heading-regexp -1 re-search-backward t n 0] 5 (#$ . 21069) "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) "`ÀebˆÃÄ PdÆ#ƒÇyˆÆ‚\nbˆÀ*‡" [nil case-fold-search curpos re-search-forward "^" section t 0] 4 (#$ . 21299)]) #@37 Query for section to move point to. (defalias 'Man-goto-section #[nil "ÀÁ !ÄÆÈ ÉQ\nË\n \"‰ƒ#̘ƒ' ‚),\"ˆÍ !!‡" [aput Man-sections-alist aheadsym default t completion-ignore-case nil chosen "Go to section: (default " ") " prompt completing-read "" Man-find-section] 6 (#$ . 21570) nil]) #@109 Move point the the "SEE ALSO" section. Actually the section moved to is described by `Man-see-also-regexp'. (defalias 'Man-goto-see-also-section #[nil "À !?… Âà ÄQ!‡" [Man-find-section Man-see-also-regexp error "No " " section found in the current manpage"] 4 (#$ . 21879) 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) "„ÁÂ!‡ÃÀ\f\"ˆÅÆÇ!!!‡" [Man-refpages-alist error "Can't find any references in the current manpage" aput reference Man-getpage-in-background Man-translate-references aheadsym] 4 (#$ . 22166) (byte-code "„ÁÂ!‡ÃŠÄÅ!ˆÆÇwˆÈ  ÊË \"ƒ' ̉”O‚) *\"@†3Í!ÇÐÑQÓÇÔ$‰ƒSÕ˜ƒX‚Z+C‡" [Man-refpages-alist error "There are no references in the current man page" all-completions skip-syntax-backward "w()" " " nil current-word word string-match "-$" 0 aheadsym default chosen "Refer to: (default " ") " prompt completing-read t ""] 6)]) #@41 Kill the buffer containing the manpage. (defalias 'Man-kill #[nil "pÁ!ˆÂ!ˆ) …\"\fÅ=„ …\"\fÇ=…\"È ‡" [buff delete-windows-on kill-buffer window-system Man-notify-method newframe pop-up-frames bully delete-frame] 2 (#$ . 22909) nil]) #@41 Bury the buffer containing the manpage. (defalias 'Man-quit #[nil "pÁ!ˆÂ!ˆ) …\"\fÅ=„ …\"\fÇ=…\"È ‡" [buff delete-windows-on bury-buffer window-system Man-notify-method newframe pop-up-frames bully delete-frame] 2 (#$ . 23156) nil]) #@37 Go to the manual page on page PAGE. (defalias 'Man-goto-page #[(page) "„ Ãp!ˆÄÅ\n\"ˆ)ÇW„GVƒ%ÄÈ\"ˆS8‰ @\n A@ \fÍÎÏ\fS88†GÐ\fG$~ˆ\nbˆ\n }ˆÒebˆÒÕd×#…œØÓÇÒ‰„{ÛƒŒ”•O‚“”•{*\"ˆÇyˆ‚c)ˆÒŠÝ!…CÇyˆ`ßÇ!ˆ`Òà!\"#$Œ$#}ˆebˆå ˆm?…B`!U?…B`!Õ&#×#ƒ;ÛÒ‰„ðÛƒ”•O‚”•{*‰'GS(\"ƒ\"'P'Ò\"'(HéUƒ4'Û(O\"‚:ØÜ'\"ˆ*êÒwˆ‚É-)ˆeb+‡" [Man-page-list Man-arguments args kill-buffer error "Can't find the %s manpage" page 1 "No manpage %d found" page-range page-start page-end Man-current-page format "%s page %d of %d" 2 "" Man-page-mode-string nil Man-sections-alist case-fold-search re-search-forward Man-heading-regexp t aput string n 0 Man-refpages-alist Man-find-section Man-see-also-regexp Man-next-section -1 runningpoint hyphenated end start back-to-indentation Man-reference-regexp word len 45 " \n,"] 7 (#$ . 23403) (byte-code "„ Ãp!ˆÄÅ\n\")‡GÆUƒÄÇ!‡ÈÉÊG\"!C‡" [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ÁUƒ ÂÃ!ˆ\fGWƒÅ\fT!‡ƒ ÅÁ!‡ÂÇ!‡" [Man-page-list 1 error "This is the only manpage in the buffer" Man-current-page Man-goto-page Man-circular-pages-flag "You're looking at the last manpage in the buffer"] 2 (#$ . 24558) nil]) #@48 Find the previous manpage entry in the buffer. (defalias 'Man-previous-manpage #[nil "GÁUƒ ÂÃ!ˆ\fÁVƒÅ\fS!‡ƒ ÅG!‡ÂÇ!‡" [Man-page-list 1 error "This is the only manpage in the buffer" Man-current-page Man-goto-page Man-circular-pages-flag "You're looking at the first manpage in the buffer"] 2 (#$ . 24874) nil]) (byte-code "À ˆÁÂ!‡" [Man-init-defvars provide man] 2)