# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 822531228 0
# Node ID 381c7a6d21f6f7e9cee8c81865819672a80e93d4
# Parent  49af6e2bfaa82851bb7ad9585eee0c3b56ba8f12
(electric-help-command-loop): Pass proper format string to message.

diff -r 49af6e2bfaa8 -r 381c7a6d21f6 lisp/ehelp.el
--- a/lisp/ehelp.el	Thu Jan 25 00:53:08 1996 +0000
+++ b/lisp/ehelp.el	Thu Jan 25 00:53:48 1996 +0000
@@ -164,7 +164,7 @@
 (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)