From: Dan Nicolaescu <dann@ics.uci.edu>
Date: Wed, 19 Nov 2008 13:25:43 +0000 (+0000)
Subject: (project-settings-file): Remove.
X-Git-Tag: emacs-pretest-23.0.90~1692
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=35f0d8ce8f2c9fba86a00f889ccb4fc5bc489748;p=emacs.git

(project-settings-file): Remove.
(project-find-settings-file): Undo previous change that added the
use of project-settings-file.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a13050b45da..949271cfec9 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2008-11-19  Dan Nicolaescu  <dann@ics.uci.edu>
+
+	* files.el (project-settings-file): Remove.
+	(project-find-settings-file): Undo previous change that added the
+	use of project-settings-file.
+
 2008-11-19  Glenn Morris  <rgm@gnu.org>
 
 	* proced.el (proced, proced-format-time): Doc fixes.
diff --git a/lisp/files.el b/lisp/files.el
index 5ed3ffae29a..347f9563d06 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -3208,14 +3208,6 @@ LIST.  The list is processed in order.
 	(setcdr elt settings)
       (push (cons class settings) project-class-alist))))
 
-(defcustom project-settings-file ".dir-settings.el"
-  "Settings file for per-project settings.
-Set this to nil if you don't want to load project-specific settings."
-  :type '(choice
-	  (const :tag "Ignore" nil)
-	  (file :tag "File"))
-  :group 'files)
-
 (defun project-find-settings-file (file)
   "Find the settings file for FILE.
 This searches upward in the directory tree.
@@ -3223,23 +3215,22 @@ If a settings file is found, the file name is returned.
 If the file is in a registered project, a cons from
 `project-directory-alist' is returned.
 Otherwise this returns nil."
-  (when project-settings-file
-    (setq file (expand-file-name file))
-    (let ((settings (locate-dominating-file file project-settings-file))
-	  (pda nil))
-      ;; `locate-dominating-file' may have abbreviated the name.
-      (when 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))
-		   (> (length (car x)) (length (car pda))))
-	  (setq pda x)))
-      (if (and settings pda)
-	  (if (> (length (file-name-directory settings))
-		 (length (car pda)))
-	      settings pda)
-	(or settings pda)))))
+  (setq file (expand-file-name file))
+  (let ((settings (locate-dominating-file file ".dir-settings.el"))
+	(pda nil))
+    ;; `locate-dominating-file' may have abbreviated the name.
+    (when settings
+      (setq settings (expand-file-name ".dir-settings.el" settings)))
+    (dolist (x project-directory-alist)
+      (when (and (eq t (compare-strings file nil (length (car x))
+					(car x) nil nil))
+		 (> (length (car x)) (length (car pda))))
+	(setq pda x)))
+    (if (and settings pda)
+	(if (> (length (file-name-directory settings))
+	       (length (car pda)))
+	    settings pda)
+      (or settings pda))))
 
 (defun project-define-from-project-file (settings-file)
   "Load a settings file and register a new project class and instance.