Mercurial > emacs
comparison lisp/view.el @ 13538:937a007d5afc
(View-scroll-lines-forward): Don't recenter at end.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 14 Nov 1995 03:43:40 +0000 |
| parents | d01d8c5b6e30 |
| children | 50d31efc8e72 |
comparison
equal
deleted
inserted
replaced
| 13537:d2fcf9de0218 | 13538:937a007d5afc |
|---|---|
| 338 (if (>= (- lines) (view-window-size)) | 338 (if (>= (- lines) (view-window-size)) |
| 339 (scroll-down nil) | 339 (scroll-down nil) |
| 340 (scroll-up lines))) | 340 (scroll-up lines))) |
| 341 (cond ((pos-visible-in-window-p (point-max)) | 341 (cond ((pos-visible-in-window-p (point-max)) |
| 342 (goto-char (point-max)) | 342 (goto-char (point-max)) |
| 343 (recenter -1) | |
| 344 (message (substitute-command-keys | 343 (message (substitute-command-keys |
| 345 "End. Type \\[view-exit] to quit viewing.")))) | 344 "End. Type \\[view-exit] to quit viewing.")))) |
| 346 (move-to-window-line -1) | 345 (move-to-window-line -1) |
| 347 (beginning-of-line))) | 346 (beginning-of-line))) |
| 348 | 347 |