# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1039908636 0
# Node ID 63bc288cd2aeedc78e8d6c3170308be2fe578a75
# Parent  d39927a676f3619fdb4a938ae63e0c22ddb4526a
(compile-reinitialize-errors): Don't mark the buffer as modified unless it
really is.

diff -r d39927a676f3 -r 63bc288cd2ae lisp/progmodes/compile.el
--- a/lisp/progmodes/compile.el	Sat Dec 14 14:27:23 2002 +0000
+++ b/lisp/progmodes/compile.el	Sat Dec 14 23:30:36 2002 +0000
@@ -1564,6 +1564,7 @@
 	    (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 @@
 				       (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)