diff options
| author | Richard M. Stallman | 1997-09-09 07:09:20 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-09-09 07:09:20 +0000 |
| commit | 19d7331338920e903e9ad23a9a3e8dfa9c3d48ff (patch) | |
| tree | 5f2ef88996a6d6f2fdf888f4b3d29368ac89f2ec | |
| parent | 18ed17e43b98621c116b217e5222b71c09894441 (diff) | |
| download | emacs-19d7331338920e903e9ad23a9a3e8dfa9c3d48ff.tar.gz emacs-19d7331338920e903e9ad23a9a3e8dfa9c3d48ff.zip | |
(view-end-message): Don't mention q if it really do anything.
| -rw-r--r-- | lisp/view.el | 10 |
1 files changed, 6 insertions, 4 deletions
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." | |||
| 715 | (defun view-end-message () | 715 | (defun view-end-message () |
| 716 | ;; Tell that we are at end of buffer. | 716 | ;; Tell that we are at end of buffer. |
| 717 | (goto-char (point-max)) | 717 | (goto-char (point-max)) |
| 718 | (message "End of buffer. Type %s to quit viewing." | 718 | (if view-return-to-alist |
| 719 | (substitute-command-keys | 719 | (message "End of buffer. Type %s to quit viewing." |
| 720 | (if view-scroll-auto-exit "\\[View-scroll-page-forward]" | 720 | (substitute-command-keys |
| 721 | "\\[View-quit]")))) | 721 | (if view-scroll-auto-exit "\\[View-scroll-page-forward]" |
| 722 | "\\[View-quit]"))) | ||
| 723 | (message "End of buffer"))) | ||
| 722 | 724 | ||
| 723 | (defun View-scroll-page-forward (&optional lines) | 725 | (defun View-scroll-page-forward (&optional lines) |
| 724 | "Scroll \"page size\" or prefix LINES lines forward in View mode. | 726 | "Scroll \"page size\" or prefix LINES lines forward in View mode. |