diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-11-23 08:31:03 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-11-23 08:31:03 +0000 |
| commit | baca7714a11c38b6267b171c43ab545f77e6c384 (patch) | |
| tree | 4ea51c127ffe4003a8e91ccaf5f720d9ab724b8a /lisp/view.el | |
| parent | a44a969904d1099ce6057dd457d71b675982446f (diff) | |
| download | emacs-baca7714a11c38b6267b171c43ab545f77e6c384.tar.gz | |
(View-scroll-lines-forward):
Allow scrolling backward at the end of the buffer.
Diffstat (limited to 'lisp/view.el')
| -rw-r--r-- | lisp/view.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/view.el b/lisp/view.el index 4dad422d0c1..1ecd68728dd 100644 --- a/lisp/view.el +++ b/lisp/view.el @@ -332,7 +332,10 @@ mark ring." 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) |