mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-06 20:00:46 -08:00
Code Issues Projects Releases Wiki Activity

* info.el (Info-read-node-name): Removed unused `default' arg.

Browse source
This commit is contained in:
Bastien Guerry 2008-02-18 12:14:24 +00:00
parent 9f336de0de
commit f75d05eb65
2 changed files with 6 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,3 +1,7 @@
2008-02-18 Bastien Guerry <Bastien.Guerry@ens.fr>
* info.el (Info-read-node-name): Removed unused `default' arg.
2008-02-18 Thien-Thi Nguyen <ttn@gnuvola.org>
* vc-git.el (vc-git-after-dir-status, vc-git-dir-status): New funcs.

5
lisp/info.el
View file

@ -1550,13 +1550,12 @@ PATH-AND-SUFFIXES is a pair of lists, (DIRECTORIES . SUFFIXES)."
1
0)))
(defun Info-read-node-name (prompt &optional default)
(defun Info-read-node-name (prompt)
(let* ((completion-ignore-case t)
(Info-read-node-completion-table (Info-build-node-completions))
(nodename (completing-read prompt 'Info-read-node-name-1 nil t)))
(if (equal nodename "")
(or default
(Info-read-node-name prompt))
(Info-read-node-name prompt)
nodename)))
(defun Info-build-node-completions ()