(view-mode-enter, View-scroll-lines-forward): Pass proper format string to message.

diff --git a/lisp/view.el b/lisp/view.el
index ac117bb404bba93fc5f449c7320f18911801be22..926c2454f6e39786feb10e1685b7798b5f1297ad 100644 (file)
--- 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.")))
 \f
@@ -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)))