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

2 files changed, 6 insertions, 3 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0092c50471f..ac3e768c1a3 100644
--- 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 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 ()