# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 738804761 0
# Node ID 4fd13e6109e316e56331062bc8165d17ed4fab42
# Parent  c9443f73d32975f9feb03528d79ddd9ba381c13b
(Info-mode-map): Correct Info-top to Info-top-node.

diff -r c9443f73d329 -r 4fd13e6109e3 lisp/info.el
--- a/lisp/info.el	Sun May 30 23:24:09 1993 +0000
+++ b/lisp/info.el	Sun May 30 23:32:41 1993 +0000
@@ -47,7 +47,18 @@
 This value is used as the default for `Info-directory-list'.  It is set
 in paths.el.")
 
-(defvar Info-directory-list nil
+(defvar Info-directory-list
+  (let ((path (getenv "INFOPATH")))
+    (if path
+	(let ((list nil)
+	      idx)
+	  (while (> (length path) 0)
+	    (setq idx (or (string-match ":" path) (length path))
+		  list (cons (substring path 0 idx) list)
+		  path (substring path (min (1+ idx)
+					    (length path)))))
+	  (nreverse list))
+      Info-default-directory-list))
   "List of directories to search for Info documentation files.
 nil means not yet initialized.  In this case, Info uses the environment
 variable INFOPATH to initialize it, or `Info-default-directory-list'
@@ -112,19 +123,6 @@
 to read a file name from the minibuffer."
   (interactive (if current-prefix-arg
 		   (list (read-file-name "Info file name: " nil nil t))))
-  (or Info-directory-list
-      (setq Info-directory-list
-	    (let ((path (getenv "INFOPATH")))
-	      (if path
-		  (let ((list nil)
-			idx)
-		    (while (> (length path) 0)
-		      (setq idx (or (string-match ":" path) (length path))
-			    list (cons (substring path 0 idx) list)
-			    path (substring path (min (1+ idx)
-						      (length path)))))
-		    (nreverse list))
-		Info-default-directory-list))))
   (if file
       (Info-goto-node (concat "(" file ")"))
     (if (get-buffer "*info*")