Add 'minibuffer-action' to 'info-apropos'

diff --git a/lisp/info.el b/lisp/info.el
index 413af04f95f47d18b47aa9667366aebe3e468ba3..b1732429c40c1968912536449e04244afbd46303 100644 (file)
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -3876,6 +3876,10 @@ Display a menu of the possible matches."
        (push (list nodename string (Info-apropos-matches string regexp))
              Info-apropos-nodes)
        (Info-find-node Info-apropos-file nodename)))))
+
+(put 'info-apropos 'minibuffer-action
+     (cons (lambda (s) (save-selected-window(info-apropos s))) "apropos"))
+
 \f
 (add-to-list 'Info-virtual-files
             '("\\`\\*Finder.*\\*\\'"