(electric-help-command-loop): Pass proper format string to message.

diff --git a/lisp/ehelp.el b/lisp/ehelp.el
index fec1dfca748df7bf59271fa3da1d1bcd0a50e112..c03003205e43811ca7122bbfcf8cc9182feecb55 100644 (file)
--- a/lisp/ehelp.el
+++ b/lisp/ehelp.el
@@ -164,7 +164,7 @@ BUFFER is put into `default-major-mode' (or `fundamental-mode') when we exit."
 (defun electric-help-command-loop ()
   (catch 'exit
     (if (pos-visible-in-window-p (point-max))
-       (progn (message (substitute-command-keys "<<< Press Space to bury the help buffer, Press \\[electric-help-retain] to retain it >>>"))
+       (progn (message "%s" (substitute-command-keys "<<< Press Space to bury the help buffer, Press \\[electric-help-retain] to retain it >>>"))
               (if (equal (setq unread-command-events (list (read-event)))
                          '(?\ ))
                   (progn (setq unread-command-events nil)