Mercurial > hg > xemacs-beta

diff lisp/find-paths.el @ 298:70ad99077275 r21-0b47

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b47
author cvs
date Mon, 13 Aug 2007 10:39:40 +0200
parents 57709be46d1b
children 33bdb3d4b97f
line wrap: on
line diff
--- a/lisp/find-paths.el	Mon Aug 13 10:38:47 2007 +0200
+++ b/lisp/find-paths.el	Mon Aug 13 10:39:40 2007 +0200
@@ -100,11 +100,10 @@
    (file-directory-p (paths-construct-path (list directory
 						 "lib"
 						 emacs-program-name)))
-   ;; in-place
+   ;; in-place or windows-nt
    (and 
-    (file-directory-p (paths-construct-path (list directory "lib-src")))
     (file-directory-p (paths-construct-path (list directory "lisp")))
-    (file-directory-p (paths-construct-path (list directory "src"))))))
+    (file-directory-p (paths-construct-path (list directory "etc"))))))
 
 (defun paths-chase-symlink (file-name)
   "Chase a symlink until the bitter end."