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

This commit is contained in:
Karl Heuer 1996-01-25 00:53:48 +00:00
parent 2bb7c30c3d
commit 7bccdfbc11

View file

@ -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)