From 311ff235fa14699b829c716e5a0c69e10077cbe3 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Sat, 14 Dec 2002 23:35:19 +0000 Subject: [PATCH] (compile-reinitialize-errors): Don't mark the buffer as modified unless it really is. --- lisp/ChangeLog | 5 +++++ lisp/progmodes/compile.el | 4 +++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 50550908b9a..36df00ff76c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2002-12-15 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-14 Andreas Schwab * wid-edit.el (widget-move): Don't loop infinitely when there is diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index 44f1178c112..f202663a0e4 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el @@ -1564,6 +1564,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 @@ -1571,7 +1572,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) -- 2.39.5