# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 754043463 0
# Node ID 4bf8c101aaef97c7824761c5649f6b3e88713164
# Parent  23f6d57ced16d8ab496d5c6cf1c22018f5bfeab9
(View-scroll-lines-forward):
Allow scrolling backward at the end of the buffer.

diff -r 23f6d57ced16 -r 4bf8c101aaef lisp/view.el
--- 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)