From: Kim F. Storm <storm@cua.dk>
Date: Mon, 7 Mar 2005 11:00:25 +0000 (+0000)
Subject: (apropos-print): Omit command from M-x ... RET.
X-Git-Tag: ttn-vms-21-2-B4~1909
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=eccfba6ef110a8ab453cb13eb01a6c7acd7bc2e1;p=emacs.git

(apropos-print): Omit command from M-x ... RET.
---

diff --git a/lisp/apropos.el b/lisp/apropos.el
index ae8a4ad628c..b9d7e3ff41d 100644
--- a/lisp/apropos.el
+++ b/lisp/apropos.el
@@ -860,13 +860,12 @@ If non-nil TEXT is a string that will be printed as a heading."
 					      key))
 		       key)
 		     item ", "))
-		 (insert "M-x")
-		 (put-text-property (- (point) 3) (point)
-				    'face apropos-keybinding-face)
-		 (insert " " (symbol-name symbol) " ")
-		 (insert "RET")
-		 (put-text-property (- (point) 3) (point)
-				    'face apropos-keybinding-face)))
+		 (insert "M-x ... RET")
+		 (when apropos-keybinding-face
+		   (put-text-property (- (point) 11) (- (point) 8)
+				      'face apropos-keybinding-face)
+		   (put-text-property (- (point) 3) (point)
+				      'face apropos-keybinding-face))))
 	  (terpri)
 	  (apropos-print-doc 2
 			     (if (commandp symbol)