# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1174845151 0
# Node ID 712ae35a87cec6b806a9a94b9e90fe23d9f7f405
# Parent  ce0c513e9abafe29be7476fe01d67624df658703
(compilation-start): Save compilation-directory rather than
default-directory as local var.
(compilation-directory): Mark as safe local var.

diff -r ce0c513e9aba -r 712ae35a87ce lisp/progmodes/compile.el
--- a/lisp/progmodes/compile.el	Sun Mar 25 17:51:56 2007 +0000
+++ b/lisp/progmodes/compile.el	Sun Mar 25 17:52:31 2007 +0000
@@ -391,6 +391,7 @@
 		    ,(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 @@
 		 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