mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-02 08:22:22 +00:00
Code Issues Releases Activity

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

Browse Source 
Fixes: debbugs:10771
This commit is contained in:
Juri Linkov 2012-12-02 14:41:22 +08:00 committed by Chong Yidong
parent 3faf494431
commit 010db6da65
2 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/ChangeLog
View File

@ -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)

10
lisp/info.el
View File

@ -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)