# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 738609827 0
# Node ID 4a1a003ded62734bf2dc597cdd5913240e9d2b21
# Parent  3176c6395ada825a796c9cb65d9a6296432de6a3
(Info-default-directory-list): Take out ../../info.
Avoid duplication.

diff -r 3176c6395ada -r 4a1a003ded62 lisp/paths.el
--- a/lisp/paths.el	Fri May 28 16:40:28 1993 +0000
+++ b/lisp/paths.el	Fri May 28 17:23:47 1993 +0000
@@ -32,11 +32,16 @@
 ;;; Code:
 
 (defvar Info-default-directory-list
-  (list "/usr/local/info/"
-	"/usr/local/lib/info/"
-	configure-info-directory
-	(expand-file-name "../info/" data-directory)
-	(expand-file-name "../../info/" data-directory))
+  (let ((start (list "/usr/local/info/"
+		     "/usr/local/lib/info/"
+		     configure-info-directory)))
+    (or (member configure-info-directory start)
+	(setq start (nconc start (list configure-info-directory))))
+    (or (member (expand-file-name "../info/" data-directory) start)
+	(setq start
+	      (nconc start
+		     (list (expand-file-name "../info/" data-directory)))))
+    start)
   "List of directories to search for Info documentation files.")
 
 (defvar news-path "/usr/spool/news/"