# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1226595893 0
# Node ID 570afde3c5a341b2aafdc567f03e762453d204be
# Parent  53e1b713e51f8d37d417ca9669156bf2232c5346
(project-find-settings-file): Fix last change.

diff -r 53e1b713e51f -r 570afde3c5a3 lisp/files.el
--- a/lisp/files.el	Thu Nov 13 16:01:47 2008 +0000
+++ b/lisp/files.el	Thu Nov 13 17:04:53 2008 +0000
@@ -3222,7 +3222,8 @@
     (let* ((settings (locate-dominating-file file project-settings-file))
 	   (pda nil))
       ;; `locate-dominating-file' may have abbreviated the name.
-      (if settings (setq settings (expand-file-name ".dir-settings.el" settings)))
+      (if settings
+	  (setq settings (expand-file-name project-settings-file settings)))
       (dolist (x project-directory-alist)
 	(when (and (eq t (compare-strings file nil (length (car x))
 					  (car x) nil nil))