From 010db6da6527d16736fd3c2b607058dd35a70c9a Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Sun, 2 Dec 2012 14:41:22 +0800 Subject: [PATCH] * info.el (info-display-manual): Add completion. Fixes: debbugs:10771 --- lisp/ChangeLog | 2 +- lisp/info.el | 10 +++++++++- 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 * 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 (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) -- 2.39.5