diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-05-04 00:50:49 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-05-04 00:50:49 +0000 |
| commit | 82fbaa5ef2397f49ccd4c1aa42d4b7835ad66694 (patch) | |
| tree | 3ebead8653b5d80f2f145ae8a1a7bf1a0e627839 /lisp/apropos.el | |
| parent | e827bc372f024900ec596b62f63c562025f66888 (diff) | |
| download | emacs-82fbaa5ef2397f49ccd4c1aa42d4b7835ad66694.tar.gz | |
(apropos-print): If command has no key bindings, say how to run it with M-x.
Diffstat (limited to 'lisp/apropos.el')
| -rw-r--r-- | lisp/apropos.el | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/lisp/apropos.el b/lisp/apropos.el index 8ebddb9bd5c..df8dc9305a0 100644 --- a/lisp/apropos.el +++ b/lisp/apropos.el @@ -493,7 +493,14 @@ found." key)) key) item ", ")) - (insert "(not bound to any keys)"))) + (insert "Type ") + (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))) (terpri) ;; only now so we don't propagate text attributes all over (put-text-property point1 point2 'item |