From: Chong Yidong <cyd@stupidchicken.com>
Date: Sun, 25 Mar 2007 17:52:31 +0000 (+0000)
Subject: (compilation-start): Save compilation-directory rather than
X-Git-Tag: emacs-pretest-22.0.97~185
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=98d4c36f4c50b6d641a4d4f770a47e7fb2347d5b;p=emacs.git

(compilation-start): Save compilation-directory rather than
default-directory as local var.
(compilation-directory): Mark as safe local var.
---

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index aa77caf0670..62bb276feeb 100644
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -391,6 +391,7 @@ be added."
 		    ,(expand-file-name "compilation.txt" data-directory))
   :group 'compilation)
 
+;;;###autoload(put 'compilation-directory 'safe-local-variable 'stringp)
 (defvar compilation-directory nil
   "Directory to restore to when doing `recompile'.")
 
@@ -1041,7 +1042,7 @@ Returns the compilation buffer created."
 		 highlight-regexp))
 	;; Output a mode setter, for saving and later reloading this buffer.
 	(insert "-*- mode: " name-of-mode
-		"; default-directory: " (prin1-to-string default-directory)
+		"; compilation-directory: " (prin1-to-string compilation-directory)
 		" -*-\n"
 		(format "%s started at %s\n\n"
 			mode-name