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

really is.

2 files changed, 8 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 50550908b9a..36df00ff76c 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-12-15  Gustav H,Ae(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 44f1178c112..f202663a0e4 100644
--- 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)