Mercurial > hg > xemacs-beta

comparison lisp/setup-paths.el @ 1526:8b284a83dd90

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2003-06-13 00:11:16 by adrian] xemacs-21.5: Fix xemacs.exe is in a strange place? on 'windows-nt -------------------- ChangeLog entries follow: -------------------- lisp/ChangeLog addition: 2003-06-13 Adrian Aichner <adrian@xemacs.org> * setup-paths.el (paths-emacs-root-p): Don't insist in lib-src directory on 'windows-nt, which currently does not have it.
author adrian
date Fri, 13 Jun 2003 00:11:16 +0000
parents 4542b72c005e
children f4e405a9d18d
comparison
equal deleted inserted replaced
1525:a014bbc989c9 1526:8b284a83dd90
121 ;; in-place or windows-nt. windows-nt equivalent of --srcdir is 121 ;; in-place or windows-nt. windows-nt equivalent of --srcdir is
122 ;; BUILD_DIR in config.inc, and has no lisp/ or etc/ since symlinks 122 ;; BUILD_DIR in config.inc, and has no lisp/ or etc/ since symlinks
123 ;; don't exist. instead, xemacs.mak points configure-lisp-directory and 123 ;; don't exist. instead, xemacs.mak points configure-lisp-directory and
124 ;; configure-data-directory at the right places. 124 ;; configure-data-directory at the right places.
125 (and 125 (and
126 (or configure-exec-directory (paths-file-readable-directory-p (paths-construct-path (list directory "lib-src")))) 126 (or configure-exec-directory (paths-file-readable-directory-p (paths-construct-path (list directory "lib-src"))) (eq system-type 'windows-nt))
127 (or configure-lisp-directory (paths-file-readable-directory-p (paths-construct-path (list directory "lisp")))) 127 (or configure-lisp-directory (paths-file-readable-directory-p (paths-construct-path (list directory "lisp"))))
128 (or configure-data-directory (paths-file-readable-directory-p (paths-construct-path (list directory "etc"))))))) 128 (or configure-data-directory (paths-file-readable-directory-p (paths-construct-path (list directory "etc")))))))
129 129
130 (defun paths-emacs-data-root-p (directory) 130 (defun paths-emacs-data-root-p (directory)
131 "Check if DIRECTORY is a plausible data installation root. 131 "Check if DIRECTORY is a plausible data installation root.