mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-06 07:31:13 -08:00
Code Issues Projects Releases Wiki Activity

(compilation-sentinel): Change buffer-read-only with let.

Browse source
This commit is contained in:
Richard M. Stallman 1993-01-02 21:21:14 +00:00
parent 76a66e5e9f
commit fdcba502fa
1 changed files with 19 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

39
lisp/progmodes/compile.el
View file

@ -367,26 +367,25 @@ Runs `compilation-mode-hook' with `run-hooks' (which see)."
;; Write something in the compilation buffer
;; and hack its mode line.
(set-buffer buffer)
(setq buffer-read-only nil)
(setq omax (point-max)
opoint (point))
(goto-char omax)
;; Record where we put the message, so we can ignore it
;; later on.
(insert ?\n mode-name " " msg)
(forward-char -1)
(insert " at " (substring (current-time-string) 0 19))
(forward-char 1)
(setq mode-line-process
(concat ": "
(symbol-name (process-status proc))))
;; Since the buffer and mode line will show that the
;; process is dead, we can delete it now. Otherwise it
;; will stay around until M-x list-processes.
(delete-process proc)
;; Force mode line redisplay soon.
(set-buffer-modified-p (buffer-modified-p))
(setq buffer-read-only t) ;I think is this wrong --roland
(let ((buffer-read-only nil))
(setq omax (point-max)
opoint (point))
(goto-char omax)
;; Record where we put the message, so we can ignore it
;; later on.
(insert ?\n mode-name " " msg)
(forward-char -1)
(insert " at " (substring (current-time-string) 0 19))
(forward-char 1)
(setq mode-line-process
(concat ": "
(symbol-name (process-status proc))))
;; Since the buffer and mode line will show that the
;; process is dead, we can delete it now. Otherwise it
;; will stay around until M-x list-processes.
(delete-process proc)
;; Force mode line redisplay soon.
(set-buffer-modified-p (buffer-modified-p)))
(if (and opoint (< opoint omax))
(goto-char opoint))
(if compilation-finish-function