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

really is.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 50550908b9a4ad85aa6f48c08a0f226f821ad737..36df00ff76c3f25044e60a5e57089c7427593b25 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-12-15  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-14  Andreas Schwab  <schwab@suse.de>
 
        * wid-edit.el (widget-move): Don't loop infinitely when there is

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 44f1178c11216ed290326be10e4e060681f32557..f202663a0e45fb854c8f0d3806c480eda205d191 100644 (file)
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -1564,6 +1564,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
@@ -1571,7 +1572,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)