Skip to content

GitLab

Commit eccfba6e authored by Kim F. Storm's avatar Kim F. Storm
Browse files

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

parent 2f8cd1ce
Hide whitespace changes
Inline Side-by-side
Showing with 6 additions and 7 deletions
lisp/apropos.el
View file @ eccfba6e
...@@ -860,13 +860,12 @@ If non-nil TEXT is a string that will be printed as a heading." ...@@ -860,13 +860,12 @@ If non-nil TEXT is a string that will be printed as a heading."
key)) key))
key) key)
item ", ")) item ", "))
(insert "M-x") (insert "M-x ... RET")
(put-text-property (- (point) 3) (point) (when apropos-keybinding-face
'face apropos-keybinding-face) (put-text-property (- (point) 11) (- (point) 8)
(insert " " (symbol-name symbol) " ") 'face apropos-keybinding-face)
(insert "RET") (put-text-property (- (point) 3) (point)
(put-text-property (- (point) 3) (point) 'face apropos-keybinding-face))))
'face apropos-keybinding-face)))
(terpri) (terpri)
(apropos-print-doc 2 (apropos-print-doc 2
(if (commandp symbol) (if (commandp symbol)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment