diff options
| author | Kim F. Storm <storm@cua.dk> | 2005-03-07 11:00:25 +0000 |
|---|---|---|
| committer | Kim F. Storm <storm@cua.dk> | 2005-03-07 11:00:25 +0000 |
| commit | 505ce0c97d2f90d71d2e1c5e2282466ca3bda4e5 (patch) | |
| tree | 1b7b5892a17ead4f635d3d506d1275a7655d7c76 /lisp/apropos.el | |
| parent | d4b64b109da55814ff04d1597cad6ae9474b3b2f (diff) | |
| download | emacs-505ce0c97d2f90d71d2e1c5e2282466ca3bda4e5.tar.gz | |
(apropos-print): Omit command from M-x ... RET.
Diffstat (limited to 'lisp/apropos.el')
| -rw-r--r-- | lisp/apropos.el | 13 |
1 files changed, 6 insertions, 7 deletions
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) |