From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 9 Sep 1997 07:09:20 +0000 (+0000)
Subject: (view-end-message): Don't mention q if it really do anything.
X-Git-Tag: emacs-20.1~107
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=19d7331338920e903e9ad23a9a3e8dfa9c3d48ff;p=emacs.git

(view-end-message): Don't mention q if it really do anything.
---

diff --git a/lisp/view.el b/lisp/view.el
index 6feb5565231..6c5b7446e17 100644
--- a/lisp/view.el
+++ b/lisp/view.el
@@ -715,10 +715,12 @@ Also set the mark at the position where point was."
 (defun view-end-message ()
   ;; Tell that we are at end of buffer.
   (goto-char (point-max))
-  (message "End of buffer.  Type %s to quit viewing."
-	   (substitute-command-keys
-	    (if view-scroll-auto-exit "\\[View-scroll-page-forward]"
-	      "\\[View-quit]"))))
+  (if view-return-to-alist
+      (message "End of buffer.  Type %s to quit viewing."
+	       (substitute-command-keys
+		(if view-scroll-auto-exit "\\[View-scroll-page-forward]"
+		  "\\[View-quit]")))
+    (message "End of buffer")))
 
 (defun View-scroll-page-forward (&optional lines)
   "Scroll \"page size\" or prefix LINES lines forward in View mode.