From f75d05eb65c74e1b17d06e89249d76e4e167724c Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Mon, 18 Feb 2008 12:14:24 +0000 Subject: [PATCH] * info.el (Info-read-node-name): Removed unused `default' arg. --- lisp/ChangeLog | 4 ++++ lisp/info.el | 5 ++--- 2 files changed, 6 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 0092c50471..ac3e768c1a 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2008-02-18 Bastien Guerry + + * info.el (Info-read-node-name): Removed unused `default' arg. + 2008-02-18 Thien-Thi Nguyen * 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 090e470efe..5bbbd60019 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 () -- 2.39.2