changeset 76728:712ae35a87ce

(compilation-start): Save compilation-directory rather than default-directory as local var. (compilation-directory): Mark as safe local var.
author Chong Yidong <cyd@stupidchicken.com>
date Sun, 25 Mar 2007 17:52:31 +0000
parents ce0c513e9aba
children db4fef527760
files lisp/progmodes/compile.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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