diff options
| author | Karl Heuer | 1996-01-25 00:53:48 +0000 |
|---|---|---|
| committer | Karl Heuer | 1996-01-25 00:53:48 +0000 |
| commit | 7bccdfbc11a1a8dbd5f3aaad824785a3282324a9 (patch) | |
| tree | 020ded7e6d52c82bef0ae3bdc83d123dd1fc0942 | |
| parent | 2bb7c30c3dd62e8417da08c6714bdfc198d6634b (diff) | |
| download | emacs-7bccdfbc11a1a8dbd5f3aaad824785a3282324a9.tar.gz emacs-7bccdfbc11a1a8dbd5f3aaad824785a3282324a9.zip | |
(electric-help-command-loop): Pass proper format string to message.
| -rw-r--r-- | lisp/ehelp.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/ehelp.el b/lisp/ehelp.el index fec1dfca748..c03003205e4 100644 --- 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." | |||
| 164 | (defun electric-help-command-loop () | 164 | (defun electric-help-command-loop () |
| 165 | (catch 'exit | 165 | (catch 'exit |
| 166 | (if (pos-visible-in-window-p (point-max)) | 166 | (if (pos-visible-in-window-p (point-max)) |
| 167 | (progn (message (substitute-command-keys "<<< Press Space to bury the help buffer, Press \\[electric-help-retain] to retain it >>>")) | 167 | (progn (message "%s" (substitute-command-keys "<<< Press Space to bury the help buffer, Press \\[electric-help-retain] to retain it >>>")) |
| 168 | (if (equal (setq unread-command-events (list (read-event))) | 168 | (if (equal (setq unread-command-events (list (read-event))) |
| 169 | '(?\ )) | 169 | '(?\ )) |
| 170 | (progn (setq unread-command-events nil) | 170 | (progn (setq unread-command-events nil) |