diff options
| author | Bastien Guerry <bzg@altern.org> | 2008-02-18 12:14:24 +0000 |
|---|---|---|
| committer | Bastien Guerry <bzg@altern.org> | 2008-02-18 12:14:24 +0000 |
| commit | f75d05eb65c74e1b17d06e89249d76e4e167724c (patch) | |
| tree | c4747146114f106addd8504b78ac1626e3cf927c /lisp/info.el | |
| parent | 9f336de0de192e98728b7ad4683767a38ce2150a (diff) | |
| download | emacs-f75d05eb65c74e1b17d06e89249d76e4e167724c.tar.gz | |
* info.el (Info-read-node-name): Removed unused `default' arg.
Diffstat (limited to 'lisp/info.el')
| -rw-r--r-- | lisp/info.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/info.el b/lisp/info.el index 090e470efec..5bbbd60019e 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -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 () |