Mercurial > hg > xemacs-beta

comparison lisp/modes/view.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 131b0175ea99
children 360340f9fd5f
comparison
equal deleted inserted replaced
81:ebca3d831cea 82:6a378aca36af
353 (if (>= (- lines) (view-window-size)) 353 (if (>= (- lines) (view-window-size))
354 (scroll-down nil) 354 (scroll-down nil)
355 (scroll-up lines))) 355 (scroll-up lines)))
356 (cond ((pos-visible-in-window-p (point-max)) 356 (cond ((pos-visible-in-window-p (point-max))
357 (goto-char (point-max)) 357 (goto-char (point-max))
358 (message "%" 358 (message "%s"
359 (substitute-command-keys 359 (substitute-command-keys
360 "End. Type \\[view-exit] to quit viewing.")))) 360 "End. Type \\[view-exit] to quit viewing."))))
361 (move-to-window-line -1) 361 (move-to-window-line -1)
362 (beginning-of-line))) 362 (beginning-of-line)))
363 363