mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-22 07:09:54 +00:00
Code Issues Releases Activity

(compile-internal): Disable undo before erasing

Browse Source 
the buffer, then enable again afterward.
(compilation-sentinel): Use force-mode-line-update.
This commit is contained in:
Richard M. Stallman 1995-04-29 16:37:06 +00:00
parent 2b7971c930
commit 5d5ab7ac50
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/progmodes/compile.el
View File

@ -361,7 +361,9 @@ Returns the compilation buffer created."
;; 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 @@ Returns the compilation buffer created."
(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 @@ See `compilation-mode'."
;; 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