# HG changeset patch
# User Bastien Guerry <bzg@altern.org>
# Date 1203336864 0
# Node ID baa074991ebd49bcf389b627bf32cb2cf5b6860f
# Parent  cbc008b3464fea623f4beef7aa99a45bae1c8714
* info.el (Info-read-node-name): Removed unused `default' arg.

diff -r cbc008b3464f -r baa074991ebd lisp/ChangeLog
--- a/lisp/ChangeLog	Mon Feb 18 12:06:53 2008 +0000
+++ b/lisp/ChangeLog	Mon Feb 18 12:14:24 2008 +0000
@@ -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 -r cbc008b3464f -r baa074991ebd lisp/info.el
--- a/lisp/info.el	Mon Feb 18 12:06:53 2008 +0000
+++ b/lisp/info.el	Mon Feb 18 12:14:24 2008 +0000
@@ -1550,13 +1550,12 @@
 	   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 ()