Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
297:deca3c1083ac 298:70ad99077275
98 (or 98 (or
99 ;; installed 99 ;; installed
100 (file-directory-p (paths-construct-path (list directory 100 (file-directory-p (paths-construct-path (list directory
101 "lib" 101 "lib"
102 emacs-program-name))) 102 emacs-program-name)))
103 ;; in-place 103 ;; in-place or windows-nt
104 (and 104 (and
105 (file-directory-p (paths-construct-path (list directory "lib-src")))
106 (file-directory-p (paths-construct-path (list directory "lisp"))) 105 (file-directory-p (paths-construct-path (list directory "lisp")))
107 (file-directory-p (paths-construct-path (list directory "src")))))) 106 (file-directory-p (paths-construct-path (list directory "etc"))))))
108 107
109 (defun paths-chase-symlink (file-name) 108 (defun paths-chase-symlink (file-name)
110 "Chase a symlink until the bitter end." 109 "Chase a symlink until the bitter end."
111 (let ((maybe-symlink (file-symlink-p file-name))) 110 (let ((maybe-symlink (file-symlink-p file-name)))
112 (if maybe-symlink 111 (if maybe-symlink