(apropos-print): Omit command from M-x ... RET.
This commit is contained in:
@@ -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)
|
||||
|
||||
Reference in New Issue
Block a user