From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 23 Nov 1993 08:31:03 +0000 (+0000)
Subject: (View-scroll-lines-forward):
X-Git-Tag: emacs-19.34~10728
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6ebbf1dcaf628240d30337cca99e0541006f0767;p=emacs.git

(View-scroll-lines-forward):
Allow scrolling backward at the end of the buffer.
---

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)