aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman2002-02-15 19:59:25 +0000
committerRichard M. Stallman2002-02-15 19:59:25 +0000
commit80d553d4cdfc0220cd9e32354e8dca7e1f5a17c6 (patch)
tree8a6843d30888d22fb0ec011bcf7808d67259d146
parent1b741d9e27ab5f7f4e3268561134f562f183f362 (diff)
downloademacs-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.el8
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