Mercurial > emacs

changeset 11618:9702de178097

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(compile-internal): Disable undo before erasing the buffer, then enable again afterward. (compilation-sentinel): Use force-mode-line-update.
author Richard M. Stallman <rms@gnu.org>
date Sat, 29 Apr 1995 16:37:06 +0000
parents 9eaeed5c8a40
children ff4be652af46
files lisp/progmodes/compile.el
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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