Mercurial > hg > xemacs-beta

comparison lisp/setup-paths.el @ 4154:09c3d30b5d4e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2007-08-30 07:32:34 by michaels] 2007-08-29 Mike Sperber <mike@xemacs.org> * setup-paths.el (paths-emacs-data-root-p): Use "share" instead of "lib" as the subdirectory to look for when testing for a data root.
author michaels
date Thu, 30 Aug 2007 07:32:36 +0000
parents 5da4cc7d5968
children 9c6ea1581159
comparison
equal deleted inserted replaced
4153:6973e093955e 4154:09c3d30b5d4e
95 This serves as an additional filter to narrow down the list of plausible 95 This serves as an additional filter to narrow down the list of plausible
96 installation roots." 96 installation roots."
97 (or 97 (or
98 ;; installed 98 ;; installed
99 (paths-file-readable-directory-p (paths-construct-path (list directory 99 (paths-file-readable-directory-p (paths-construct-path (list directory
100 "lib" 100 "share"
101 emacs-program-name))) 101 emacs-program-name)))
102 (paths-file-readable-directory-p (paths-construct-path (list directory 102 (paths-file-readable-directory-p (paths-construct-path (list directory
103 "lib" 103 "share"
104 (construct-emacs-version-name)))) 104 (construct-emacs-version-name))))
105 ;; in-place or windows-nt 105 ;; in-place or windows-nt
106 (and 106 (and
107 (paths-file-readable-directory-p (paths-construct-path (list directory "lisp"))) 107 (paths-file-readable-directory-p (paths-construct-path (list directory "lisp")))
108 (paths-file-readable-directory-p (paths-construct-path (list directory "etc")))) 108 (paths-file-readable-directory-p (paths-construct-path (list directory "etc"))))