Mercurial > emacs
changeset 63057:3949ec3f5f5a
(compilation-start): Move `erase-buffer' up
before selecting the desired mode to not spend time fontifying
old contents.
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Mon, 06 Jun 2005 12:27:44 +0000 |
| parents | 095901aead41 |
| children | b9209f1855ae |
| files | lisp/progmodes/compile.el |
| diffstat | 1 files changed, 3 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/compile.el Mon Jun 06 12:27:26 2005 +0000 +++ b/lisp/progmodes/compile.el Mon Jun 06 12:27:44 2005 +0000 @@ -935,6 +935,7 @@ (substitute-env-vars (match-string 1 command)) "~") default-directory)) + (erase-buffer) ;; Select the desired mode. (if (not (eq mode t)) (funcall mode) @@ -944,11 +945,11 @@ (if highlight-regexp (set (make-local-variable 'compilation-highlight-regexp) highlight-regexp)) - (erase-buffer) ;; Output a mode setter, for saving and later reloading this buffer. (insert "-*- mode: " name-of-mode "; default-directory: " (prin1-to-string default-directory) - " -*-\n" command "\n") (setq thisdir default-directory)) + " -*-\n" command "\n") + (setq thisdir default-directory)) (set-buffer-modified-p nil)) ;; If we're already in the compilation buffer, go to the end ;; of the buffer, so point will track the compilation output.