(compilation-start): Save compilation-directory rather than

default-directory as local var.
(compilation-directory): Mark as safe local var.

1 files changed, 2 insertions, 1 deletions

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