files.el (project-find-settings-file): Change concat to expand-file-name.

360a1349 · Michael Olson · 40a69fac · 360a1349
Commit 360a1349 authored May 20, 2008 by Michael Olson
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 2 deletions

lisp/files.el lisp/files.el +2 -2

No files found.
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -3127,8 +3127,8 @@ Otherwise this returns nil."
       ((setq result (assoc dir project-directory-alist))
 	;; Nothing else.
 	nil)
-       ((file-exists-p (concat dir ".dir-settings.el"))
+       ((file-exists-p (expand-file-name ".dir-settings.el" dir))
-	(setq result (concat dir ".dir-settings.el")))
+	(setq result (expand-file-name ".dir-settings.el" dir)))
       (t
 	(setq dir (file-name-directory (directory-file-name dir))))))
    result))