From 82fbaa5ef2397f49ccd4c1aa42d4b7835ad66694 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 4 May 1996 00:50:49 +0000 Subject: [PATCH] (apropos-print): If command has no key bindings, say how to run it with M-x. --- lisp/apropos.el | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) 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 -- 2.39.2