From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 15 Feb 2002 19:59:25 +0000 (+0000)
Subject: (describe-key-briefly): Make output in INSERT case
X-Git-Tag: ttn-vms-21-2-B4~16669
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=80d553d4cdfc0220cd9e32354e8dca7e1f5a17c6;p=emacs.git

(describe-key-briefly): Make output in INSERT case
look just like what is displayed in the normal case.
---

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."
 	    (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)))))))))