# 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))