# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1001518848 0
# Node ID a7adbd38c82a4f595c64bd3ac3a4741497249ff3
# Parent  30f1175b2a9f385a29ef9a20dafa5933adc8773e
(Info-on-current-buffer): Default arg to "Top".

diff -r 30f1175b2a9f -r a7adbd38c82a lisp/info.el
--- a/lisp/info.el	Wed Sep 26 15:30:07 2001 +0000
+++ b/lisp/info.el	Wed Sep 26 15:40:48 2001 +0000
@@ -508,12 +508,12 @@
 (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)