Well, the fix I posted yesterday does really work for all cases. The similar problem
is still there when the prj.el file is already there.
Here is yet another modified version of the function I posted before. Hope this
*really* works this time.
(defun jde-find-project-file (dir)
"Finds the next project file upwards in the directory tree
from DIR. Returns nil if it cannot find a project file in DIR
or an ascendant directory."
(let ((directory-sep-char ?/) ;; Override NT/XEmacs setting
(file (find jde-project-file-name
(directory-files dir) :test 'string=)))
(if file
(let ((directory-sep-char ?/)) ;; Ping's fix
(if (eq system-type 'windows-nt) ;; Ping's fix
(setq directory-sep-char ?\\)) ;; Ping's fix
(expand-file-name file dir))
(if (not (jde-root-dir-p dir))
(jde-find-project-file (expand-file-name "../" dir))))))
All other details please refer to my earlier posting for details. Sorry I could not
post this in that earlier thread before I didn't receive that email.
--
__________________________________________________________________
Your favorite stores, helpful shopping tools and great gift ideas. Experience the
convenience of buying online with Shop@Netscape! http://shopnow.netscape.com/
Get your own FREE, personal Netscape Mail account today at http://webmail.netscape.com/
