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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0092c50471faf97a825076e4ac5ca3254f9d058c..ac3e768c1a39cee740fa721afb0551f66a622cf3 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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.

diff --git a/lisp/info.el b/lisp/info.el
index 090e470efec2f87cd2e3a699b0e840f155a1c631..5bbbd60019e1bec38928be93f9a7962a9dd749d3 100644 (file)
--- 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 ()