comparison lisp/find-paths.el @ 269:b2472a1930f2 r20-5b33

Import from CVS: tag r20-5b33
author cvs
date Mon, 13 Aug 2007 10:27:19 +0200
parents 966663fcf606
children c5d627a313b1
comparison
equal deleted inserted replaced
268:6ced69ccd85f 269:b2472a1930f2
155 "Find an architecture-specific directory in the XEmacs hierarchy." 155 "Find an architecture-specific directory in the XEmacs hierarchy."
156 (or 156 (or
157 ;; from more to less specific 157 ;; from more to less specific
158 (paths-find-version-directory roots 158 (paths-find-version-directory roots
159 (concat base system-configuration) 159 (concat base system-configuration)
160 envvar default) 160 envvar)
161 (paths-find-version-directory roots
162 base
163 envvar)
161 (paths-find-version-directory roots 164 (paths-find-version-directory roots
162 system-configuration 165 system-configuration
163 envvar default)
164 (paths-find-version-directory roots
165 base
166 envvar default))) 166 envvar default)))
167 167
168 (defvar paths-path-emacs-version nil 168 (defvar paths-path-emacs-version nil
169 "Emacs version as it appears in paths.") 169 "Emacs version as it appears in paths.")
170 170