Mercurial > emacs
comparison lisp/apropos.el @ 60483:182ac86fdef1
(apropos-print): Omit command from M-x ... RET.
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Mon, 07 Mar 2005 11:00:25 +0000 |
| parents | 253d4187af2d |
| children | 7c759dd7ab37 29e773288013 |
comparison
equal
deleted
inserted
replaced
| 60482:29c6b4b182a3 | 60483:182ac86fdef1 |
|---|---|
| 858 (put-text-property 0 (length key) | 858 (put-text-property 0 (length key) |
| 859 'face apropos-keybinding-face | 859 'face apropos-keybinding-face |
| 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) |
| 873 'apropos-command | 872 'apropos-command |
| 874 (if (apropos-macrop symbol) | 873 (if (apropos-macrop symbol) |