(apropos-print): If command has no key bindings, say how to run it with M-x.

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