From 98d4c36f4c50b6d641a4d4f770a47e7fb2347d5b Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Sun, 25 Mar 2007 17:52:31 +0000 Subject: [PATCH] (compilation-start): Save compilation-directory rather than default-directory as local var. (compilation-directory): Mark as safe local var. --- lisp/progmodes/compile.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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 -- 2.39.5