[Emacs-diffs] /srv/bzr/emacs/trunk r111063: * info.el (info-display-manual): Add completion.

[Chong Yidong]

------------------------------------------------------------
revno: 111063
fixes bug: http://debbugs.gnu.org/10771
author: Juri Linkov <address@hidden>
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Sun 2012-12-02 14:41:22 +0800
message:
  * info.el (info-display-manual): Add completion.
modified:
  lisp/ChangeLog
  lisp/info.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-12-02 06:22:32 +0000
+++ b/lisp/ChangeLog    2012-12-02 06:41:22 +0000
@@ -1,7 +1,7 @@
 2012-12-02  Juri Linkov  <address@hidden>
 
        * 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  <address@hidden>  (tiny change)
 

=== modified file 'lisp/info.el'
--- a/lisp/info.el      2012-12-02 06:22:32 +0000
+++ b/lisp/info.el      2012-12-02 06:41:22 +0000
@@ -5100,7 +5100,15 @@
   "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)