Mercurial > hg > xemacs-beta

comparison lisp/packages/man.el @ 26:441bb1e64a06 r19-15b96

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b96
author cvs
date Mon, 13 Aug 2007 08:51:32 +0200
parents 4103f0995bd7
children 131b0175ea99
comparison
equal deleted inserted replaced
25:383a494979f8 26:441bb1e64a06
257 ;; man pages with long lines are buggy! 257 ;; man pages with long lines are buggy!
258 ;; This looks slightly better if they only 258 ;; This looks slightly better if they only
259 ;; overran by a couple of chars. 259 ;; overran by a couple of chars.
260 (setq truncate-lines t) 260 (setq truncate-lines t)
261 ;; turn off horizontal scrollbars in this buffer 261 ;; turn off horizontal scrollbars in this buffer
262 (set-specifier scrollbar-height (cons (current-buffer) 0)) 262 (when (featurep 'scrollbar)
263 (set-specifier scrollbar-height (cons (current-buffer) 0)))
263 (run-hooks 'Manual-mode-hook)) 264 (run-hooks 'Manual-mode-hook))
264 265
265 (defun Manual-last-page () 266 (defun Manual-last-page ()
266 (interactive) 267 (interactive)
267 (while (or (not (get-buffer (car (or Manual-page-history 268 (while (or (not (get-buffer (car (or Manual-page-history