comparison lisp/setup-paths.el @ 442:abe6d1db359e r21-2-36

Import from CVS: tag r21-2-36
author cvs
date Mon, 13 Aug 2007 11:35:02 +0200
parents 3ecd8885ac67
children 3d3049ae1304
comparison
equal deleted inserted replaced
441:72a7cfa4a488 442:abe6d1db359e
141 141
142 (defun paths-find-doc-directory (roots) 142 (defun paths-find-doc-directory (roots)
143 "Find the documentation directory." 143 "Find the documentation directory."
144 (paths-find-architecture-directory roots "lib-src" nil configure-doc-directory)) 144 (paths-find-architecture-directory roots "lib-src" nil configure-doc-directory))
145 145
146 (defun paths-find-lock-directory (roots)
147 "Find the lock directory."
148 (defvar configure-lock-directory)
149 (paths-find-site-directory roots "lock" "EMACSLOCKDIR" configure-lock-directory))
150
151 (defun paths-find-superlock-file (lock-directory)
152 "Find the superlock file."
153 ;; #### There is no such variable configure-superlock-file!
154 (cond
155 ((null lock-directory)
156 nil)
157 ((and configure-superlock-file
158 (file-directory-p (file-name-directory configure-superlock-file)))
159 configure-superlock-file)
160 (t
161 (expand-file-name "!!!SuperLock!!!" lock-directory))))
162
163 (defun paths-find-exec-directory (roots) 146 (defun paths-find-exec-directory (roots)
164 "Find the binary directory." 147 "Find the binary directory."
165 (paths-find-architecture-directory roots "lib-src" 148 (paths-find-architecture-directory roots "lib-src"
166 nil configure-exec-directory)) 149 nil configure-exec-directory))
167 150