changeset 48844:63bc288cd2ae

(compile-reinitialize-errors): Don't mark the buffer as modified unless it really is.
author Juanma Barranquero <lekktu@gmail.com>
date Sat, 14 Dec 2002 23:30:36 +0000
parents d39927a676f3
children a1bf73b831bc
files lisp/progmodes/compile.el
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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)