# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 739089298 0
# Node ID 89cd5536ee810600462505700d48a453b3a9335e
# Parent  ad455da9b7891d82f7d0cbbcca64c27932104af6
(View-scroll-lines-forward): If we exit, do nothing else.

diff -r ad455da9b789 -r 89cd5536ee81 lisp/view.el
--- a/lisp/view.el	Thu Jun 03 06:18:18 1993 +0000
+++ b/lisp/view.el	Thu Jun 03 06:34:58 1993 +0000
@@ -331,23 +331,23 @@
 Arg is number of lines to scroll."
   (interactive "P")
   (if (pos-visible-in-window-p (point-max))
-      (view-exit))
-  (setq lines
-	(if lines (prefix-numeric-value lines)
-	  (view-scroll-size)))
-; (view-last-command 'View-scroll-lines-forward lines)
-  (if (>= lines (view-window-size))
-      (scroll-up nil)
-    (if (>= (- lines) (view-window-size))
-	(scroll-down nil)
-      (scroll-up lines)))
-  (cond ((pos-visible-in-window-p (point-max))
-	 (goto-char (point-max))
-	 (recenter -1)
-	 (message (substitute-command-keys
-		"End.  Type \\[view-exit] to quit viewing."))))
-  (move-to-window-line -1)
-  (beginning-of-line))
+      (view-exit)
+    (setq lines
+	  (if lines (prefix-numeric-value lines)
+	    (view-scroll-size)))
+    ;; (view-last-command 'View-scroll-lines-forward lines)
+    (if (>= lines (view-window-size))
+	(scroll-up nil)
+      (if (>= (- lines) (view-window-size))
+	  (scroll-down nil)
+	(scroll-up lines)))
+    (cond ((pos-visible-in-window-p (point-max))
+	   (goto-char (point-max))
+	   (recenter -1)
+	   (message (substitute-command-keys
+		     "End.  Type \\[view-exit] to quit viewing."))))
+    (move-to-window-line -1)
+    (beginning-of-line)))
 
 (defun View-scroll-lines-forward-set-scroll-size (&optional lines)
   "Scroll forward LINES lines in View mode, setting the \"scroll size\".