Mercurial > hg > xemacs-beta

comparison lisp/packages/man.el @ 82:6a378aca36af r20-0b91

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b91
author cvs
date Mon, 13 Aug 2007 09:07:36 +0200
parents 1ce6082ce73f
children 364816949b59
comparison
equal deleted inserted replaced
81:ebca3d831cea 82:6a378aca36af
608 ;; man pages with long lines are buggy! 608 ;; man pages with long lines are buggy!
609 ;; This looks slightly better if they only 609 ;; This looks slightly better if they only
610 ;; overran by a couple of chars. 610 ;; overran by a couple of chars.
611 (setq truncate-lines t) 611 (setq truncate-lines t)
612 ;; turn off horizontal scrollbars in this buffer 612 ;; turn off horizontal scrollbars in this buffer
613 (set-specifier scrollbar-height (cons (current-buffer) 0)) 613 (when (featurep 'scrollbar)
614 (set-specifier scrollbar-height (cons (current-buffer) 0)))
614 (run-hooks 'Manual-mode-hook)) 615 (run-hooks 'Manual-mode-hook))
615 616
616 (defun Manual-last-page () 617 (defun Manual-last-page ()
617 (interactive) 618 (interactive)
618 (while (or (not (get-buffer (car (or Manual-page-history 619 (while (or (not (get-buffer (car (or Manual-page-history