1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-30 00:51:50 -08:00

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

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

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