changeset 24133:6ecfb6510c3b

(Info-default-directory-list): Perhaps add /usr/info.
author Richard M. Stallman <rms@gnu.org>
date Wed, 20 Jan 1999 03:24:48 +0000
parents 598274a2398f
children 9fd3f3cc78c1
files lisp/paths.el
diffstat 1 files changed, 16 insertions(+), 10 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/paths.el	Tue Jan 19 22:27:59 1999 +0000
+++ b/lisp/paths.el	Wed Jan 20 03:24:48 1999 +0000
@@ -33,16 +33,22 @@
 ;;; Code:
 
 (defvar Info-default-directory-list
-  (let ((start (list "/usr/local/lib/info/"
-		     ;; This comes second so that, if it is the same
-		     ;; as configure-info-directory (which is usually true)
-		     ;; and Emacs has been installed (also usually true)
-		     ;; then the list will end with two copies of this;
-		     ;; which means that the last dir file Info-insert-dir
-		     ;; finds will be the one in this directory.
-		     "/usr/local/info/"))
-	(configdir (file-name-as-directory configure-info-directory)))
-    (setq start (nconc start (list configdir)))
+  (let* ((start (list "/usr/local/lib/info/"
+		      ;; This comes second so that, if it is the same
+		      ;; as configure-info-directory (which is usually true)
+		      ;; and Emacs has been installed (also usually true)
+		      ;; then the list will end with two copies of this;
+		      ;; which means that the last dir file Info-insert-dir
+		      ;; finds will be the one in this directory.
+		      "/usr/local/info/"))
+	 ;; Typically on a GNU system, installed info files are found
+	 ;; in /usr/info, but the default prefix is /usr/local.
+	 (usrdir "/usr/info")
+	 (sysdir (and (file-directory-p usrdir)
+		      (not (string= configure-info-directory usrdir))
+		      (list usrdir)))
+	 (configdir (file-name-as-directory configure-info-directory)))
+    (setq start (nconc sysdir start (list configdir)))
     start)
   "Default list of directories to search for Info documentation files.
 They are searched in the order they are given in the list.