bug#10771: TAB completion for info-display-manual

[Juri Linkov]

tags 10771 patch
thanks

> M-x info-display-manual RET em TAB
>
> I hoped this would offer completion over the manuals in my INFOPATH, but
> it just inserts a literal tab.

This patch offers completion:

=== modified file 'lisp/info.el'
--- lisp/info.el        2012-01-25 17:54:01 +0000
+++ lisp/info.el        2012-02-09 09:27:10 +0000
@@ -4984,7 +4984,13 @@ (defun Info-bookmark-jump (bmk)
 ;;;###autoload
 (defun info-display-manual (manual)
   "Go to Info buffer that displays MANUAL, creating it if none already exists."
-  (interactive "sManual name: ")
+  (interactive
+   (list
+    (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)