Mercurial > hg > xemacs-beta

comparison lisp/setup-paths.el @ 3813:ccceded4ee72

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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'.
author michaels
date Mon, 05 Feb 2007 15:19:18 +0000
parents 57711e9aac15
children 9c0151d05116
comparison
equal deleted inserted replaced
3812:e4ef31254734 3813:ccceded4ee72
52 (defvar paths-site-load-path-depth 1 52 (defvar paths-site-load-path-depth 1
53 "Depth of load-path searches in site Lisp paths.") 53 "Depth of load-path searches in site Lisp paths.")
54 54
55 (defvar paths-mule-load-path-depth 0 55 (defvar paths-mule-load-path-depth 0
56 "Depth of load-path searches in Mule Lisp paths.") 56 "Depth of load-path searches in Mule Lisp paths.")
57
58 (defvar paths-module-load-path-depth 1
59 "Depth of load-path searches in module paths.")
57 60
58 (defvar paths-default-info-directories 61 (defvar paths-default-info-directories
59 (mapcar (function 62 (mapcar (function
60 (lambda (dirlist) 63 (lambda (dirlist)
61 (paths-construct-path 64 (paths-construct-path
241 (paths-find-recursive-load-path (list site-module-directory) 244 (paths-find-recursive-load-path (list site-module-directory)
242 paths-site-load-path-depth))) 245 paths-site-load-path-depth)))
243 (module-load-path 246 (module-load-path
244 (and module-directory 247 (and module-directory
245 (paths-find-recursive-load-path (list module-directory) 248 (paths-find-recursive-load-path (list module-directory)
246 paths-core-load-path-depth)))) 249 paths-module-load-path-depth))))
247 (append env-module-path 250 (append env-module-path
248 site-module-load-path 251 site-module-load-path
249 module-load-path))) 252 module-load-path)))
250 253
251 (defun paths-construct-info-path (roots 254 (defun paths-construct-info-path (roots