mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-11 16:08:13 +00:00
Code Issues Releases Activity

(describe-key-briefly): Make output in INSERT case

Browse Source 
look just like what is displayed in the normal case.
This commit is contained in:
Richard M. Stallman 2002-02-15 19:59:25 +00:00
parent 1b741d9e27
commit 80d553d4cd
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/help.el
View File

@ -477,11 +477,9 @@ If INSERT (the prefix arg) is non-nil, insert the message in the buffer."
(key-desc (key-description key)))
(if (or (null defn) (integerp defn))
(princ (format "%s is undefined" key-desc))
(princ (format (if insert
"`%s' (`%s')"
(if (windowp window)
"%s at that spot runs the command %s"
"%s runs the command %s"))
(princ (format (if (windowp window)
"%s at that spot runs the command %s"
"%s runs the command %s")
key-desc
(if (symbolp defn) defn (prin1-to-string defn)))))))))