mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-30 18:23:20 -07:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
default-directory as local var.
(compilation-directory): Mark as safe local var.
This commit is contained in:
Chong Yidong 2007-03-25 17:52:31 +00:00
parent c324c766da
commit 98d4c36f4c
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/progmodes/compile.el
View file

@ -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