mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases 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
Show Stats 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 ()