(View-scroll-lines-forward):

Allow scrolling backward at the end of the buffer.
1993-11-23 08:31:03 +00:00
parent 0744bf6404
commit 6ebbf1dcaf
1 changed files with 4 additions and 1 deletions
--- 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)