Mercurial > emacs

changeset 95119:f4fdf58a1cea

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
files.el (project-find-settings-file): Change concat to expand-file-name.
author Michael Olson <mwolson@gnu.org>
date Tue, 20 May 2008 03:15:16 +0000
parents d426dda989b7
children 7aa8b57db77c
files lisp/files.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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))