Mercurial > hg > xemacs-beta

comparison lisp/find-paths.el @ 865:987c2a685f39

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2002-06-04 16:45:42 by michaels] 2002-06-04 Jerry James <james@eecs.ku.edu> * find-paths.el (paths-find-architecture-directory): Search in `system-configuration'/`base', not `base'`system-configuration'.
author michaels
date Tue, 04 Jun 2002 16:45:54 +0000
parents 79940b592197
children ceedb6eeaba8
comparison
equal deleted inserted replaced
864:5b3cf2203477 865:987c2a685f39
235 (defun paths-find-architecture-directory (roots base &optional envvar default) 235 (defun paths-find-architecture-directory (roots base &optional envvar default)
236 "Find an architecture-specific directory in the XEmacs hierarchy." 236 "Find an architecture-specific directory in the XEmacs hierarchy."
237 (or 237 (or
238 ;; from more to less specific 238 ;; from more to less specific
239 (paths-find-version-directory roots 239 (paths-find-version-directory roots
240 (concat base system-configuration) 240 (paths-construct-path
241 (list system-configuration base))
241 envvar default) 242 envvar default)
242 (paths-find-version-directory roots 243 (paths-find-version-directory roots
243 base 244 base
244 envvar) 245 envvar)
245 (paths-find-version-directory roots 246 (paths-find-version-directory roots