# HG changeset patch
# User michaels
# Date 1170688758 0
# Node ID ccceded4ee72d999fb4ca19bd90b39bd5f007d4e
# Parent  e4ef31254734a51cb09fb4b476b653f6b90ed0fb
[xemacs-hg @ 2007-02-05 15:19:17 by michaels]
2007-01-27  Mike Sperber  <mike@xemacs.org>

	* setup-paths.el (paths-module-load-path-depth): Add.
	* setup-paths.el (paths-construct-module-load-path): For
	`module-load-path', use `paths-module-load-path-depth', not
	`paths-core-load-path-depth'.

diff -r e4ef31254734 -r ccceded4ee72 lisp/ChangeLog
--- a/lisp/ChangeLog	Sun Feb 04 22:51:09 2007 +0000
+++ b/lisp/ChangeLog	Mon Feb 05 15:19:18 2007 +0000
@@ -1,3 +1,10 @@
+2007-01-27  Mike Sperber  <mike@xemacs.org>
+
+	* setup-paths.el (paths-module-load-path-depth): Add.
+	* setup-paths.el (paths-construct-module-load-path): For
+	`module-load-path', use `paths-module-load-path-depth', not
+	`paths-core-load-path-depth'.
+
 2006-12-30  Aidan Kehoe  <kehoea@parhasard.net>
 
 	* mule/cyrillic.el ("Cyrillic-ISO"):
diff -r e4ef31254734 -r ccceded4ee72 lisp/setup-paths.el
--- a/lisp/setup-paths.el	Sun Feb 04 22:51:09 2007 +0000
+++ b/lisp/setup-paths.el	Mon Feb 05 15:19:18 2007 +0000
@@ -55,6 +55,9 @@
 (defvar paths-mule-load-path-depth 0
   "Depth of load-path searches in Mule Lisp paths.")
 
+(defvar paths-module-load-path-depth 1
+  "Depth of load-path searches in module paths.")
+
 (defvar paths-default-info-directories
   (mapcar (function
 	   (lambda (dirlist)
@@ -243,7 +246,7 @@
 	 (module-load-path
 	  (and module-directory
 	       (paths-find-recursive-load-path (list module-directory)
-					       paths-core-load-path-depth))))
+					       paths-module-load-path-depth))))
     (append env-module-path
 	    site-module-load-path
 	    module-load-path)))