diff options
| author | Karl Heuer <kwzh@gnu.org> | 1996-01-25 00:58:31 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1996-01-25 00:58:31 +0000 |
| commit | b32e84552ef4a448c97594e03e19c641dc03c510 (patch) | |
| tree | f9f197adaf621fe86f6f959170757af553964363 /lisp/view.el | |
| parent | 8ea884c3fef0486ab88920330d2f60ef0c1242d6 (diff) | |
| download | emacs-b32e84552ef4a448c97594e03e19c641dc03c510.tar.gz | |
(view-mode-enter, View-scroll-lines-forward): Pass proper format string to message.
Diffstat (limited to 'lisp/view.el')
| -rw-r--r-- | lisp/view.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/view.el b/lisp/view.el index ac117bb404b..926c2454f6e 100644 --- a/lisp/view.el +++ b/lisp/view.el @@ -262,7 +262,7 @@ This function runs the normal hook `view-mode-hook'. (setq goal-column nil) (run-hooks 'view-mode-hook) - (message + (message "%s" (substitute-command-keys "Type \\[help-command] for help, \\[describe-mode] for commands, \\[view-exit] to quit."))) @@ -343,7 +343,8 @@ Arg is number of lines to scroll." (scroll-up lines))) (cond ((pos-visible-in-window-p (point-max)) (goto-char (point-max)) - (message (substitute-command-keys + (message "%s" + (substitute-command-keys "End. Type \\[view-exit] to quit viewing.")))) (move-to-window-line -1) (beginning-of-line))) |