Mercurial > hg > xemacs-beta

comparison lisp/find-paths.el @ 689:6a0eecc6df0e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2001-12-06 09:35:50 by michaels] 2001-12-05 Michael Sperber [Mr. Preprocessor] <sperber@informatik.uni-tuebingen.de> * packages.el (packages-compute-package-locations): Add user-specific site-packages and infodock-packages hierarchies for symmetry. * find-paths.el (paths-emacs-root-p): Use version-specific name for root testing.
author michaels
date Thu, 06 Dec 2001 09:35:50 +0000
parents 0493e9f3c27f
children 79940b592197
comparison
equal deleted inserted replaced
688:c9d38610941f 689:6a0eecc6df0e
102 "Check if DIRECTORY is a plausible installation root for XEmacs." 102 "Check if DIRECTORY is a plausible installation root for XEmacs."
103 (or 103 (or
104 ;; installed 104 ;; installed
105 (paths-file-readable-directory-p (paths-construct-path (list directory 105 (paths-file-readable-directory-p (paths-construct-path (list directory
106 "lib" 106 "lib"
107 emacs-program-name))) 107 (construct-emacs-version-name))))
108 ;; in-place or windows-nt 108 ;; in-place or windows-nt
109 (and 109 (and
110 (paths-file-readable-directory-p (paths-construct-path (list directory "lisp"))) 110 (paths-file-readable-directory-p (paths-construct-path (list directory "lisp")))
111 (paths-file-readable-directory-p (paths-construct-path (list directory "etc")))))) 111 (paths-file-readable-directory-p (paths-construct-path (list directory "etc"))))))
112 112