Mercurial > emacs
changeset 5123:4bf8c101aaef
(View-scroll-lines-forward):
Allow scrolling backward at the end of the buffer.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 23 Nov 1993 08:31:03 +0000 |
| parents | 23f6d57ced16 |
| children | 1aba6a79cb3d |
| files | lisp/view.el |
| diffstat | 1 files changed, 4 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/view.el Tue Nov 23 07:52:33 1993 +0000 +++ b/lisp/view.el Tue Nov 23 08:31:03 1993 +0000 @@ -332,7 +332,10 @@ No arg means whole window full, or number of lines set by \\[View-scroll-lines-forward-set-scroll-size]. Arg is number of lines to scroll." (interactive "P") - (if (pos-visible-in-window-p (point-max)) + (if (and (pos-visible-in-window-p (point-max)) + ;; Allow scrolling backward at the end of the buffer. + (or (null lines) + (> lines 0))) (view-exit) (setq lines (if lines (prefix-numeric-value lines)