diff lisp/progmodes/compile.el @ 48844:63bc288cd2ae

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

--- 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)