Mercurial > hg > xemacs-beta

comparison lisp/packages/man.el @ 104:cf808b4c4290 r20-1b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b4
author cvs
date Mon, 13 Aug 2007 09:16:51 +0200
parents 4be1180a9e89
children cca96a509cfe
comparison
equal deleted inserted replaced
103:30eda07fe280 104:cf808b4c4290
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