Mercurial > hg > xemacs-beta

comparison lisp/packages/man.el @ 144:318232e2a3f0 r20-2b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b6
author cvs
date Mon, 13 Aug 2007 09:34:14 +0200
parents cca96a509cfe
children 538048ae2ab8
comparison
equal deleted inserted replaced
143:50e7fedfe353 144:318232e2a3f0
57 (defvar Manual-page-history nil "\ 57 (defvar Manual-page-history nil "\
58 A list of names of previously visited man page buffers.") 58 A list of names of previously visited man page buffers.")
59 59
60 60
61 ;; New variables. 61 ;; New variables.
62
63 (defcustom Manual-snip-subchapter
64 (not (string-match "solaris" system-configuration))
65 "*Should man look in chapter 3 for ctime(3c)?
66 This is relavent for Solaris and, perhaps, other systems which have
67 `man -s 3' not find things in chapter 3c, or other such sub-chapters"
68 :type 'boolean
69 :group 'man)
62 70
63 (defcustom Manual-use-rosetta-man (not (null (locate-file "rman" exec-path))) "\ 71 (defcustom Manual-use-rosetta-man (not (null (locate-file "rman" exec-path))) "\
64 If non-nil, use RosettaMan (rman) to filter man pages. 72 If non-nil, use RosettaMan (rman) to filter man pages.
65 This makes man-page cleanup virtually instantaneous, instead of 73 This makes man-page cleanup virtually instantaneous, instead of
66 potentially taking a long time. 74 potentially taking a long time.
182 (match-end 1))) 190 (match-end 1)))
183 (if (string-match "\\`[ \t]*-k[ \t]+\\([^ \t]+\\)\\'" topic) 191 (if (string-match "\\`[ \t]*-k[ \t]+\\([^ \t]+\\)\\'" topic)
184 (setq section "-k" 192 (setq section "-k"
185 topic (substring topic (match-beginning 1)))))) 193 topic (substring topic (match-beginning 1))))))
186 194
187 ;; jwz: turn section "3x11" and "3n" into "3". 195 (when Manual-snip-subchapter
188 (if (and section (string-match "\\`\\([0-9]+\\)[^0-9]" section)) 196 ;; jwz: turn section "3x11" and "3n" into "3".
189 (setq section (substring section 0 (match-end 1)))) 197 (if (and section (string-match "\\`\\([0-9]+\\)[^0-9]" section))
198 (setq section (substring section 0 (match-end 1)))))
190 (if (equal section "-k") 199 (if (equal section "-k")
191 (setq apropos-mode t)) 200 (setq apropos-mode t))
192 201
193 (let ((bufname (cond (apropos-mode 202 (let ((bufname (cond (apropos-mode
194 (concat "*man apropos " topic "*")) 203 (concat "*man apropos " topic "*"))