diff lisp/info.el @ 91937:baa074991ebd

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

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