[Emacs-diffs] Changes to emacs/lisp/progmodes/compile.el

[Juri Linkov]

Index: emacs/lisp/progmodes/compile.el
diff -c emacs/lisp/progmodes/compile.el:1.358 
emacs/lisp/progmodes/compile.el:1.359
*** emacs/lisp/progmodes/compile.el:1.358       Fri Jun  3 08:41:20 2005
--- emacs/lisp/progmodes/compile.el     Mon Jun  6 12:27:44 2005
***************
*** 935,940 ****
--- 935,941 ----
                    (substitute-env-vars (match-string 1 command))
                  "~")
              default-directory))
+       (erase-buffer)
        ;; Select the desired mode.
        (if (not (eq mode t))
            (funcall mode)
***************
*** 944,954 ****
        (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))
        (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.
--- 945,955 ----
        (if highlight-regexp
            (set (make-local-variable 'compilation-highlight-regexp)
                 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)
!               " -*-\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.