diff options
| author | Kim F. Storm | 2005-03-07 11:00:25 +0000 |
|---|---|---|
| committer | Kim F. Storm | 2005-03-07 11:00:25 +0000 |
| commit | eccfba6ef110a8ab453cb13eb01a6c7acd7bc2e1 (patch) | |
| tree | 4cd1910cdeca6d9dd586bedc823c24dabc2c18a0 | |
| parent | 2f8cd1ced06ad3d1522e539834f27d1a1f392189 (diff) | |
| download | emacs-eccfba6ef110a8ab453cb13eb01a6c7acd7bc2e1.tar.gz emacs-eccfba6ef110a8ab453cb13eb01a6c7acd7bc2e1.zip | |
(apropos-print): Omit command from M-x ... RET.
| -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." | |||
| 860 | key)) | 860 | key)) |
| 861 | key) | 861 | key) |
| 862 | item ", ")) | 862 | item ", ")) |
| 863 | (insert "M-x") | 863 | (insert "M-x ... RET") |
| 864 | (put-text-property (- (point) 3) (point) | 864 | (when apropos-keybinding-face |
| 865 | 'face apropos-keybinding-face) | 865 | (put-text-property (- (point) 11) (- (point) 8) |
| 866 | (insert " " (symbol-name symbol) " ") | 866 | 'face apropos-keybinding-face) |
| 867 | (insert "RET") | 867 | (put-text-property (- (point) 3) (point) |
| 868 | (put-text-property (- (point) 3) (point) | 868 | 'face apropos-keybinding-face)))) |
| 869 | 'face apropos-keybinding-face))) | ||
| 870 | (terpri) | 869 | (terpri) |
| 871 | (apropos-print-doc 2 | 870 | (apropos-print-doc 2 |
| 872 | (if (commandp symbol) | 871 | (if (commandp symbol) |