projects
/
chise
/
xemacs-chise.git-
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
(M083453): New character.
[chise/xemacs-chise.git-]
/
lisp
/
setup-paths.el
diff --git
a/lisp/setup-paths.el
b/lisp/setup-paths.el
index
f26dad8
..
d22ba46
100644
(file)
--- a/
lisp/setup-paths.el
+++ b/
lisp/setup-paths.el
@@
-38,9
+38,12
@@
\f
;;; Code:
\f
;;; Code:
-(defvar paths-load-path-depth 1
+(defvar paths-core-load-path-depth 1
"Depth of load-path searches in core Lisp paths.")
"Depth of load-path searches in core Lisp paths.")
+(defvar paths-site-load-path-depth 1
+ "Depth of load-path searches in site Lisp paths.")
+
(defvar paths-default-info-directories
(mapcar (function
(lambda (dirlist)
(defvar paths-default-info-directories
(mapcar (function
(lambda (dirlist)
@@
-87,11
+90,11
@@
(site-lisp-load-path
(and site-lisp-directory
(paths-find-recursive-load-path (list site-lisp-directory)
(site-lisp-load-path
(and site-lisp-directory
(paths-find-recursive-load-path (list site-lisp-directory)
- paths-load-path-depth)))
+ paths-site-load-path-depth)))
(lisp-load-path
(and lisp-directory
(paths-find-recursive-load-path (list lisp-directory)
(lisp-load-path
(and lisp-directory
(paths-find-recursive-load-path (list lisp-directory)
- paths-load-path-depth))))
+ paths-core-load-path-depth))))
(append env-load-path
early-package-load-path
site-lisp-load-path
(append env-load-path
early-package-load-path
site-lisp-load-path
@@
-109,11
+112,11
@@
(site-module-load-path
(and site-module-directory
(paths-find-recursive-load-path (list site-module-directory)
(site-module-load-path
(and site-module-directory
(paths-find-recursive-load-path (list site-module-directory)
- paths-load-path-depth)))
+ paths-site-load-path-depth)))
(module-load-path
(and module-directory
(paths-find-recursive-load-path (list module-directory)
(module-load-path
(and module-directory
(paths-find-recursive-load-path (list module-directory)
- paths-load-path-depth))))
+ paths-core-load-path-depth))))
(append env-module-path
site-module-load-path
module-load-path)))
(append env-module-path
site-module-load-path
module-load-path)))