From: Juanma Barranquero <lekktu@gmail.com>
Date: Wed, 18 Dec 2002 10:44:24 +0000 (+0000)
Subject: (compile-reinitialize-errors): Don't mark the buffer as modified unless it
X-Git-Tag: emacs-pretest-21.2.94~18
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ab824c4d04d0f9eb16142352cc221dd04274413c;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6b0cb8d8e99..56991776744 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-12-18  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-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 daf4e80a4f7..89b4fa95c2a 100644
--- 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)