Mercurial > hg > xemacs-beta
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 |