Mercurial > hg > xemacs-beta

comparison lisp/setup-paths.el @ 278:90d73dddcdc4 r21-0b37

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b37
author cvs
date Mon, 13 Aug 2007 10:31:29 +0200
parents 6330739388db
children 558f606b08ae
comparison
equal deleted inserted replaced
277:cfdf3ff11843 278:90d73dddcdc4
40 40
41 (defvar paths-load-path-depth 1 41 (defvar paths-load-path-depth 1
42 "Depth of load-path searches in core Lisp paths.") 42 "Depth of load-path searches in core Lisp paths.")
43 43
44 (defvar paths-default-info-directories 44 (defvar paths-default-info-directories
45 (list (paths-construct-path '("usr" "local" "info") 45 (list (paths-construct-path '("usr" "local" "info") path-separator)
46 (char-to-string directory-sep-char)) 46 (paths-construct-path '("usr" "info") path-separator))
47 (paths-construct-path '("usr" "info")
48 (char-to-string directory-sep-char)))
49 "Directories appended to the end of the info path by default.") 47 "Directories appended to the end of the info path by default.")
50 48
51 (defun paths-find-site-lisp-directory (roots) 49 (defun paths-find-site-lisp-directory (roots)
52 "Find the site Lisp directory of the XEmacs hierarchy." 50 "Find the site Lisp directory of the XEmacs hierarchy."
53 (paths-find-site-directory roots "site-lisp" 51 (paths-find-site-directory roots "site-lisp"
72 (site-lisp-load-path 70 (site-lisp-load-path
73 (and site-lisp-directory 71 (and site-lisp-directory
74 (paths-find-recursive-load-path (list site-lisp-directory) 72 (paths-find-recursive-load-path (list site-lisp-directory)
75 paths-load-path-depth))) 73 paths-load-path-depth)))
76 (lisp-load-path 74 (lisp-load-path
77 (paths-find-recursive-load-path (list lisp-directory) 75 (and lisp-directory
78 paths-load-path-depth))) 76 (paths-find-recursive-load-path (list lisp-directory)
77 paths-load-path-depth))))
79 (append env-load-path 78 (append env-load-path
80 early-package-load-path 79 early-package-load-path
81 site-lisp-load-path 80 site-lisp-load-path
82 late-package-load-path 81 late-package-load-path
83 lisp-load-path 82 lisp-load-path
97 (packages-find-package-info-path early-packages) 96 (packages-find-package-info-path early-packages)
98 (packages-find-package-info-path late-packages) 97 (packages-find-package-info-path late-packages)
99 (packages-find-package-info-path last-packages) 98 (packages-find-package-info-path last-packages)
100 (and info-path-envval 99 (and info-path-envval
101 (paths-decode-directory-path info-path-envval 'drop-empties))) 100 (paths-decode-directory-path info-path-envval 'drop-empties)))
102 (and (not info-path-envval) 101 (and (null info-path-envval)
103 (paths-uniq-append 102 (paths-uniq-append
104 (paths-directories-which-exist configure-info-path) 103 (paths-directories-which-exist configure-info-path)
105 (paths-directories-which-exist paths-default-info-directories)))))) 104 (paths-directories-which-exist paths-default-info-directories))))))
106 105
107 (defun paths-find-doc-directory (roots) 106 (defun paths-find-doc-directory (roots)