From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 26 Sep 2001 15:45:47 +0000 (+0000)
Subject: (Info-on-current-buffer): Default arg to "Top".
X-Git-Tag: emacs-21.1~154
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=07e91aa3ca3e0946d2171076a1b292dad7525fab;p=emacs.git

(Info-on-current-buffer): Default arg to "Top".
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e54a675c42e..aef03dd438b 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,10 +1,14 @@
+2001-09-26  Stefan Monnier  <monnier@cs.yale.edu>
+
+	* info.el (Info-on-current-buffer): Default arg to "Top".
+
 2001-09-25  Eli Barzilay  <eli@barzilay.org>
 
 	* calculator.el (calculator-copy-displayer): New user-option.
-	(calculator-displayer-prev, calculator-displayer-next): Renamed
-	from calculator-displayed-{left,right}.
-	(calculator, calculator-standard-displayer) 
-	(calculator-num-to-string, calculator-update-display) 
+	(calculator-displayer-prev, calculator-displayer-next):
+	Renamed from calculator-displayed-{left,right}.
+	(calculator, calculator-standard-displayer)
+	(calculator-num-to-string, calculator-update-display)
 	(calculator-copy, calculator-put-value): Bug and display fixes.
 
 2001-09-24  Vinicius Jose Latorre  <vinicius@cpqd.com.br>
diff --git a/lisp/info.el b/lisp/info.el
index 6fbe187fcef..c6fe420a1eb 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -508,12 +508,12 @@ it says do not attempt further (recursive) error recovery."
 (defun Info-on-current-buffer (&optional nodename)
   "Use the `Info-mode' to browse the current info buffer.
 If a prefix arg is provided, it queries for the NODENAME which
-else defaults to `Top'."
+else defaults to \"Top\"."
   (interactive
    (list (if current-prefix-arg
 	     (completing-read "Node name: " (Info-build-node-completions)
-			      nil t "Top")
-	   "Top")))
+			      nil t "Top"))))
+  (unless nodename (setq nodename "Top"))
   (info-initialize)
   (Info-mode)
   (set (make-local-variable 'Info-current-file) t)