(compile-reinitialize-errors): Don't mark the buffer as modified unless it

really is.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6b0cb8d8e99c587927810e9fdd4a0a8c78dc03e4..56991776744be29096a37864696516602711c5c8 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-12-18  Gustav H\e,Ae\e(Bllberg  <gustav@virtutech.se>  (tiny change)
+
+       * progmodes/compile.el (compile-reinitialize-errors): Don't mark the
+       buffer as modified unless it really is.
+
 2002-12-15  Stefan Monnier  <monnier@cs.yale.edu>
 
        * mail/undigest.el (rmail-digest-end-regexps): Simplify.

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index daf4e80a4f78c8cbb688e1a13023951a4cc7416e..89b4fa95c2aeed69ceedfcd9cb084d523dbab04b 100644 (file)
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -1333,6 +1333,7 @@ Does NOT find the source line like \\[next-error]."
            (let ((inhibit-read-only t)
                  (buffer-undo-list t)
                  deactivate-mark
+                  (buffer-was-modified (buffer-modified-p))
                  (error-list compilation-error-list))
              (while error-list
                (save-excursion
@@ -1340,7 +1341,8 @@ Does NOT find the source line like \\[next-error]."
                                       (progn (end-of-line) (point))
                                       '(mouse-face highlight help-echo "\
 mouse-2: visit this file and line")))
-               (setq error-list (cdr error-list))))
+               (setq error-list (cdr error-list)))
+              (set-buffer-modified-p buffer-was-modified))
            )))))
 
 (defun compile-mouse-goto-error (event)