Mercurial > hg > xemacs-beta

comparison lisp/setup-paths.el @ 284:558f606b08ae r21-0b40

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b40
author cvs
date Mon, 13 Aug 2007 10:34:13 +0200
parents 90d73dddcdc4
children 33bdb3d4b97f
comparison
equal deleted inserted replaced
283:fa3d41851a08 284:558f606b08ae
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") path-separator) 45 (list (paths-construct-path '("usr" "local" "info")
46 (paths-construct-path '("usr" "info") path-separator)) 46 (char-to-string directory-sep-char))
47 (paths-construct-path '("usr" "info")
48 (char-to-string directory-sep-char)))
47 "Directories appended to the end of the info path by default.") 49 "Directories appended to the end of the info path by default.")
48 50
49 (defun paths-find-site-lisp-directory (roots) 51 (defun paths-find-site-lisp-directory (roots)
50 "Find the site Lisp directory of the XEmacs hierarchy." 52 "Find the site Lisp directory of the XEmacs hierarchy."
51 (paths-find-site-directory roots "site-lisp" 53 (paths-find-site-directory roots "site-lisp"
136 (packages-find-package-exec-path early-packages) 138 (packages-find-package-exec-path early-packages)
137 (packages-find-package-exec-path late-packages) 139 (packages-find-package-exec-path late-packages)
138 (packages-find-package-exec-path last-packages) 140 (packages-find-package-exec-path last-packages)
139 (let ((emacspath-envval (getenv "EMACSPATH"))) 141 (let ((emacspath-envval (getenv "EMACSPATH")))
140 (and emacspath-envval 142 (and emacspath-envval
141 (decode-path-internal emacspath-envval))) 143 (split-path emacspath-envval)))
142 (and exec-directory 144 (and exec-directory
143 (list exec-directory)))) 145 (list exec-directory))))
144 146
145 (defun paths-find-data-directory (roots) 147 (defun paths-find-data-directory (roots)
146 "Find the data directory." 148 "Find the data directory."