# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 799173426 0
# Node ID 9702de1780976fff712a346a55761bece53c811f
# Parent  9eaeed5c8a409eb639922a04e6d856e10838289b
(compile-internal): Disable undo before erasing
the buffer, then enable again afterward.
(compilation-sentinel): Use force-mode-line-update.

diff -r 9eaeed5c8a40 -r 9702de178097 lisp/progmodes/compile.el
--- a/lisp/progmodes/compile.el	Sat Apr 29 16:32:03 1995 +0000
+++ b/lisp/progmodes/compile.el	Sat Apr 29 16:37:06 1995 +0000
@@ -361,7 +361,9 @@
 	;; will happen, and insert a `cd' command to indicate this.
 	(set-buffer outbuf)
 	(setq buffer-read-only nil)
+	(buffer-disable-undo (current-buffer))
 	(erase-buffer)
+	(buffer-enable-undo (current-buffer))
 	(setq default-directory thisdir)
 	(insert "cd " thisdir "\n" command "\n")
 	(set-buffer-modified-p nil))
@@ -374,7 +376,6 @@
       (save-excursion
 	(set-buffer outbuf)
 	(compilation-mode)
-	(buffer-disable-undo (current-buffer))
 	;; (setq buffer-read-only t)  ;;; Non-ergonomic.
 	(set (make-local-variable 'compilation-parse-errors-function) parser)
 	(set (make-local-variable 'compilation-error-message) error-message)
@@ -555,7 +556,7 @@
 		      ;; will stay around until M-x list-processes.
 		      (delete-process proc)
 		      ;; Force mode line redisplay soon.
-		      (set-buffer-modified-p (buffer-modified-p)))
+		      (force-mode-line-update))
 		    (if (and opoint (< opoint omax))
 			(goto-char opoint))
 		    (if compilation-finish-function