annotate lisp/man.el @ 48107:c0a7fff00ce5

(Info-hide-note-references): New defcustom. (Info-fontify-node): Use it.

申鐃緒申     1 ;;; man.el --- browse UNIX manual pages
申鐃緒申     2 
申鐃緒申     3 ;; Copyright (C) 1993, 1994, 1996, 1997, 2001 Free Software Foundation, Inc.
申鐃緒申     4 
申鐃緒申     5 ;; Author: Barry A. Warsaw <[e-mail]>
申鐃緒申     6 ;; Maintainer: FSF
申鐃緒申     7 ;; Keywords: help
申鐃緒申     8 ;; Adapted-By: ESR, pot
申鐃緒申     9 
申鐃緒申    10 ;; This file is part of GNU Emacs.
申鐃緒申    11 
申鐃緒申    12 ;; GNU Emacs is free software; you can redistribute it and/or modify
申鐃緒申    13 ;; it under the terms of the GNU General Public License as published by
申鐃緒申    14 ;; the Free Software Foundation; either version 2, or (at your option)
申鐃緒申    15 ;; any later version.
申鐃緒申    16 
申鐃緒申    17 ;; GNU Emacs is distributed in the hope that it will be useful,
申鐃緒申    18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
申鐃緒申    19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
申鐃緒申    20 ;; GNU General Public License for more details.
申鐃緒申    21 
申鐃緒申    22 ;; You should have received a copy of the GNU General Public License
申鐃緒申    23 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
申鐃緒申    24 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
申鐃緒申    25 ;; Boston, MA 02111-1307, USA.
申鐃緒申    26 
申鐃緒申    27 ;;; Commentary:
申鐃緒申    28 
申鐃緒申    29 ;; This code provides a function, `man', with which you can browse
申鐃緒申    30 ;; UNIX manual pages.  Formatting is done in background so that you
申鐃緒申    31 ;; can continue to use your Emacs while processing is going on.
申鐃緒申    32 ;;
申鐃緒申    33 ;; The mode also supports hypertext-like following of manual page SEE
申鐃緒申    34 ;; ALSO references, and other features.  See below or do `?' in a
申鐃緒申    35 ;; manual page buffer for details.
申鐃緒申    36 
申鐃緒申    37 ;; ========== Credits and History ==========
申鐃緒申    38 ;; In mid 1991, several people posted some interesting improvements to
申鐃緒申    39 ;; man.el from the standard emacs 18.57 distribution.  I liked many of
申鐃緒申    40 ;; these, but wanted everything in one single package, so I decided
申鐃緒申    41 ;; to incorporate them into a single manual browsing mode.  While
申鐃緒申    42 ;; much of the code here has been rewritten, and some features added,
申鐃緒申    43 ;; these folks deserve lots of credit for providing the initial
申鐃緒申    44 ;; excellent packages on which this one is based.
申鐃緒申    45 
申鐃緒申    46 ;; Nick Duffek <[e-mail]>, posted a very nice
申鐃緒申    47 ;; improvement which retrieved and cleaned the manpages in a
申鐃緒申    48 ;; background process, and which correctly deciphered such options as
申鐃緒申    49 ;; man -k.
申鐃緒申    50 
申鐃緒申    51 ;; Eric Rose <[e-mail]>, submitted manual.el which
申鐃緒申    52 ;; provided a very nice manual browsing mode.
申鐃緒申    53 
申鐃緒申    54 ;; This package was available as `superman.el' from the LCD package
申鐃緒申    55 ;; for some time before it was accepted into Emacs 19.  The entry
申鐃緒申    56 ;; point and some other names have been changed to make it a drop-in
申鐃緒申    57 ;; replacement for the old man.el package.
申鐃緒申    58 
申鐃緒申    59 ;; Francesco Potorti` <[e-mail]> cleaned it up thoroughly,
申鐃緒申    60 ;; making it faster, more robust and more tolerant of different
申鐃緒申    61 ;; systems' man idiosyncrasies.
申鐃緒申    62 
申鐃緒申    63 ;; ========== Features ==========
申鐃緒申    64 ;; + Runs "man" in the background and pipes the results through a
申鐃緒申    65 ;;   series of sed and awk scripts so that all retrieving and cleaning
申鐃緒申    66 ;;   is done in the background. The cleaning commands are configurable.
申鐃緒申    67 ;; + Syntax is the same as Un*x man
申鐃緒申    68 ;; + Functionality is the same as Un*x man, including "man -k" and
申鐃緒申    69 ;;   "man <section>", etc.
申鐃緒申    70 ;; + Provides a manual browsing mode with keybindings for traversing
申鐃緒申    71 ;;   the sections of a manpage, following references in the SEE ALSO
申鐃緒申    72 ;;   section, and more.
申鐃緒申    73 ;; + Multiple manpages created with the same man command are put into
申鐃緒申    74 ;;   a narrowed buffer circular list.
申鐃緒申    75 
申鐃緒申    76 ;; ============= TODO ===========
申鐃緒申    77 ;; - Add a command for printing.
申鐃緒申    78 ;; - The awk script deletes multiple blank lines.  This behaviour does
申鐃緒申    79 ;;   not allow to understand if there was indeed a blank line at the
申鐃緒申    80 ;;   end or beginning of a page (after the header, or before the
申鐃緒申    81 ;;   footer).  A different algorithm should be used.  It is easy to
申鐃緒申    82 ;;   compute how many blank lines there are before and after the page
申鐃緒申    83 ;;   headers, and after the page footer.  But it is possible to compute
申鐃緒申    84 ;;   the number of blank lines before the page footer by heuristics
申鐃緒申    85 ;;   only.  Is it worth doing?
申鐃緒申    86 ;; - Allow a user option to mean that all the manpages should go in
申鐃緒申    87 ;;   the same buffer, where they can be browsed with M-n and M-p.
申鐃緒申    88 ;; - Allow completion on the manpage name when calling man.  This
申鐃緒申    89 ;;   requires a reliable list of places where manpages can be found.  The
申鐃緒申    90 ;;   drawback would be that if the list is not complete, the user might
申鐃緒申    91 ;;   be led to believe that the manpages in the missing directories do
申鐃緒申    92 ;;   not exist.
申鐃緒申    93 
申鐃緒申    94 
申鐃緒申    95 ;;; Code:
申鐃緒申    96 
申鐃緒申    97 (require 'assoc)
申鐃緒申    98 
申鐃緒申    99 ;; vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv
申鐃緒申   100 ;; empty defvars (keep the compiler quiet)
申鐃緒申   101 
申鐃緒申   102 (defgroup man nil
申鐃緒申   103   "Browse UNIX manual pages."
申鐃緒申   104   :prefix "Man-"
申鐃緒申   105   :group 'help)
申鐃緒申   106 
申鐃緒申   107 
申鐃緒申   108 (defvar Man-notify)
申鐃緒申   109 (defvar Man-current-page)
申鐃緒申   110 (defvar Man-page-list)
申鐃緒申   111 (defcustom Man-filter-list nil
申鐃緒申   112   "*Manpage cleaning filter command phrases.
申鐃緒申   113 This variable contains a list of the following form:
申鐃緒申   114 
申鐃緒申   115 '((command-string phrase-string*)*)
申鐃緒申   116 
申鐃緒申   117 Each phrase-string is concatenated onto the command-string to form a
申鐃緒申   118 command filter.  The (standard) output (and standard error) of the Un*x
申鐃緒申   119 man command is piped through each command filter in the order the
申鐃緒申   120 commands appear in the association list.  The final output is placed in
申鐃緒申   121 the manpage buffer."
申鐃緒申   122   :type '(repeat (list (string :tag "Command String")
申鐃緒申   123 		       (repeat :inline t
申鐃緒申   124 			       (string :tag "Phrase String"))))
申鐃緒申   125   :group 'man)
申鐃緒申   126 
申鐃緒申   127 (defvar Man-original-frame)
申鐃緒申   128 (defvar Man-arguments)
申鐃緒申   129 (defvar Man-sections-alist)
申鐃緒申   130 (defvar Man-refpages-alist)
申鐃緒申   131 (defvar Man-uses-untabify-flag t
申鐃緒申   132   "Non-nil means use `untabify' instead of `Man-untabify-command'.")
申鐃緒申   133 (defvar Man-page-mode-string)
申鐃緒申   134 (defvar Man-sed-script nil
申鐃緒申   135   "Script for sed to nuke backspaces and ANSI codes from manpages.")
申鐃緒申   136 
申鐃緒申   137 ;; vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv
申鐃緒申   138 ;; user variables
申鐃緒申   139 
申鐃緒申   140 (defcustom Man-fontify-manpage-flag t
申鐃緒申   141   "*Non-nil means make up the manpage with fonts."
申鐃緒申   142   :type 'boolean
申鐃緒申   143   :group 'man)
申鐃緒申   144 
申鐃緒申   145 (defcustom Man-overstrike-face 'bold
申鐃緒申   146   "*Face to use when fontifying overstrike."
申鐃緒申   147   :type 'face
申鐃緒申   148   :group 'man)
申鐃緒申   149 
申鐃緒申   150 (defcustom Man-underline-face 'underline
申鐃緒申   151   "*Face to use when fontifying underlining."
申鐃緒申   152   :type 'face
申鐃緒申   153   :group 'man)
申鐃緒申   154 
申鐃緒申   155 ;; Use the value of the obsolete user option Man-notify, if set.
申鐃緒申   156 (defcustom Man-notify-method (if (boundp 'Man-notify) Man-notify 'friendly)
申鐃緒申   157   "*Selects the behavior when manpage is ready.
申鐃緒申   158 This variable may have one of the following values, where (sf) means
申鐃緒申   159 that the frames are switched, so the manpage is displayed in the frame
申鐃緒申   160 where the man command was called from:
申鐃緒申   161 
申鐃緒申   162 newframe   -- put the manpage in its own frame (see `Man-frame-parameters')
申鐃緒申   163 pushy      -- make the manpage the current buffer in the current window
申鐃緒申   164 bully      -- make the manpage the current buffer and only window (sf)
申鐃緒申   165 aggressive -- make the manpage the current buffer in the other window (sf)
申鐃緒申   166 friendly   -- display manpage in the other window but don't make current (sf)
申鐃緒申   167 polite     -- don't display manpage, but prints message and beep when ready
申鐃緒申   168 quiet      -- like `polite', but don't beep
申鐃緒申   169 meek       -- make no indication that the manpage is ready
申鐃緒申   170 
申鐃緒申   171 Any other value of `Man-notify-method' is equivalent to `meek'."
申鐃緒申   172   :type '(radio (const newframe) (const pushy) (const bully)
申鐃緒申   173 		(const aggressive) (const friendly)
申鐃緒申   174 		(const polite) (const quiet) (const meek))
申鐃緒申   175   :group 'man)
申鐃緒申   176 
申鐃緒申   177 (defcustom Man-frame-parameters nil
申鐃緒申   178   "*Frame parameter list for creating a new frame for a manual page."
申鐃緒申   179   :type 'sexp
申鐃緒申   180   :group 'man)
申鐃緒申   181 
申鐃緒申   182 (defcustom Man-downcase-section-letters-flag t
申鐃緒申   183   "*Non-nil means letters in sections are converted to lower case.
申鐃緒申   184 Some Un*x man commands can't handle uppercase letters in sections, for
申鐃緒申   185 example \"man 2V chmod\", but they are often displayed in the manpage
申鐃緒申   186 with the upper case letter.  When this variable is t, the section
申鐃緒申   187 letter (e.g., \"2V\") is converted to lowercase (e.g., \"2v\") before
申鐃緒申   188 being sent to the man background process."
申鐃緒申   189   :type 'boolean
申鐃緒申   190   :group 'man)
申鐃緒申   191 
申鐃緒申   192 (defcustom Man-circular-pages-flag t
申鐃緒申   193   "*Non-nil means the manpage list is treated as circular for traversal."
申鐃緒申   194   :type 'boolean
申鐃緒申   195   :group 'man)
申鐃緒申   196 
申鐃緒申   197 (defcustom Man-section-translations-alist
申鐃緒申   198   (list
申鐃緒申   199    '("3C++" . "3")
申鐃緒申   200    ;; Some systems have a real 3x man section, so let's comment this.
申鐃緒申   201    ;; '("3X" . "3")                        ; Xlib man pages
申鐃緒申   202    '("3X11" . "3")
申鐃緒申   203    '("1-UCB" . ""))
申鐃緒申   204   "*Association list of bogus sections to real section numbers.
申鐃緒申   205 Some manpages (e.g. the Sun C++ 2.1 manpages) have section numbers in
申鐃緒申   206 their references which Un*x `man' does not recognize.  This
申鐃緒申   207 association list is used to translate those sections, when found, to
申鐃緒申   208 the associated section number."
申鐃緒申   209   :type '(repeat (cons (string :tag "Bogus Section")
申鐃緒申   210 		       (string :tag "Real Section")))
申鐃緒申   211   :group 'man)
申鐃緒申   212 
申鐃緒申   213 (defvar manual-program "man"
申鐃緒申   214   "The name of the program that produces man pages.")
申鐃緒申   215 
申鐃緒申   216 (defvar Man-untabify-command "pr"
申鐃緒申   217   "Command used for untabifying.")
申鐃緒申   218 
申鐃緒申   219 (defvar Man-untabify-command-args (list "-t" "-e")
申鐃緒申   220   "List of arguments to be passed to `Man-untabify-command' (which see).")
申鐃緒申   221 
申鐃緒申   222 (defvar Man-sed-command "sed"
申鐃緒申   223   "Command used for processing sed scripts.")
申鐃緒申   224 
申鐃緒申   225 (defvar Man-awk-command "awk"
申鐃緒申   226   "Command used for processing awk scripts.")
申鐃緒申   227 
申鐃緒申   228 (defvar Man-mode-map nil
申鐃緒申   229   "Keymap for Man mode.")
申鐃緒申   230 
申鐃緒申   231 (defvar Man-mode-hook nil
申鐃緒申   232   "Hook run when Man mode is enabled.")
申鐃緒申   233 
申鐃緒申   234 (defvar Man-cooked-hook nil
申鐃緒申   235   "Hook run after removing backspaces but before `Man-mode' processing.")
申鐃緒申   236 
申鐃緒申   237 (defvar Man-name-regexp "[-a-zA-Z0-9_][-a-zA-Z0-9_.]*"
申鐃緒申   238   "Regular expression describing the name of a manpage (without section).")
申鐃緒申   239 
申鐃緒申   240 (defvar Man-section-regexp "[0-9][a-zA-Z+]*\\|[LNln]"
申鐃緒申   241   "Regular expression describing a manpage section within parentheses.")
申鐃緒申   242 
申鐃緒申   243 (defvar Man-page-header-regexp
申鐃緒申   244   (if (and (string-match "-solaris2\\." system-configuration)
申鐃緒申   245 	   (not (string-match "-solaris2\\.[123435]$" system-configuration)))
申鐃緒申   246       (concat "^[-A-Za-z0-9_].*[ \t]\\(" Man-name-regexp
申鐃緒申   247 	      "(\\(" Man-section-regexp "\\))\\)$")
申鐃緒申   248     (concat "^[ \t]*\\(" Man-name-regexp
申鐃緒申   249 	    "(\\(" Man-section-regexp "\\))\\).*\\1"))
申鐃緒申   250   "Regular expression describing the heading of a page.")
申鐃緒申   251 
申鐃緒申   252 (defvar Man-heading-regexp "^\\([A-Z][A-Z ]+\\)$"
申鐃緒申   253   "Regular expression describing a manpage heading entry.")
申鐃緒申   254 
申鐃緒申   255 (defvar Man-see-also-regexp "SEE ALSO"
申鐃緒申   256   "Regular expression for SEE ALSO heading (or your equivalent).
申鐃緒申   257 This regexp should not start with a `^' character.")
申鐃緒申   258 
申鐃緒申   259 (defvar Man-first-heading-regexp "^[ \t]*NAME$\\|^[ \t]*No manual entry fo.*$"
申鐃緒申   260   "Regular expression describing first heading on a manpage.
申鐃緒申   261 This regular expression should start with a `^' character.")
申鐃緒申   262 
申鐃緒申   263 (defvar Man-reference-regexp
申鐃緒申   264   (concat "\\(" Man-name-regexp "\\)(\\(" Man-section-regexp "\\))")
申鐃緒申   265   "Regular expression describing a reference to another manpage.")
申鐃緒申   266 
申鐃緒申   267 ;; This includes the section as an optional part to catch hyphenated
申鐃緒申   268 ;; refernces to manpages.
申鐃緒申   269 (defvar Man-hyphenated-reference-regexp
申鐃緒申   270   (concat "\\(" Man-name-regexp "\\)\\((\\(" Man-section-regexp "\\))\\)?")
申鐃緒申   271   "Regular expression describing a reference in the SEE ALSO section.")
申鐃緒申   272 
申鐃緒申   273 (defvar Man-switches ""
申鐃緒申   274   "Switches passed to the man command, as a single string.
申鐃緒申   275 
申鐃緒申   276 If you want to be able to see all the manpages for a subject you type,
申鐃緒申   277 make -a one of the switches, if your `man' program supports it.")
申鐃緒申   278 
申鐃緒申   279 (defvar Man-specified-section-option
申鐃緒申   280   (if (string-match "-solaris[0-9.]*$" system-configuration)
申鐃緒申   281       "-s"
申鐃緒申   282     "")
申鐃緒申   283   "Option that indicates a specified a manual section name.")
申鐃緒申   284 
申鐃緒申   285 ;; ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
申鐃緒申   286 ;; end user variables
申鐃緒申   287 
申鐃緒申   288 ;; other variables and keymap initializations
申鐃緒申   289 (make-variable-buffer-local 'Man-sections-alist)
申鐃緒申   290 (make-variable-buffer-local 'Man-refpages-alist)
申鐃緒申   291 (make-variable-buffer-local 'Man-page-list)
申鐃緒申   292 (make-variable-buffer-local 'Man-current-page)
申鐃緒申   293 (make-variable-buffer-local 'Man-page-mode-string)
申鐃緒申   294 (make-variable-buffer-local 'Man-original-frame)
申鐃緒申   295 (make-variable-buffer-local 'Man-arguments)
申鐃緒申   296 
申鐃緒申   297 (setq-default Man-sections-alist nil)
申鐃緒申   298 (setq-default Man-refpages-alist nil)
申鐃緒申   299 (setq-default Man-page-list nil)
申鐃緒申   300 (setq-default Man-current-page 0)
申鐃緒申   301 (setq-default Man-page-mode-string "1 of 1")
申鐃緒申   302 
申鐃緒申   303 (defconst Man-sysv-sed-script "\
申鐃緒申   304 /\b/ {	s/_\b//g
申鐃緒申   305 	s/\b_//g
申鐃緒申   306         s/o\b+/o/g
申鐃緒申   307         s/+\bo/o/g
申鐃緒申   308 	:ovstrk
申鐃緒申   309 	s/\\(.\\)\b\\1/\\1/g
申鐃緒申   310 	t ovstrk
申鐃緒申   311 	}
申鐃緒申   312 /\e\\[[0-9][0-9]*m/ s///g"
申鐃緒申   313   "Script for sysV-like sed to nuke backspaces and ANSI codes from manpages.")
申鐃緒申   314 
申鐃緒申   315 (defconst Man-berkeley-sed-script "\
申鐃緒申   316 /\b/ {	s/_\b//g\\
申鐃緒申   317 	s/\b_//g\\
申鐃緒申   318         s/o\b+/o/g\\
申鐃緒申   319         s/+\bo/o/g\\
申鐃緒申   320 	:ovstrk\\
申鐃緒申   321 	s/\\(.\\)\b\\1/\\1/g\\
申鐃緒申   322 	t ovstrk\\
申鐃緒申   323 	}\\
申鐃緒申   324 /\e\\[[0-9][0-9]*m/ s///g"
申鐃緒申   325   "Script for berkeley-like sed to nuke backspaces and ANSI codes from manpages.")
申鐃緒申   326 
申鐃緒申   327 (defvar man-mode-syntax-table
申鐃緒申   328   (let ((table (copy-syntax-table (standard-syntax-table))))
申鐃緒申   329     (modify-syntax-entry ?. "w" table)
申鐃緒申   330     (modify-syntax-entry ?_ "w" table)
申鐃緒申   331     table)
申鐃緒申   332   "Syntax table used in Man mode buffers.")
申鐃緒申   333 
申鐃緒申   334 (if Man-mode-map
申鐃緒申   335     nil
申鐃緒申   336   (setq Man-mode-map (make-keymap))
申鐃緒申   337   (suppress-keymap Man-mode-map)
申鐃緒申   338   (define-key Man-mode-map " "    'scroll-up)
申鐃緒申   339   (define-key Man-mode-map "\177" 'scroll-down)
申鐃緒申   340   (define-key Man-mode-map "n"    'Man-next-section)
申鐃緒申   341   (define-key Man-mode-map "p"    'Man-previous-section)
申鐃緒申   342   (define-key Man-mode-map "\en"  'Man-next-manpage)
申鐃緒申   343   (define-key Man-mode-map "\ep"  'Man-previous-manpage)
申鐃緒申   344   (define-key Man-mode-map ">"    'end-of-buffer)
申鐃緒申   345   (define-key Man-mode-map "<"    'beginning-of-buffer)
申鐃緒申   346   (define-key Man-mode-map "."    'beginning-of-buffer)
申鐃緒申   347   (define-key Man-mode-map "r"    'Man-follow-manual-reference)
申鐃緒申   348   (define-key Man-mode-map "g"    'Man-goto-section)
申鐃緒申   349   (define-key Man-mode-map "s"    'Man-goto-see-also-section)
申鐃緒申   350   (define-key Man-mode-map "k"    'Man-kill)
申鐃緒申   351   (define-key Man-mode-map "q"    'Man-quit)
申鐃緒申   352   (define-key Man-mode-map "m"    'man)
申鐃緒申   353   (define-key Man-mode-map "\r"   'man-follow)
申鐃緒申   354   (define-key Man-mode-map [mouse-2]   'man-follow-mouse)
申鐃緒申   355   (define-key Man-mode-map "?"    'describe-mode)
申鐃緒申   356   )
申鐃緒申   357 
申鐃緒申   358 
申鐃緒申   359 ;; ======================================================================
申鐃緒申   360 ;; utilities
申鐃緒申   361 
申鐃緒申   362 (defun Man-init-defvars ()
申鐃緒申   363   "Used for initialising variables based on display's color support.
申鐃緒申   364 This is necessary if one wants to dump man.el with Emacs."
申鐃緒申   365 
申鐃緒申   366   ;; Avoid possible error in call-process by using a directory that must exist.
申鐃緒申   367   (let ((default-directory "/"))
申鐃緒申   368     (setq Man-sed-script
申鐃緒申   369 	  (cond
申鐃緒申   370 	   (Man-fontify-manpage-flag
申鐃緒申   371 	    nil)
申鐃緒申   372 	   ((= 0 (call-process Man-sed-command nil nil nil Man-sysv-sed-script))
申鐃緒申   373 	    Man-sysv-sed-script)
申鐃緒申   374 	   ((= 0 (call-process Man-sed-command nil nil nil Man-berkeley-sed-script))
申鐃緒申   375 	    Man-berkeley-sed-script)
申鐃緒申   376 	   (t
申鐃緒申   377 	    nil))))
申鐃緒申   378 
申鐃緒申   379   (setq Man-filter-list
申鐃緒申   380 	;; Avoid trailing nil which confuses customize.
申鐃緒申   381 	(apply 'list
申鐃緒申   382 	 (cons
申鐃緒申   383 	  Man-sed-command
申鐃緒申   384 	  (list
申鐃緒申   385 	   (if Man-sed-script
申鐃緒申   386 	       (concat "-e '" Man-sed-script "'")
申鐃緒申   387 	     "")
申鐃緒申   388 	   "-e '/^[\001-\032][\001-\032]*$/d'"
申鐃緒申   389 	   "-e '/\e[789]/s///g'"
申鐃緒申   390 	   "-e '/Reformatting page.  Wait/d'"
申鐃緒申   391 	   "-e '/Reformatting entry.  Wait/d'"
申鐃緒申   392 	   "-e '/^[ \t]*Hewlett-Packard[ \t]Company[ \t]*-[ \t][0-9]*[ \t]-/d'"
申鐃緒申   393 	   "-e '/^[ \t]*Hewlett-Packard[ \t]*-[ \t][0-9]*[ \t]-.*$/d'"
申鐃緒申   394 	   "-e '/^[ \t][ \t]*-[ \t][0-9]*[ \t]-[ \t]*Formatted:.*[0-9]$/d'"
申鐃緒申   395 	   "-e '/^[ \t]*Page[ \t][0-9]*.*(printed[ \t][0-9\\/]*)$/d'"
申鐃緒申   396 	   "-e '/^Printed[ \t][0-9].*[0-9]$/d'"
申鐃緒申   397 	   "-e '/^[ \t]*X[ \t]Version[ \t]1[01].*Release[ \t][0-9]/d'"
申鐃緒申   398 	   "-e '/^[A-Za-z].*Last[ \t]change:/d'"
申鐃緒申   399 	   "-e '/^Sun[ \t]Release[ \t][0-9].*[0-9]$/d'"
申鐃緒申   400 	   "-e '/[ \t]*Copyright [0-9]* UNIX System Laboratories, Inc.$/d'"
申鐃緒申   401 	   "-e '/^[ \t]*Rev\\..*Page [0-9][0-9]*$/d'"
申鐃緒申   402 	   ))
申鐃緒申   403 	 (cons
申鐃緒申   404 	  Man-awk-command
申鐃緒申   405 	  (list
申鐃緒申   406 	   "'\n"
申鐃緒申   407 	   "BEGIN { blankline=0; anonblank=0; }\n"
申鐃緒申   408 	   "/^$/ { if (anonblank==0) next; }\n"
申鐃緒申   409 	   "{ anonblank=1; }\n"
申鐃緒申   410 	   "/^$/ { blankline++; next; }\n"
申鐃緒申   411 	   "{ if (blankline>0) { print \"\"; blankline=0; } print $0; }\n"
申鐃緒申   412 	   "'"
申鐃緒申   413 	   ))
申鐃緒申   414 	 (if (not Man-uses-untabify-flag)
申鐃緒申   415 	     ;; The outer list will be stripped off by apply.
申鐃緒申   416 	     (list (cons
申鐃緒申   417 		    Man-untabify-command
申鐃緒申   418 		    Man-untabify-command-args))
申鐃緒申   419 	   )))
申鐃緒申   420 )
申鐃緒申   421 
申鐃緒申   422 (defsubst Man-make-page-mode-string ()
申鐃緒申   423   "Formats part of the mode line for Man mode."
申鐃緒申   424   (format "%s page %d of %d"
申鐃緒申   425 	  (or (nth 2 (nth (1- Man-current-page) Man-page-list))
申鐃緒申   426 	      "")
申鐃緒申   427 	  Man-current-page
申鐃緒申   428 	  (length Man-page-list)))
申鐃緒申   429 
申鐃緒申   430 (defsubst Man-build-man-command ()
申鐃緒申   431   "Builds the entire background manpage and cleaning command."
申鐃緒申   432   (let ((command (concat manual-program " " Man-switches
申鐃緒申   433 			 ; Stock MS-DOS shells cannot redirect stderr;
申鐃緒申   434 			 ; `call-process' below sends it to /dev/null,
申鐃緒申   435 			 ; so we don't need `2>' even with DOS shells
申鐃緒申   436 			 ; which do support stderr redirection.
申鐃緒申   437 			 (if (not (fboundp 'start-process))
申鐃緒申   438 			     " %s"
申鐃緒申   439 			   (concat " %s 2>" null-device))))
申鐃緒申   440 	(flist Man-filter-list))
申鐃緒申   441     (while (and flist (car flist))
申鐃緒申   442       (let ((pcom (car (car flist)))
申鐃緒申   443 	    (pargs (cdr (car flist))))
申鐃緒申   444 	(setq command
申鐃緒申   445 	      (concat command " | " pcom " "
申鐃緒申   446 		      (mapconcat (lambda (phrase)
申鐃緒申   447 				   (if (not (stringp phrase))
申鐃緒申   448 				       (error "Malformed Man-filter-list"))
申鐃緒申   449 				   phrase)
申鐃緒申   450 				 pargs " ")))
申鐃緒申   451 	(setq flist (cdr flist))))
申鐃緒申   452     command))
申鐃緒申   453 
申鐃緒申   454 (defun Man-translate-references (ref)
申鐃緒申   455   "Translates REF from \"chmod(2V)\" to \"2v chmod\" style.
申鐃緒申   456 Leave it as is if already in that style.  Possibly downcase and
申鐃緒申   457 translate the section (see the Man-downcase-section-letters-flag
申鐃緒申   458 and the Man-section-translations-alist variables)."
申鐃緒申   459   (let ((name "")
申鐃緒申   460 	(section "")
申鐃緒申   461 	(slist Man-section-translations-alist))
申鐃緒申   462     (cond
申鐃緒申   463      ;; "chmod(2V)" case ?
申鐃緒申   464      ((string-match (concat "^" Man-reference-regexp "$") ref)
申鐃緒申   465       (setq name (match-string 1 ref)
申鐃緒申   466 	    section (match-string 2 ref)))
申鐃緒申   467      ;; "2v chmod" case ?
申鐃緒申   468      ((string-match (concat "^\\(" Man-section-regexp
申鐃緒申   469 			    "\\) +\\(" Man-name-regexp "\\)$") ref)
申鐃緒申   470       (setq name (match-string 2 ref)
申鐃緒申   471 	    section (match-string 1 ref))))
申鐃緒申   472     (if (string= name "")
申鐃緒申   473 	ref				; Return the reference as is
申鐃緒申   474       (if Man-downcase-section-letters-flag
申鐃緒申   475 	  (setq section (downcase section)))
申鐃緒申   476       (while slist
申鐃緒申   477 	(let ((s1 (car (car slist)))
申鐃緒申   478 	      (s2 (cdr (car slist))))
申鐃緒申   479 	  (setq slist (cdr slist))
申鐃緒申   480 	  (if Man-downcase-section-letters-flag
申鐃緒申   481 	      (setq s1 (downcase s1)))
申鐃緒申   482 	  (if (not (string= s1 section)) nil
申鐃緒申   483 	    (setq section (if Man-downcase-section-letters-flag
申鐃緒申   484 			      (downcase s2)
申鐃緒申   485 			    s2)
申鐃緒申   486 		  slist nil))))
申鐃緒申   487       (concat Man-specified-section-option section " " name))))
申鐃緒申   488 
申鐃緒申   489 
申鐃緒申   490 ;; ======================================================================
申鐃緒申   491 ;; default man entry: get word under point
申鐃緒申   492 
申鐃緒申   493 (defsubst Man-default-man-entry ()
申鐃緒申   494   "Make a guess at a default manual entry.
申鐃緒申   495 This guess is based on the text surrounding the cursor."
申鐃緒申   496   (let (word)
申鐃緒申   497     (save-excursion
申鐃緒申   498       ;; Default man entry title is any word the cursor is on, or if
申鐃緒申   499       ;; cursor not on a word, then nearest preceding word.
申鐃緒申   500       (skip-chars-backward "-a-zA-Z0-9._+:")
申鐃緒申   501       (let ((start (point)))
申鐃緒申   502 	(skip-chars-forward "-a-zA-Z0-9._+:")
申鐃緒申   503 	(setq word (buffer-substring start (point))))
申鐃緒申   504       (if (string-match "[._]+$" word)
申鐃緒申   505 	  (setq word (substring word 0 (match-beginning 0))))
申鐃緒申   506       ;; If looking at something like ioctl(2) or brc(1M), include the
申鐃緒申   507       ;; section number in the returned value.  Remove text properties.
申鐃緒申   508       (forward-word 1)
申鐃緒申   509       ;; Use `format' here to clear any text props from `word'.
申鐃緒申   510       (format "%s%s"
申鐃緒申   511 	      word
申鐃緒申   512 	      (if (looking-at
申鐃緒申   513 		   (concat "[ \t]*([ \t]*\\(" Man-section-regexp "\\)[ \t]*)"))
申鐃緒申   514 		  (format "(%s)" (match-string 1))
申鐃緒申   515 		"")))))
申鐃緒申   516 
申鐃緒申   517 
申鐃緒申   518 ;; ======================================================================
申鐃緒申   519 ;; Top level command and background process sentinel
申鐃緒申   520 
申鐃緒申   521 ;; For compatibility with older versions.
申鐃緒申   522 ;;;###autoload
申鐃緒申   523 (defalias 'manual-entry 'man)
申鐃緒申   524 
申鐃緒申   525 ;;;###autoload
申鐃緒申   526 (defun man (man-args)
申鐃緒申   527   "Get a Un*x manual page and put it in a buffer.
申鐃緒申   528 This command is the top-level command in the man package.  It runs a Un*x
申鐃緒申   529 command to retrieve and clean a manpage in the background and places the
申鐃緒申   530 results in a Man mode (manpage browsing) buffer.  See variable
申鐃緒申   531 `Man-notify-method' for what happens when the buffer is ready.
申鐃緒申   532 If a buffer already exists for this man page, it will display immediately.
申鐃緒申   533 
申鐃緒申   534 To specify a man page from a certain section, type SUBJECT(SECTION) or
申鐃緒申   535 SECTION SUBJECT when prompted for a manual entry.  To see manpages from
申鐃緒申   536 all sections related to a subject, put something appropriate into the
申鐃緒申   537 `Man-switches' variable, which see."
申鐃緒申   538   (interactive
申鐃緒申   539    (list (let* ((default-entry (Man-default-man-entry))
申鐃緒申   540 		(input (read-string
申鐃緒申   541 			(format "Manual entry%s: "
申鐃緒申   542 				(if (string= default-entry "")
申鐃緒申   543 				    ""
申鐃緒申   544 				  (format " (default %s)" default-entry)))
申鐃緒申   545 			nil nil default-entry)))
申鐃緒申   546 	   (if (string= input "")
申鐃緒申   547 	       (error "No man args given")
申鐃緒申   548 	     input))))
申鐃緒申   549 
申鐃緒申   550   ;; Possibly translate the "subject(section)" syntax into the
申鐃緒申   551   ;; "section subject" syntax and possibly downcase the section.
申鐃緒申   552   (setq man-args (Man-translate-references man-args))
申鐃緒申   553 
申鐃緒申   554   (Man-getpage-in-background man-args))
申鐃緒申   555 
申鐃緒申   556 ;;;###autoload
申鐃緒申   557 (defun man-follow (man-args)
申鐃緒申   558   "Get a Un*x manual page of the item under point and put it in a buffer."
申鐃緒申   559   (interactive (list (Man-default-man-entry)))
申鐃緒申   560   (if (or (not man-args)
申鐃緒申   561 	  (string= man-args ""))
申鐃緒申   562       (error "No item under point")
申鐃緒申   563     (man man-args)))
申鐃緒申   564 
申鐃緒申   565 (defun man-follow-mouse (e)
申鐃緒申   566   "Get a Un*x manual page of the item under the mouse and put it in a buffer."
申鐃緒申   567   (interactive "e")
申鐃緒申   568   (save-excursion
申鐃緒申   569     (mouse-set-point e)
申鐃緒申   570     (call-interactively 'man-follow)))
申鐃緒申   571 
申鐃緒申   572 (defun Man-getpage-in-background (topic)
申鐃緒申   573   "Use TOPIC to build and fire off the manpage and cleaning command."
申鐃緒申   574   (let* ((man-args topic)
申鐃緒申   575 	 (bufname (concat "*Man " man-args "*"))
申鐃緒申   576 	 (buffer  (get-buffer bufname)))
申鐃緒申   577     (if buffer
申鐃緒申   578 	(Man-notify-when-ready buffer)
申鐃緒申   579       (require 'env)
申鐃緒申   580       (message "Invoking %s %s in the background" manual-program man-args)
申鐃緒申   581       (setq buffer (generate-new-buffer bufname))
申鐃緒申   582       (save-excursion
申鐃緒申   583 	(set-buffer buffer)
申鐃緒申   584 	(setq Man-original-frame (selected-frame))
申鐃緒申   585 	(setq Man-arguments man-args))
申鐃緒申   586       (let ((process-environment (copy-sequence process-environment))
申鐃緒申   587 	    ;; The following is so Awk script gets \n intact
申鐃緒申   588 	    ;; But don't prevent decoding of the outside.
申鐃緒申   589 	    (coding-system-for-write 'raw-text-unix)
申鐃緒申   590 	    ;; We must decode the output by a coding system that the
申鐃緒申   591 	    ;; system's locale suggests in multibyte mode.
申鐃緒申   592 	    (coding-system-for-read
申鐃緒申   593 	     (if default-enable-multibyte-characters
申鐃緒申   594 		 locale-coding-system 'raw-text-unix))
申鐃緒申   595 	    ;; Avoid possible error by using a directory that always exists.
申鐃緒申   596 	    (default-directory "/"))
申鐃緒申   597 	;; Prevent any attempt to use display terminal fanciness.
申鐃緒申   598 	(setenv "TERM" "dumb")
申鐃緒申   599 	;; In Debian Woody, at least, we get overlong lines under X
申鐃緒申   600 	;; unless COLUMNS or MANWIDTH is set.  This isn't a problem on
申鐃緒申   601 	;; a tty.  man(1) says:
申鐃緒申   602 	;;        MANWIDTH
申鐃緒申   603 	;;               If $MANWIDTH is set, its value is used as the  line
申鐃緒申   604 	;;               length  for which manual pages should be formatted.
申鐃緒申   605 	;;               If it is not set, manual pages  will  be  formatted
申鐃緒申   606 	;;               with  a line length appropriate to the current ter-
申鐃緒申   607 	;;               minal (using an ioctl(2) if available, the value of
申鐃緒申   608 	;;               $COLUMNS,  or falling back to 80 characters if nei-
申鐃緒申   609 	;;               ther is available).
申鐃緒申   610 	(if window-system
申鐃緒申   611 	    (unless (or (getenv "MANWIDTH") (getenv "COLUMNS"))
申鐃緒申   612 	      ;; This isn't strictly correct, since we don't know how
申鐃緒申   613 	      ;; the page will actually be displayed, but it seems
申鐃緒申   614 	      ;; reasonable.
申鐃緒申   615 	      (setenv "COLUMNS" (number-to-string (frame-width)))))
申鐃緒申   616 	(if (fboundp 'start-process)
申鐃緒申   617 	    (set-process-sentinel
申鐃緒申   618 	     (start-process manual-program buffer "sh" "-c"
申鐃緒申   619 			    (format (Man-build-man-command) man-args))
申鐃緒申   620 	     'Man-bgproc-sentinel)
申鐃緒申   621 	  (progn
申鐃緒申   622 	    (let ((exit-status
申鐃緒申   623 		   (call-process shell-file-name nil (list buffer nil) nil "-c"
申鐃緒申   624 				 (format (Man-build-man-command) man-args)))
申鐃緒申   625 		  (msg ""))
申鐃緒申   626 	      (or (and (numberp exit-status)
申鐃緒申   627 		       (= exit-status 0))
申鐃緒申   628 		  (and (numberp exit-status)
申鐃緒申   629 		       (setq msg
申鐃緒申   630 			     (format "exited abnormally with code %d"
申鐃緒申   631 				     exit-status)))
申鐃緒申   632 		  (setq msg exit-status))
申鐃緒申   633 	      (Man-bgproc-sentinel bufname msg))))))))
申鐃緒申   634 
申鐃緒申   635 (defun Man-notify-when-ready (man-buffer)
申鐃緒申   636   "Notify the user when MAN-BUFFER is ready.
申鐃緒申   637 See the variable `Man-notify-method' for the different notification behaviors."
申鐃緒申   638   (let ((saved-frame (save-excursion
申鐃緒申   639 		       (set-buffer man-buffer)
申鐃緒申   640 		       Man-original-frame)))
申鐃緒申   641     (cond
申鐃緒申   642      ((eq Man-notify-method 'newframe)
申鐃緒申   643       ;; Since we run asynchronously, perhaps while Emacs is waiting
申鐃緒申   644       ;; for input, we must not leave a different buffer current.  We
申鐃緒申   645       ;; can't rely on the editor command loop to reselect the
申鐃緒申   646       ;; selected window's buffer.
申鐃緒申   647       (save-excursion
申鐃緒申   648 	(let ((frame (make-frame Man-frame-parameters)))
申鐃緒申   649 	  (set-window-buffer (frame-selected-window frame) man-buffer)
申鐃緒申   650           (set-window-dedicated-p (frame-selected-window frame) t)
申鐃緒申   651 	  (or (display-multi-frame-p frame)
申鐃緒申   652 	      (select-frame frame)))))
申鐃緒申   653      ((eq Man-notify-method 'pushy)
申鐃緒申   654       (switch-to-buffer man-buffer))
申鐃緒申   655      ((eq Man-notify-method 'bully)
申鐃緒申   656       (and (frame-live-p saved-frame)
申鐃緒申   657 	   (select-frame saved-frame))
申鐃緒申   658       (pop-to-buffer man-buffer)
申鐃緒申   659       (delete-other-windows))
申鐃緒申   660      ((eq Man-notify-method 'aggressive)
申鐃緒申   661       (and (frame-live-p saved-frame)
申鐃緒申   662 	   (select-frame saved-frame))
申鐃緒申   663       (pop-to-buffer man-buffer))
申鐃緒申   664      ((eq Man-notify-method 'friendly)
申鐃緒申   665       (and (frame-live-p saved-frame)
申鐃緒申   666 	   (select-frame saved-frame))
申鐃緒申   667       (display-buffer man-buffer 'not-this-window))
申鐃緒申   668      ((eq Man-notify-method 'polite)
申鐃緒申   669       (beep)
申鐃緒申   670       (message "Manual buffer %s is ready" (buffer-name man-buffer)))
申鐃緒申   671      ((eq Man-notify-method 'quiet)
申鐃緒申   672       (message "Manual buffer %s is ready" (buffer-name man-buffer)))
申鐃緒申   673      ((or (eq Man-notify-method 'meek)
申鐃緒申   674 	  t)
申鐃緒申   675       (message ""))
申鐃緒申   676      )))
申鐃緒申   677 
申鐃緒申   678 (defun Man-softhyphen-to-minus ()
申鐃緒申   679   ;; \255 is SOFT HYPHEN in Latin-N.  Versions of Debian man, at
申鐃緒申   680   ;; least, emit it even when not in a Latin-N locale.
申鐃緒申   681   (unless (eq t (compare-strings "latin-" 0 nil
申鐃緒申   682 				 current-language-environment 0 6 t))
申鐃緒申   683     (goto-char (point-min))
申鐃緒申   684     (let ((str "\255"))
申鐃緒申   685       (if enable-multibyte-characters
申鐃緒申   686 	  (setq str (string-as-multibyte str)))
申鐃緒申   687       (while (search-forward str nil t) (replace-match "-")))))
申鐃緒申   688 
申鐃緒申   689 (defun Man-fontify-manpage ()
申鐃緒申   690   "Convert overstriking and underlining to the correct fonts.
申鐃緒申   691 Same for the ANSI bold and normal escape sequences."
申鐃緒申   692   (interactive)
申鐃緒申   693   (message "Please wait: making up the %s man page..." Man-arguments)
申鐃緒申   694   (goto-char (point-min))
申鐃緒申   695   (while (search-forward "\e[1m" nil t)
申鐃緒申   696     (delete-backward-char 4)
申鐃緒申   697     (put-text-property (point)
申鐃緒申   698 		       (progn (if (search-forward "\e[0m" nil 'move)
申鐃緒申   699 				  (delete-backward-char 4))
申鐃緒申   700 			      (point))
申鐃緒申   701 		       'face Man-overstrike-face))
申鐃緒申   702   (if (< (buffer-size) (position-bytes (point-max)))
申鐃緒申   703       ;; Multibyte characters exist.
申鐃緒申   704       (progn
申鐃緒申   705 	(goto-char (point-min))
申鐃緒申   706 	(while (search-forward "__\b\b" nil t)
申鐃緒申   707 	  (backward-delete-char 4)
申鐃緒申   708 	  (put-text-property (point) (1+ (point)) 'face Man-underline-face))
申鐃緒申   709 	(goto-char (point-min))
申鐃緒申   710 	(while (search-forward "\b\b__" nil t)
申鐃緒申   711 	  (backward-delete-char 4)
申鐃緒申   712 	  (put-text-property (1- (point)) (point) 'face Man-underline-face))))
申鐃緒申   713   (goto-char (point-min))
申鐃緒申   714   (while (search-forward "_\b" nil t)
申鐃緒申   715     (backward-delete-char 2)
申鐃緒申   716     (put-text-property (point) (1+ (point)) 'face Man-underline-face))
申鐃緒申   717   (goto-char (point-min))
申鐃緒申   718   (while (search-forward "\b_" nil t)
申鐃緒申   719     (backward-delete-char 2)
申鐃緒申   720     (put-text-property (1- (point)) (point) 'face Man-underline-face))
申鐃緒申   721   (goto-char (point-min))
申鐃緒申   722   (while (re-search-forward "\\(.\\)\\(\b+\\1\\)+" nil t)
申鐃緒申   723     (replace-match "\\1")
申鐃緒申   724     (put-text-property (1- (point)) (point) 'face Man-overstrike-face))
申鐃緒申   725   (goto-char (point-min))
申鐃緒申   726   (while (re-search-forward "o\b\\+\\|\\+\bo" nil t)
申鐃緒申   727     (replace-match "o")
申鐃緒申   728     (put-text-property (1- (point)) (point) 'face 'bold))
申鐃緒申   729   (goto-char (point-min))
申鐃緒申   730   (while (re-search-forward "[-|]\\(\b[-|]\\)+" nil t)
申鐃緒申   731     (replace-match "+")
申鐃緒申   732     (put-text-property (1- (point)) (point) 'face 'bold))
申鐃緒申   733   (goto-char (point-min))
申鐃緒申   734   ;; Try to recognize common forms of cross references.
申鐃緒申   735   (while (re-search-forward "\\w+([0-9].?)" nil t)
申鐃緒申   736     (put-text-property (match-beginning 0) (match-end 0)
申鐃緒申   737 		       'mouse-face 'highlight))
申鐃緒申   738   (Man-softhyphen-to-minus)
申鐃緒申   739   (message "%s man page made up" Man-arguments))
申鐃緒申   740 
申鐃緒申   741 (defun Man-cleanup-manpage ()
申鐃緒申   742   "Remove overstriking and underlining from the current buffer."
申鐃緒申   743   (interactive)
申鐃緒申   744   (message "Please wait: cleaning up the %s man page..."
申鐃緒申   745 	   Man-arguments)
申鐃緒申   746   (if (or (interactive-p) (not Man-sed-script))
申鐃緒申   747       (progn
申鐃緒申   748 	(goto-char (point-min))
申鐃緒申   749 	(while (search-forward "_\b" nil t) (backward-delete-char 2))
申鐃緒申   750 	(goto-char (point-min))
申鐃緒申   751 	(while (search-forward "\b_" nil t) (backward-delete-char 2))
申鐃緒申   752 	(goto-char (point-min))
申鐃緒申   753 	(while (re-search-forward "\\(.\\)\\(\b\\1\\)+" nil t)
申鐃緒申   754 	  (replace-match "\\1"))
申鐃緒申   755 	(goto-char (point-min))
申鐃緒申   756 	(while (re-search-forward "\e\\[[0-9]+m" nil t) (replace-match ""))
申鐃緒申   757 	(goto-char (point-min))
申鐃緒申   758 	(while (re-search-forward "o\b\\+\\|\\+\bo" nil t) (replace-match "o"))
申鐃緒申   759 	))
申鐃緒申   760   (goto-char (point-min))
申鐃緒申   761   (while (re-search-forward "[-|]\\(\b[-|]\\)+" nil t) (replace-match "+"))
申鐃緒申   762   (Man-softhyphen-to-minus)
申鐃緒申   763   (message "%s man page cleaned up" Man-arguments))
申鐃緒申   764 
申鐃緒申   765 (defun Man-bgproc-sentinel (process msg)
申鐃緒申   766   "Manpage background process sentinel.
申鐃緒申   767 When manpage command is run asynchronously, PROCESS is the process
申鐃緒申   768 object for the manpage command; when manpage command is run
申鐃緒申   769 synchronously, PROCESS is the name of the buffer where the manpage
申鐃緒申   770 command is run.  Second argument MSG is the exit message of the
申鐃緒申   771 manpage command."
申鐃緒申   772   (let ((Man-buffer (if (stringp process) (get-buffer process)
申鐃緒申   773 		      (process-buffer process)))
申鐃緒申   774 	(delete-buff nil)
申鐃緒申   775 	(err-mess nil))
申鐃緒申   776 
申鐃緒申   777     (if (null (buffer-name Man-buffer)) ;; deleted buffer
申鐃緒申   778 	(or (stringp process)
申鐃緒申   779 	    (set-process-buffer process nil))
申鐃緒申   780 
申鐃緒申   781       (save-excursion
申鐃緒申   782 	(set-buffer Man-buffer)
申鐃緒申   783 	(let ((case-fold-search nil))
申鐃緒申   784 	  (goto-char (point-min))
申鐃緒申   785 	  (cond ((or (looking-at "No \\(manual \\)*entry for")
申鐃緒申   786 		     (looking-at "[^\n]*: nothing appropriate$"))
申鐃緒申   787 		 (setq err-mess (buffer-substring (point)
申鐃緒申   788 						  (progn
申鐃緒申   789 						    (end-of-line) (point)))
申鐃緒申   790 		       delete-buff t))
申鐃緒申   791 		((or (stringp process)
申鐃緒申   792 		     (not (and (eq (process-status process) 'exit)
申鐃緒申   793 			       (= (process-exit-status process) 0))))
申鐃緒申   794 		 (or (zerop (length msg))
申鐃緒申   795 		     (progn
申鐃緒申   796 		       (setq err-mess
申鐃緒申   797 			     (concat (buffer-name Man-buffer)
申鐃緒申   798 				     ": process "
申鐃緒申   799 				     (let ((eos (1- (length msg))))
申鐃緒申   800 				       (if (= (aref msg eos) ?\n)
申鐃緒申   801 					   (substring msg 0 eos) msg))))
申鐃緒申   802 		       (goto-char (point-max))
申鐃緒申   803 		       (insert (format "\nprocess %s" msg))))
申鐃緒申   804 		 ))
申鐃緒申   805         (if delete-buff
申鐃緒申   806             (kill-buffer Man-buffer)
申鐃緒申   807           (if Man-fontify-manpage-flag
申鐃緒申   808               (Man-fontify-manpage)
申鐃緒申   809             (Man-cleanup-manpage))
申鐃緒申   810           (run-hooks 'Man-cooked-hook)
申鐃緒申   811           (Man-mode)
申鐃緒申   812           (set-buffer-modified-p nil)
申鐃緒申   813           ))
申鐃緒申   814 	;; Restore case-fold-search before calling
申鐃緒申   815 	;; Man-notify-when-ready because it may switch buffers.
申鐃緒申   816 
申鐃緒申   817 	(if (not delete-buff)
申鐃緒申   818 	    (Man-notify-when-ready Man-buffer))
申鐃緒申   819 
申鐃緒申   820 	(if err-mess
申鐃緒申   821 	    (error err-mess))
申鐃緒申   822 	))))
申鐃緒申   823 
申鐃緒申   824 
申鐃緒申   825 ;; ======================================================================
申鐃緒申   826 ;; set up manual mode in buffer and build alists
申鐃緒申   827 
申鐃緒申   828 (defun Man-mode ()
申鐃緒申   829   "A mode for browsing Un*x manual pages.
申鐃緒申   830 
申鐃緒申   831 The following man commands are available in the buffer.  Try
申鐃緒申   832 \"\\[describe-key] <key> RET\" for more information:
申鐃緒申   833 
申鐃緒申   834 \\[man]       Prompt to retrieve a new manpage.
申鐃緒申   835 \\[Man-follow-manual-reference]       Retrieve reference in SEE ALSO section.
申鐃緒申   836 \\[Man-next-manpage]   Jump to next manpage in circular list.
申鐃緒申   837 \\[Man-previous-manpage]   Jump to previous manpage in circular list.
申鐃緒申   838 \\[Man-next-section]       Jump to next manpage section.
申鐃緒申   839 \\[Man-previous-section]       Jump to previous manpage section.
申鐃緒申   840 \\[Man-goto-section]       Go to a manpage section.
申鐃緒申   841 \\[Man-goto-see-also-section]       Jumps to the SEE ALSO manpage section.
申鐃緒申   842 \\[Man-quit]       Deletes the manpage window, bury its buffer.
申鐃緒申   843 \\[Man-kill]       Deletes the manpage window, kill its buffer.
申鐃緒申   844 \\[describe-mode]       Prints this help text.
申鐃緒申   845 
申鐃緒申   846 The following variables may be of some use.  Try
申鐃緒申   847 \"\\[describe-variable] <variable-name> RET\" for more information:
申鐃緒申   848 
申鐃緒申   849 `Man-notify-method'		What happens when manpage formatting is done.
申鐃緒申   850 `Man-downcase-section-letters-flag' Force section letters to lower case.
申鐃緒申   851 `Man-circular-pages-flag'	Treat multiple manpage list as circular.
申鐃緒申   852 `Man-section-translations-alist' List of section numbers and their Un*x equiv.
申鐃緒申   853 `Man-filter-list'		Background manpage filter command.
申鐃緒申   854 `Man-mode-map'			Keymap bindings for Man mode buffers.
申鐃緒申   855 `Man-mode-hook'			Normal hook run on entry to Man mode.
申鐃緒申   856 `Man-section-regexp'		Regexp describing manpage section letters.
申鐃緒申   857 `Man-heading-regexp'		Regexp describing section headers.
申鐃緒申   858 `Man-see-also-regexp'		Regexp for SEE ALSO section (or your equiv).
申鐃緒申   859 `Man-first-heading-regexp'	Regexp for first heading on a manpage.
申鐃緒申   860 `Man-reference-regexp'		Regexp matching a references in SEE ALSO.
申鐃緒申   861 `Man-switches'			Background `man' command switches.
申鐃緒申   862 
申鐃緒申   863 The following key bindings are currently in effect in the buffer:
申鐃緒申   864 \\{Man-mode-map}"
申鐃緒申   865   (interactive)
申鐃緒申   866   (setq major-mode 'Man-mode
申鐃緒申   867 	mode-name "Man"
申鐃緒申   868 	buffer-auto-save-file-name nil
申鐃緒申   869 	mode-line-buffer-identification
申鐃緒申   870 	(list (default-value 'mode-line-buffer-identification)
申鐃緒申   871 	      " {" 'Man-page-mode-string "}")
申鐃緒申   872 	truncate-lines t
申鐃緒申   873 	buffer-read-only t)
申鐃緒申   874   (buffer-disable-undo (current-buffer))
申鐃緒申   875   (auto-fill-mode -1)
申鐃緒申   876   (use-local-map Man-mode-map)
申鐃緒申   877   (set-syntax-table man-mode-syntax-table)
申鐃緒申   878   (Man-build-page-list)
申鐃緒申   879   (Man-strip-page-headers)
申鐃緒申   880   (Man-unindent)
申鐃緒申   881   (Man-goto-page 1)
申鐃緒申   882   (run-hooks 'Man-mode-hook))
申鐃緒申   883 
申鐃緒申   884 (defsubst Man-build-section-alist ()
申鐃緒申   885   "Build the association list of manpage sections."
申鐃緒申   886   (setq Man-sections-alist nil)
申鐃緒申   887   (goto-char (point-min))
申鐃緒申   888   (let ((case-fold-search nil))
申鐃緒申   889     (while (re-search-forward Man-heading-regexp (point-max) t)
申鐃緒申   890       (aput 'Man-sections-alist (match-string 1))
申鐃緒申   891       (forward-line 1))))
申鐃緒申   892 
申鐃緒申   893 (defsubst Man-build-references-alist ()
申鐃緒申   894   "Build the association list of references (in the SEE ALSO section)."
申鐃緒申   895   (setq Man-refpages-alist nil)
申鐃緒申   896   (save-excursion
申鐃緒申   897     (if (Man-find-section Man-see-also-regexp)
申鐃緒申   898 	(let ((start (progn (forward-line 1) (point)))
申鐃緒申   899 	      (end (progn
申鐃緒申   900 		     (Man-next-section 1)
申鐃緒申   901 		     (point)))
申鐃緒申   902 	      hyphenated
申鐃緒申   903 	      (runningpoint -1))
申鐃緒申   904 	  (save-restriction
申鐃緒申   905 	    (narrow-to-region start end)
申鐃緒申   906 	    (goto-char (point-min))
申鐃緒申   907 	    (back-to-indentation)
申鐃緒申   908 	    (while (and (not (eobp)) (/= (point) runningpoint))
申鐃緒申   909 	      (setq runningpoint (point))
申鐃緒申   910 	      (if (re-search-forward Man-hyphenated-reference-regexp end t)
申鐃緒申   911 		  (let* ((word (match-string 0))
申鐃緒申   912 			 (len (1- (length word))))
申鐃緒申   913 		    (if hyphenated
申鐃緒申   914 			(setq word (concat hyphenated word)
申鐃緒申   915 			      hyphenated nil
申鐃緒申   916 			      ;; Update len, in case a reference spans
申鐃緒申   917 			      ;; more than two lines (paranoia).
申鐃緒申   918 			      len (1- (length word))))
申鐃緒申   919 		    (if (= (aref word len) ?-)
申鐃緒申   920 			(setq hyphenated (substring word 0 len)))
申鐃緒申   921 		    (if (string-match Man-reference-regexp word)
申鐃緒申   922 			(aput 'Man-refpages-alist word))))
申鐃緒申   923 	      (skip-chars-forward " \t\n,"))))))
申鐃緒申   924   (setq Man-refpages-alist (nreverse Man-refpages-alist)))
申鐃緒申   925 
申鐃緒申   926 (defun Man-build-page-list ()
申鐃緒申   927   "Build the list of separate manpages in the buffer."
申鐃緒申   928   (setq Man-page-list nil)
申鐃緒申   929   (let ((page-start (point-min))
申鐃緒申   930 	(page-end (point-max))
申鐃緒申   931 	(header ""))
申鐃緒申   932     (goto-char page-start)
申鐃緒申   933     ;; (switch-to-buffer (current-buffer))(debug)
申鐃緒申   934     (while (not (eobp))
申鐃緒申   935       (setq header
申鐃緒申   936 	    (if (looking-at Man-page-header-regexp)
申鐃緒申   937 		(match-string 1)
申鐃緒申   938 	      nil))
申鐃緒申   939       ;; Go past both the current and the next Man-first-heading-regexp
申鐃緒申   940       (if (re-search-forward Man-first-heading-regexp nil 'move 2)
申鐃緒申   941 	  (let ((p (progn (beginning-of-line) (point))))
申鐃緒申   942 	    ;; We assume that the page header is delimited by blank
申鐃緒申   943 	    ;; lines and that it contains at most one blank line.  So
申鐃緒申   944 	    ;; if we back by three blank lines we will be sure to be
申鐃緒申   945 	    ;; before the page header but not before the possible
申鐃緒申   946 	    ;; previous page header.
申鐃緒申   947 	    (search-backward "\n\n" nil t 3)
申鐃緒申   948 	    (if (re-search-forward Man-page-header-regexp p 'move)
申鐃緒申   949 		(beginning-of-line))))
申鐃緒申   950       (setq page-end (point))
申鐃緒申   951       (setq Man-page-list (append Man-page-list
申鐃緒申   952 				  (list (list (copy-marker page-start)
申鐃緒申   953 					      (copy-marker page-end)
申鐃緒申   954 					      header))))
申鐃緒申   955       (setq page-start page-end)
申鐃緒申   956       )))
申鐃緒申   957 
申鐃緒申   958 (defun Man-strip-page-headers ()
申鐃緒申   959   "Strip all the page headers but the first from the manpage."
申鐃緒申   960   (let ((buffer-read-only nil)
申鐃緒申   961 	(case-fold-search nil)
申鐃緒申   962 	(page-list Man-page-list)
申鐃緒申   963 	(page ())
申鐃緒申   964 	(header ""))
申鐃緒申   965     (while page-list
申鐃緒申   966       (setq page (car page-list))
申鐃緒申   967       (and (nth 2 page)
申鐃緒申   968 	   (goto-char (car page))
申鐃緒申   969 	   (re-search-forward Man-first-heading-regexp nil t)
申鐃緒申   970 	   (setq header (buffer-substring (car page) (match-beginning 0)))
申鐃緒申   971 	   ;; Since the awk script collapses all successive blank
申鐃緒申   972 	   ;; lines into one, and since we don't want to get rid of
申鐃緒申   973 	   ;; the fast awk script, one must choose between adding
申鐃緒申   974 	   ;; spare blank lines between pages when there were none and
申鐃緒申   975 	   ;; deleting blank lines at page boundaries when there were
申鐃緒申   976 	   ;; some.  We choose the first, so we comment the following
申鐃緒申   977 	   ;; line.
申鐃緒申   978 	   ;; (setq header (concat "\n" header)))
申鐃緒申   979 	   (while (search-forward header (nth 1 page) t)
申鐃緒申   980 	     (replace-match "")))
申鐃緒申   981       (setq page-list (cdr page-list)))))
申鐃緒申   982 
申鐃緒申   983 (defun Man-unindent ()
申鐃緒申   984   "Delete the leading spaces that indent the manpage."
申鐃緒申   985   (let ((buffer-read-only nil)
申鐃緒申   986 	(case-fold-search nil)
申鐃緒申   987 	(page-list Man-page-list))
申鐃緒申   988     (while page-list
申鐃緒申   989       (let ((page (car page-list))
申鐃緒申   990 	    (indent "")
申鐃緒申   991 	    (nindent 0))
申鐃緒申   992 	(narrow-to-region (car page) (car (cdr page)))
申鐃緒申   993 	(if Man-uses-untabify-flag
申鐃緒申   994 	    (untabify (point-min) (point-max)))
申鐃緒申   995 	(if (catch 'unindent
申鐃緒申   996 	      (goto-char (point-min))
申鐃緒申   997 	      (if (not (re-search-forward Man-first-heading-regexp nil t))
申鐃緒申   998 		  (throw 'unindent nil))
申鐃緒申   999 	      (beginning-of-line)
申鐃緒申  1000 	      (setq indent (buffer-substring (point)
申鐃緒申  1001 					     (progn
申鐃緒申  1002 					       (skip-chars-forward " ")
申鐃緒申  1003 					       (point))))
申鐃緒申  1004 	      (setq nindent (length indent))
申鐃緒申  1005 	      (if (zerop nindent)
申鐃緒申  1006 		  (throw 'unindent nil))
申鐃緒申  1007 	      (setq indent (concat indent "\\|$"))
申鐃緒申  1008 	      (goto-char (point-min))
申鐃緒申  1009 	      (while (not (eobp))
申鐃緒申  1010 		(if (looking-at indent)
申鐃緒申  1011 		    (forward-line 1)
申鐃緒申  1012 		  (throw 'unindent nil)))
申鐃緒申  1013 	      (goto-char (point-min)))
申鐃緒申  1014 	    (while (not (eobp))
申鐃緒申  1015 	      (or (eolp)
申鐃緒申  1016 		  (delete-char nindent))
申鐃緒申  1017 	      (forward-line 1)))
申鐃緒申  1018 	(setq page-list (cdr page-list))
申鐃緒申  1019 	))))
申鐃緒申  1020 
申鐃緒申  1021 
申鐃緒申  1022 ;; ======================================================================
申鐃緒申  1023 ;; Man mode commands
申鐃緒申  1024 
申鐃緒申  1025 (defun Man-next-section (n)
申鐃緒申  1026   "Move point to Nth next section (default 1)."
申鐃緒申  1027   (interactive "p")
申鐃緒申  1028   (let ((case-fold-search nil))
申鐃緒申  1029     (if (looking-at Man-heading-regexp)
申鐃緒申  1030 	(forward-line 1))
申鐃緒申  1031     (if (re-search-forward Man-heading-regexp (point-max) t n)
申鐃緒申  1032 	(beginning-of-line)
申鐃緒申  1033       (goto-char (point-max)))))
申鐃緒申  1034 
申鐃緒申  1035 (defun Man-previous-section (n)
申鐃緒申  1036   "Move point to Nth previous section (default 1)."
申鐃緒申  1037   (interactive "p")
申鐃緒申  1038   (let ((case-fold-search nil))
申鐃緒申  1039     (if (looking-at Man-heading-regexp)
申鐃緒申  1040 	(forward-line -1))
申鐃緒申  1041     (if (re-search-backward Man-heading-regexp (point-min) t n)
申鐃緒申  1042 	(beginning-of-line)
申鐃緒申  1043       (goto-char (point-min)))))
申鐃緒申  1044 
申鐃緒申  1045 (defun Man-find-section (section)
申鐃緒申  1046   "Move point to SECTION if it exists, otherwise don't move point.
申鐃緒申  1047 Returns t if section is found, nil otherwise."
申鐃緒申  1048   (let ((curpos (point))
申鐃緒申  1049 	(case-fold-search nil))
申鐃緒申  1050     (goto-char (point-min))
申鐃緒申  1051     (if (re-search-forward (concat "^" section) (point-max) t)
申鐃緒申  1052 	(progn (beginning-of-line) t)
申鐃緒申  1053       (goto-char curpos)
申鐃緒申  1054       nil)
申鐃緒申  1055     ))
申鐃緒申  1056 
申鐃緒申  1057 (defun Man-goto-section ()
申鐃緒申  1058   "Query for section to move point to."
申鐃緒申  1059   (interactive)
申鐃緒申  1060   (aput 'Man-sections-alist
申鐃緒申  1061 	(let* ((default (aheadsym Man-sections-alist))
申鐃緒申  1062 	       (completion-ignore-case t)
申鐃緒申  1063 	       chosen
申鐃緒申  1064 	       (prompt (concat "Go to section: (default " default ") ")))
申鐃緒申  1065 	  (setq chosen (completing-read prompt Man-sections-alist))
申鐃緒申  1066 	  (if (or (not chosen)
申鐃緒申  1067 		  (string= chosen ""))
申鐃緒申  1068 	      default
申鐃緒申  1069 	    chosen)))
申鐃緒申  1070   (Man-find-section (aheadsym Man-sections-alist)))
申鐃緒申  1071 
申鐃緒申  1072 (defun Man-goto-see-also-section ()
申鐃緒申  1073   "Move point to the \"SEE ALSO\" section.
申鐃緒申  1074 Actually the section moved to is described by `Man-see-also-regexp'."
申鐃緒申  1075   (interactive)
申鐃緒申  1076   (if (not (Man-find-section Man-see-also-regexp))
申鐃緒申  1077       (error (concat "No " Man-see-also-regexp
申鐃緒申  1078 		     " section found in the current manpage"))))
申鐃緒申  1079 
申鐃緒申  1080 (defun Man-possibly-hyphenated-word ()
申鐃緒申  1081   "Return a possibly hyphenated word at point.
申鐃緒申  1082 If the word starts at the first non-whitespace column, and the
申鐃緒申  1083 previous line ends with a hyphen, return the last word on the previous
申鐃緒申  1084 line instead.  Thus, if a reference to \"tcgetpgrp(3V)\" is hyphenated
申鐃緒申  1085 as \"tcgetp-grp(3V)\", and point is at \"grp(3V)\", we return
申鐃緒申  1086 \"tcgetp-\" instead of \"grp\"."
申鐃緒申  1087   (save-excursion
申鐃緒申  1088     (skip-syntax-backward "w()")
申鐃緒申  1089     (skip-chars-forward " \t")
申鐃緒申  1090     (let ((beg (point))
申鐃緒申  1091 	  (word (current-word)))
申鐃緒申  1092       (when (eq beg (save-excursion
申鐃緒申  1093 		      (back-to-indentation)
申鐃緒申  1094 		      (point)))
申鐃緒申  1095 	(end-of-line 0)
申鐃緒申  1096 	(if (eq (char-before) ?-)
申鐃緒申  1097 	    (setq word (current-word))))
申鐃緒申  1098       word)))
申鐃緒申  1099 
申鐃緒申  1100 (defun Man-follow-manual-reference (reference)
申鐃緒申  1101   "Get one of the manpages referred to in the \"SEE ALSO\" section.
申鐃緒申  1102 Specify which REFERENCE to use; default is based on word at point."
申鐃緒申  1103   (interactive
申鐃緒申  1104    (if (not Man-refpages-alist)
申鐃緒申  1105        (error "There are no references in the current man page")
申鐃緒申  1106      (list (let* ((default (or
申鐃緒申  1107 			    (car (all-completions
申鐃緒申  1108 				  (let ((word (Man-possibly-hyphenated-word)))
申鐃緒申  1109 				    ;; strip a trailing '-':
申鐃緒申  1110 				    (if (string-match "-$" word)
申鐃緒申  1111 					(substring word 0
申鐃緒申  1112 						   (match-beginning 0))
申鐃緒申  1113 				      word))
申鐃緒申  1114 				  Man-refpages-alist))
申鐃緒申  1115 			    (aheadsym Man-refpages-alist)))
申鐃緒申  1116 		   chosen
申鐃緒申  1117 		   (prompt (concat "Refer to: (default " default ") ")))
申鐃緒申  1118 	      (setq chosen (completing-read prompt Man-refpages-alist nil t))
申鐃緒申  1119 	      (if (or (not chosen)
申鐃緒申  1120 		      (string= chosen ""))
申鐃緒申  1121 		  default
申鐃緒申  1122 		chosen)))))
申鐃緒申  1123   (if (not Man-refpages-alist)
申鐃緒申  1124       (error "Can't find any references in the current manpage")
申鐃緒申  1125     (aput 'Man-refpages-alist reference)
申鐃緒申  1126     (Man-getpage-in-background
申鐃緒申  1127      (Man-translate-references (aheadsym Man-refpages-alist)))))
申鐃緒申  1128 
申鐃緒申  1129 (defun Man-kill ()
申鐃緒申  1130   "Kill the buffer containing the manpage."
申鐃緒申  1131   (interactive)
申鐃緒申  1132   (quit-window t))
申鐃緒申  1133 
申鐃緒申  1134 (defun Man-quit ()
申鐃緒申  1135   "Bury the buffer containing the manpage."
申鐃緒申  1136   (interactive)
申鐃緒申  1137   (quit-window))
申鐃緒申  1138 
申鐃緒申  1139 (defun Man-goto-page (page)
申鐃緒申  1140   "Go to the manual page on page PAGE."
申鐃緒申  1141   (interactive
申鐃緒申  1142    (if (not Man-page-list)
申鐃緒申  1143        (let ((args Man-arguments))
申鐃緒申  1144 	 (kill-buffer (current-buffer))
申鐃緒申  1145 	 (error "Can't find the %s manpage" args))
申鐃緒申  1146      (if (= (length Man-page-list) 1)
申鐃緒申  1147 	 (error "You're looking at the only manpage in the buffer")
申鐃緒申  1148        (list (read-minibuffer (format "Go to manpage [1-%d]: "
申鐃緒申  1149 				      (length Man-page-list)))))))
申鐃緒申  1150   (if (not Man-page-list)
申鐃緒申  1151       (let ((args Man-arguments))
申鐃緒申  1152 	(kill-buffer (current-buffer))
申鐃緒申  1153 	(error "Can't find the %s manpage" args)))
申鐃緒申  1154   (if (or (< page 1)
申鐃緒申  1155 	  (> page (length Man-page-list)))
申鐃緒申  1156       (error "No manpage %d found" page))
申鐃緒申  1157   (let* ((page-range (nth (1- page) Man-page-list))
申鐃緒申  1158 	 (page-start (car page-range))
申鐃緒申  1159 	 (page-end (car (cdr page-range))))
申鐃緒申  1160     (setq Man-current-page page
申鐃緒申  1161 	  Man-page-mode-string (Man-make-page-mode-string))
申鐃緒申  1162     (widen)
申鐃緒申  1163     (goto-char page-start)
申鐃緒申  1164     (narrow-to-region page-start page-end)
申鐃緒申  1165     (Man-build-section-alist)
申鐃緒申  1166     (Man-build-references-alist)
申鐃緒申  1167     (goto-char (point-min))))
申鐃緒申  1168 
申鐃緒申  1169 
申鐃緒申  1170 (defun Man-next-manpage ()
申鐃緒申  1171   "Find the next manpage entry in the buffer."
申鐃緒申  1172   (interactive)
申鐃緒申  1173   (if (= (length Man-page-list) 1)
申鐃緒申  1174       (error "This is the only manpage in the buffer"))
申鐃緒申  1175   (if (< Man-current-page (length Man-page-list))
申鐃緒申  1176       (Man-goto-page (1+ Man-current-page))
申鐃緒申  1177     (if Man-circular-pages-flag
申鐃緒申  1178 	(Man-goto-page 1)
申鐃緒申  1179       (error "You're looking at the last manpage in the buffer"))))
申鐃緒申  1180 
申鐃緒申  1181 (defun Man-previous-manpage ()
申鐃緒申  1182   "Find the previous manpage entry in the buffer."
申鐃緒申  1183   (interactive)
申鐃緒申  1184   (if (= (length Man-page-list) 1)
申鐃緒申  1185       (error "This is the only manpage in the buffer"))
申鐃緒申  1186   (if (> Man-current-page 1)
申鐃緒申  1187       (Man-goto-page (1- Man-current-page))
申鐃緒申  1188     (if Man-circular-pages-flag
申鐃緒申  1189 	(Man-goto-page (length Man-page-list))
申鐃緒申  1190       (error "You're looking at the first manpage in the buffer"))))
申鐃緒申  1191 
申鐃緒申  1192 ;; Init the man package variables, if not already done.
申鐃緒申  1193 (Man-init-defvars)
申鐃緒申  1194 
申鐃緒申  1195 (add-to-list 'debug-ignored-errors "^No manpage [0-9]* found$")
申鐃緒申  1196 (add-to-list 'debug-ignored-errors "^Can't find the .* manpage$")
申鐃緒申  1197 
申鐃緒申  1198 (provide 'man)
申鐃緒申  1199 
申鐃緒申  1200 ;;; man.el ends here