diff options
| author | Richard M. Stallman | 2002-02-15 19:59:25 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2002-02-15 19:59:25 +0000 |
| commit | 80d553d4cdfc0220cd9e32354e8dca7e1f5a17c6 (patch) | |
| tree | 8a6843d30888d22fb0ec011bcf7808d67259d146 | |
| parent | 1b741d9e27ab5f7f4e3268561134f562f183f362 (diff) | |
| download | emacs-80d553d4cdfc0220cd9e32354e8dca7e1f5a17c6.tar.gz emacs-80d553d4cdfc0220cd9e32354e8dca7e1f5a17c6.zip | |
(describe-key-briefly): Make output in INSERT case
look just like what is displayed in the normal case.
| -rw-r--r-- | lisp/help.el | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/lisp/help.el b/lisp/help.el index 70951e021b9..82afa023f22 100644 --- a/lisp/help.el +++ b/lisp/help.el | |||
| @@ -477,11 +477,9 @@ If INSERT (the prefix arg) is non-nil, insert the message in the buffer." | |||
| 477 | (key-desc (key-description key))) | 477 | (key-desc (key-description key))) |
| 478 | (if (or (null defn) (integerp defn)) | 478 | (if (or (null defn) (integerp defn)) |
| 479 | (princ (format "%s is undefined" key-desc)) | 479 | (princ (format "%s is undefined" key-desc)) |
| 480 | (princ (format (if insert | 480 | (princ (format (if (windowp window) |
| 481 | "`%s' (`%s')" | 481 | "%s at that spot runs the command %s" |
| 482 | (if (windowp window) | 482 | "%s runs the command %s") |
| 483 | "%s at that spot runs the command %s" | ||
| 484 | "%s runs the command %s")) | ||
| 485 | key-desc | 483 | key-desc |
| 486 | (if (symbolp defn) defn (prin1-to-string defn))))))))) | 484 | (if (symbolp defn) defn (prin1-to-string defn))))))))) |
| 487 | 485 | ||