diff options
| author | Juri Linkov <juri@jurta.org> | 2012-12-02 14:41:22 +0800 |
|---|---|---|
| committer | Chong Yidong <cyd@gnu.org> | 2012-12-02 14:41:22 +0800 |
| commit | 010db6da6527d16736fd3c2b607058dd35a70c9a (patch) | |
| tree | 7b9112aae9b3a24682ed4bd27d06105facc751bd /lisp/info.el | |
| parent | 3faf4944316a1efc840bd6dffe4315ea30a0f0e8 (diff) | |
| download | emacs-010db6da6527d16736fd3c2b607058dd35a70c9a.tar.gz | |
* info.el (info-display-manual): Add completion.
Fixes: debbugs:10771
Diffstat (limited to 'lisp/info.el')
| -rw-r--r-- | lisp/info.el | 10 |
1 files changed, 9 insertions, 1 deletions
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) |