Mercurial > hg > xemacs-beta

comparison lisp/find-paths.el @ 272:c5d627a313b1 r21-0b34

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b34
author cvs
date Mon, 13 Aug 2007 10:28:48 +0200
parents b2472a1930f2
children ca9a9ec9c1c1
comparison
equal deleted inserted replaced
271:c7b7086b0a39 272:c5d627a313b1
72 72
73 (defun paths-emacs-root-p (directory) 73 (defun paths-emacs-root-p (directory)
74 "Check if DIRECTORY is a plausible installation root for XEmacs." 74 "Check if DIRECTORY is a plausible installation root for XEmacs."
75 (or 75 (or
76 ;; installed 76 ;; installed
77 (file-directory-p 77 (file-directory-p (concat directory "lib/xemacs"))
78 (concat directory "lib/xemacs-" (construct-emacs-version)))
79 ;; in-place 78 ;; in-place
80 (and 79 (and
81 (file-directory-p (concat directory "lib-src")) 80 (file-directory-p (concat directory "lib-src"))
82 (file-directory-p (concat directory "lisp")) 81 (file-directory-p (concat directory "lisp"))
83 (file-directory-p (concat directory "src"))))) 82 (file-directory-p (concat directory "src")))))
96 maybe-root-2) 95 maybe-root-2)
97 (t 96 (t
98 (let ((maybe-symlink (file-symlink-p (concat invocation-directory 97 (let ((maybe-symlink (file-symlink-p (concat invocation-directory
99 invocation-name)))) 98 invocation-name))))
100 (if maybe-symlink 99 (if maybe-symlink
101 (let ((directory (file-name-directory maybe-symlink))) 100 (let* ((symlink (expand-file-name maybe-symlink invocation-directory))
101 (directory (file-name-directory symlink)))
102 (paths-find-emacs-root directory invocation-name)) 102 (paths-find-emacs-root directory invocation-name))
103 nil)))))) 103 nil))))))
104 104
105 (defun paths-construct-emacs-directory (root suffix base) 105 (defun paths-construct-emacs-directory (root suffix base)
106 "Construct a directory name within the XEmacs hierarchy." 106 "Construct a directory name within the XEmacs hierarchy."
228 invocation-name) 228 invocation-name)
229 "Find all plausible installation roots for XEmacs." 229 "Find all plausible installation roots for XEmacs."
230 (let ((invocation-root 230 (let ((invocation-root
231 (paths-find-emacs-root invocation-directory invocation-name)) 231 (paths-find-emacs-root invocation-directory invocation-name))
232 (installation-root 232 (installation-root
233 (if (and configure-prefix-directory 233 (and configure-prefix-directory
234 (file-directory-p configure-prefix-directory)) 234 (file-directory-p configure-prefix-directory)
235 configure-prefix-directory))) 235 (file-name-as-directory configure-prefix-directory))))
236 (append (and invocation-root 236 (append (and invocation-root
237 (list invocation-root)) 237 (list invocation-root))
238 (and installation-root 238 (and installation-root
239 (paths-emacs-root-p installation-root)
239 (list installation-root))))) 240 (list installation-root)))))
240 241
241 ;;; find-paths.el ends here 242 ;;; find-paths.el ends here