(rlogin): Call rlogin-mode after adding rlogin-carriage-filter to output

[gnu-emacs] / lisp / apropos.el

diff --git a/lisp/apropos.el b/lisp/apropos.el
index 12b84ff104b64cbb1989430244bf0de7936bb707..df8dc9305a0a405f4885d838ec48d55bdc6e5ffc 100644 (file)
--- 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