Mercurial > emacs

changeset 25145:784d7bc2a991

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(info-initialize): New function. (info): Call info-initialize. (Info-directory-list): Initialize to nil, so info-initialize will set it up for real.
author Richard M. Stallman <rms@gnu.org>
date Sun, 01 Aug 1999 12:17:46 +0000
parents edfd929009d5
children 1fa062857a8d
files lisp/info.el
diffstat 1 files changed, 38 insertions(+), 30 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/info.el	Sun Aug 01 10:20:43 1999 +0000
+++ b/lisp/info.el	Sun Aug 01 12:17:46 1999 +0000
@@ -78,34 +78,7 @@
   :type 'integer
   :group 'info)
 
-(defvar Info-directory-list
-  (let ((path (getenv "INFOPATH"))
-	(source (expand-file-name "info/" source-directory))
-	(sibling (if installation-directory
-		     (expand-file-name "info/" installation-directory)))
-	alternative)
-    (if path
-	(split-string path (regexp-quote path-separator))
-      (if (and sibling (file-exists-p sibling))
-	  (setq alternative sibling)	; uninstalled, Emacs builddir != srcdir
-	(setq alternative source))	; uninstalled, builddir != srcdir
-      (if (or (member alternative Info-default-directory-list)
-	      (not (file-exists-p alternative))
-	      ;; On DOS/NT, we use movable executables always,
-	      ;; and we must always find the Info dir at run time.
-	      (if (or (eq system-type 'ms-dos) (eq system-type 'windows-nt))
-		  nil
-		;; Use invocation-directory for Info only if we used it for
-		;; exec-directory also.
-		(not (string= exec-directory
-			      (expand-file-name "lib-src/"
-						installation-directory)))))
-	  Info-default-directory-list
-	;; `alternative' contains the Info files that came with this
-	;; version, so we should look there first.  `Info-insert-dir'
-	;; currently expects to find `alternative' first on the list.
-	(cons alternative
-	      (reverse (cdr (reverse Info-default-directory-list)))))))
+(defvar Info-directory-list nil
   "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'
@@ -151,7 +124,7 @@
 
 (defvar Info-standalone nil
   "Non-nil if Emacs was started solely as an Info browser.")
-
+
 (defvar Info-suffix-list
   ;; The MS-DOS list should work both when long file names are
   ;; supported (Windows 9X), and when only 8+3 file names are available.
@@ -265,6 +238,40 @@
 				       default-directory)))
 	    (call-process-region (point-min) (point-max) decoder t t)))
       (insert-file-contents fullname visit))))
+
+;; Initialize Info-directory-list, if that hasn't been done yet.
+(defun info-initialize ()
+  (unless Info-directory-list
+    (let ((path (getenv "INFOPATH"))
+	  (source (expand-file-name "info/" source-directory))
+	  (sibling (if installation-directory
+		       (expand-file-name "info/" installation-directory)))
+	  alternative)
+      (setq Info-directory-list
+	    (if path
+		(split-string path (regexp-quote path-separator))
+	      (if (and sibling (file-exists-p sibling))
+		  ;; Uninstalled, Emacs builddir != srcdir.
+		  (setq alternative sibling)
+		;; Uninstalled, builddir == srcdir
+		(setq alternative source))
+	      (if (or (member alternative Info-default-directory-list)
+		      (not (file-exists-p alternative))
+		      ;; On DOS/NT, we use movable executables always,
+		      ;; and we must always find the Info dir at run time.
+		      (if (memq system-type '(ms-dos windows-nt))
+			  nil
+			;; Use invocation-directory for Info
+			;; only if we used it for exec-directory also.
+			(not (string= exec-directory
+				      (expand-file-name "lib-src/"
+							installation-directory)))))
+		  Info-default-directory-list
+		;; `alternative' contains the Info files that came with this
+		;; version, so we should look there first.  `Info-insert-dir'
+		;; currently expects to find `alternative' first on the list.
+		(cons alternative
+		      (reverse (cdr (reverse Info-default-directory-list))))))))))
 
 ;;;###autoload
 (defun info-other-window (&optional file)
@@ -290,6 +297,7 @@
 in all the directories in that path."
   (interactive (if current-prefix-arg
 		   (list (read-file-name "Info file name: " nil nil t))))
+  (info-initialize)
   (if file
       (progn
 	(pop-to-buffer "*info*")
@@ -321,7 +329,7 @@
 				   (nth 1 err) err)))
 	       (save-buffers-kill-emacs)))
     (info)))
-
+
 ;; See if the the accessible portion of the buffer begins with a node
 ;; delimiter, and the node header line which follows matches REGEXP.
 ;; Typically, this test will be followed by a loop that examines the