Mercurial > emacs
comparison lisp/simple.el @ 39743:b6933b0f1ef2
(end-of-buffer): Fix code scrolling specially
for the buffer end.
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Wed, 10 Oct 2001 11:55:39 +0000 |
parents | 309d26eb8616 |
children | a292df89e830 |
comparison
equal
deleted
inserted
replaced
39742:1985c223de10 | 39743:b6933b0f1ef2 |
---|---|
410 (/ (* size (prefix-numeric-value arg)) 10))) | 410 (/ (* size (prefix-numeric-value arg)) 10))) |
411 (point-max)))) | 411 (point-max)))) |
412 ;; If we went to a place in the middle of the buffer, | 412 ;; If we went to a place in the middle of the buffer, |
413 ;; adjust it to the beginning of a line. | 413 ;; adjust it to the beginning of a line. |
414 (cond (arg (forward-line 1)) | 414 (cond (arg (forward-line 1)) |
415 ((< (point) (window-end nil t)) | 415 ((> (point) (window-end nil t)) |
416 ;; If the end of the buffer is not already on the screen, | 416 ;; If the end of the buffer is not already on the screen, |
417 ;; then scroll specially to put it near, but not at, the bottom. | 417 ;; then scroll specially to put it near, but not at, the bottom. |
418 (overlay-recenter (point)) | 418 (overlay-recenter (point)) |
419 (recenter -3)))) | 419 (recenter -3)))) |
420 | 420 |