mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 20:32:00 -08:00
Code Issues Projects Releases Wiki Activity

(compilation-start): Bind buffer-read-only to nil before

Browse source 
invoking call-process.  Reset buffer's modified flag after
fontifying it in the no-async branch.
This commit is contained in:
Eli Zaretskii 2005-01-29 15:52:07 +00:00
parent 28d986b971
commit cf63e6fa17
2 changed files with 8 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,5 +1,9 @@
2005-01-29 Eli Zaretskii <eliz@gnu.org>
* progmodes/compile.el (compilation-start): Bind buffer-read-only
to nil before invoking call-process. Reset buffer's modified flag
after fontifying it in the no-async branch.
* wid-edit.el (widget-specify-button): If mouse pointer shape
cannot be changed, use mouse face instead.

6
lisp/progmodes/compile.el
View file

@ -985,8 +985,9 @@ Returns the compilation buffer created."
(setq mode-line-process ":run")
(force-mode-line-update)
(sit-for 0) ; Force redisplay
(let ((status (call-process shell-file-name nil outbuf nil "-c"
command)))
(let* ((buffer-read-only nil) ; call-process needs to modify outbuf
(status (call-process shell-file-name nil outbuf nil "-c"
command)))
(cond ((numberp status)
(compilation-handle-exit 'exit status
(if (zerop status)
@ -1003,6 +1004,7 @@ exited abnormally with code %d\n"
;; fontified, so fontify it now.
(let ((font-lock-verbose nil)) ; shut up font-lock messages
(font-lock-fontify-buffer))
(set-buffer-modified-p nil)
(message "Executing `%s'...done" command)))
;; Now finally cd to where the shell started make/grep/...
(setq default-directory thisdir))