Mercurial > hg > xemacs-beta

comparison lisp/find-paths.el @ 398:74fd4e045ea6 r21-2-29

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-29
author cvs
date Mon, 13 Aug 2007 11:13:30 +0200
parents 8626e4521993
children de805c49cfc1
comparison
equal deleted inserted replaced
397:f4aeb21a5bad 398:74fd4e045ea6
216 "Find an architecture-specific directory in the XEmacs hierarchy." 216 "Find an architecture-specific directory in the XEmacs hierarchy."
217 (or 217 (or
218 ;; from more to less specific 218 ;; from more to less specific
219 (paths-find-version-directory roots 219 (paths-find-version-directory roots
220 (concat base system-configuration) 220 (concat base system-configuration)
221 envvar) 221 envvar default)
222 (paths-find-version-directory roots 222 (paths-find-version-directory roots
223 base 223 base
224 envvar) 224 envvar)
225 (paths-find-version-directory roots 225 (paths-find-version-directory roots
226 system-configuration 226 system-configuration
227 envvar default))) 227 envvar)))
228 228
229 (defun construct-emacs-version-name () 229 (defun construct-emacs-version-name ()
230 "Construct the raw XEmacs version number." 230 "Construct the raw XEmacs version number."
231 (concat emacs-program-name "-" emacs-program-version)) 231 (concat emacs-program-name "-" emacs-program-version))
232 232