Mercurial > emacs

changeset 91937:baa074991ebd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* info.el (Info-read-node-name): Removed unused `default' arg.
author Bastien Guerry <bzg@altern.org>
date Mon, 18 Feb 2008 12:14:24 +0000
parents cbc008b3464f
children 1306e7d92884
files lisp/ChangeLog lisp/info.el
diffstat 2 files changed, 6 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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.
--- 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 ()