Commit 360a1349 authored by Michael Olson's avatar Michael Olson
Browse files

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

parent 40a69fac
...@@ -3127,8 +3127,8 @@ Otherwise this returns nil." ...@@ -3127,8 +3127,8 @@ Otherwise this returns nil."
((setq result (assoc dir project-directory-alist)) ((setq result (assoc dir project-directory-alist))
;; Nothing else. ;; Nothing else.
nil) 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 (t
(setq dir (file-name-directory (directory-file-name dir)))))) (setq dir (file-name-directory (directory-file-name dir))))))
result)) result))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment