From: Juanma Barranquero 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 (tiny change) + + * progmodes/compile.el (compile-reinitialize-errors): Don't mark the + buffer as modified unless it really is. + 2002-12-15 Stefan Monnier * 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)