Mercurial > hg > xemacs-beta

comparison lisp/packages/man.el @ 2:ac2d302a0011 r19-15b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b2
author cvs
date Mon, 13 Aug 2007 08:46:35 +0200
parents 376386a54a3c
children b82b59fe008d
comparison
equal deleted inserted replaced
1:c0c6a60d29db 2:ac2d302a0011
614 mode-name "Manual") 614 mode-name "Manual")
615 ;; man pages with long lines are buggy! 615 ;; man pages with long lines are buggy!
616 ;; This looks slightly better if they only 616 ;; This looks slightly better if they only
617 ;; overran by a couple of chars. 617 ;; overran by a couple of chars.
618 (setq truncate-lines t) 618 (setq truncate-lines t)
619 ;; turn off horizontal scrollbars in this buffer 619 (if (featurep 'scrollbar)
620 (set-specifier scrollbar-height (cons (current-buffer) 0)) 620 ;; turn off horizontal scrollbars in this buffer
621 (set-specifier scrollbar-height (cons (current-buffer) 0)))
621 (run-hooks 'Manual-mode-hook)) 622 (run-hooks 'Manual-mode-hook))
622 623
623 (defun Manual-last-page () 624 (defun Manual-last-page ()
624 (interactive) 625 (interactive)
625 (while (or (not (get-buffer (car (or Manual-page-history 626 (while (or (not (get-buffer (car (or Manual-page-history