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

Fixes: debbugs:10771

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 51756972f4a9637fb2b618e826f4cf95c04d9f6d..6032211b76fffdc7ecf9b40d8c458b53868b6b42 100644 (file)
--- 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 f22b39769b1c7962a8a29a4aaf0b650638028171..6149c3fcd801031ecc121d96d41dcd664831444d 100644 (file)
--- 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)