Mercurial > emacs

changeset 19841:d7a4b38557f3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(view-end-message): Don't mention q if it really do anything.
author Richard M. Stallman <rms@gnu.org>
date Tue, 09 Sep 1997 07:09:20 +0000
parents f66b5085a537
children 5797c2cbac2a
files lisp/view.el
diffstat 1 files changed, 6 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/view.el	Tue Sep 09 07:08:58 1997 +0000
+++ b/lisp/view.el	Tue Sep 09 07:09:20 1997 +0000
@@ -715,10 +715,12 @@
 (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.