# HG changeset patch
# User Michael Olson <mwolson@gnu.org>
# Date 1211253316 0
# Node ID f4fdf58a1cea07642d6563c4baefae1c04019a85
# Parent  d426dda989b7b7c35eb1acddcb8d3a3253b96d1e
files.el (project-find-settings-file): Change concat to expand-file-name.

diff -r d426dda989b7 -r f4fdf58a1cea lisp/files.el
--- a/lisp/files.el	Tue May 20 00:13:37 2008 +0000
+++ b/lisp/files.el	Tue May 20 03:15:16 2008 +0000
@@ -3127,8 +3127,8 @@
        ((setq result (assoc dir project-directory-alist))
 	;; Nothing else.
 	nil)
-       ((file-exists-p (concat dir ".dir-settings.el"))
-	(setq result (concat dir ".dir-settings.el")))
+       ((file-exists-p (expand-file-name ".dir-settings.el" dir))
+	(setq result (expand-file-name ".dir-settings.el" dir)))
        (t
 	(setq dir (file-name-directory (directory-file-name dir))))))
     result))