diff options
author | Juanma Barranquero <lekktu@gmail.com> | 2002-12-18 10:44:24 +0000 |
---|---|---|
committer | Juanma Barranquero <lekktu@gmail.com> | 2002-12-18 10:44:24 +0000 |
commit | ab824c4d04d0f9eb16142352cc221dd04274413c (patch) | |
tree | 1ccb83a0421a8404ae40a5d56809c5e339104bfb | |
parent | 5cc3f15d28f7345f103128e136a594aee05c3a00 (diff) | |
download | emacs-ab824c4d04d0f9eb16142352cc221dd04274413c.tar.gz |
(compile-reinitialize-errors): Don't mark the buffer as modified unless it
really is.
-rw-r--r-- | lisp/ChangeLog | 5 | ||||
-rw-r--r-- | lisp/progmodes/compile.el | 4 |
2 files changed, 8 insertions, 1 deletions
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) |