* info.el (info-display-manual): Add completion.

Fixes: debbugs:10771

2 files changed, 10 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 51756972f4a..6032211b76f 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,7 +1,7 @@
 2012-12-02  Juri Linkov  <juri@jurta.org>
 
         * info.el (info-display-manual): Don't clobber an existing Info
-        buffer (Bug#10770).
+        buffer (Bug#10770).  Add completion (Bug#10771).
 
 2012-12-01  Yuya Nishihara  <yuya@tcha.org>  (tiny change)
 
diff --git a/lisp/info.el b/lisp/info.el
index f22b39769b1..6149c3fcd80 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -5100,7 +5100,15 @@ type returned by `Info-bookmark-make-record', which see."
   "Display an Info buffer displaying MANUAL.
 If there is an existing Info buffer for MANUAL, display it.
 Otherwise, visit the manual in a new Info buffer."
-  (interactive "sManual name: ")
+  (interactive
+   (list
+    (progn
+      (info-initialize)
+      (completing-read "Manual name: "
+                       (apply-partially 'Info-read-node-name-2
+                                        Info-directory-list
+                                        (mapcar 'car Info-suffix-list))
+                       nil t))))
   (let ((blist (buffer-list))
         (manual-re (concat "\\(/\\|\\`\\)" manual "\\(\\.\\|\\'\\)"))
         (case-fold-search t)