comparison lisp/setup-paths.el @ 357:4711e16a8e49 r21-1-8

Import from CVS: tag r21-1-8
author cvs
date Mon, 13 Aug 2007 10:57:04 +0200
parents 182f72e8cd0d
children cc15677e0335
comparison
equal deleted inserted replaced
356:e85f639a32f3 357:4711e16a8e49
124 (t 124 (t
125 (expand-file-name "!!!SuperLock!!!" lock-directory)))) 125 (expand-file-name "!!!SuperLock!!!" lock-directory))))
126 126
127 (defun paths-find-exec-directory (roots) 127 (defun paths-find-exec-directory (roots)
128 "Find the binary directory." 128 "Find the binary directory."
129 (paths-find-architecture-directory roots "lib-src" configure-exec-directory)) 129 (paths-find-architecture-directory roots "lib-src" nil configure-exec-directory))
130 130
131 (defun paths-construct-exec-path (roots exec-directory 131 (defun paths-construct-exec-path (roots exec-directory
132 early-packages late-packages last-packages) 132 early-packages late-packages last-packages)
133 "Find the binary path." 133 "Find the binary path."
134 (append 134 (append