procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* Make *Async-native-compile-log* buffer read-only (bug#48763)

Browse source 
* lisp/emacs-lisp/comp.el (comp-run-async-workers): Make
"*Async-native-compile-log*" read-only.
This commit is contained in:
Andrea Corallo 2021-05-31 20:35:43 +02:00
parent 2ee5ce208f
commit 8992a45202
1 changed files with 8 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lisp/emacs-lisp/comp.el
View file

@ -3941,7 +3941,11 @@ display a message."
(load1 load) (load1 load)
(process (make-process (process (make-process
:name (concat "Compiling: " source-file) :name (concat "Compiling: " source-file)
:buffer (get-buffer-create comp-async-buffer-name) :buffer (with-current-buffer
(get-buffer-create
comp-async-buffer-name)
(setf buffer-read-only t)
(current-buffer))
:command (list :command (list
(expand-file-name invocation-name (expand-file-name invocation-name
invocation-directory) invocation-directory)
@ -3970,8 +3974,9 @@ display a message."
(run-hooks 'native-comp-async-all-done-hook) (run-hooks 'native-comp-async-all-done-hook)
(with-current-buffer (get-buffer-create comp-async-buffer-name) (with-current-buffer (get-buffer-create comp-async-buffer-name)
(save-excursion (save-excursion
(goto-char (point-max)) (let ((buffer-read-only nil))
(insert "Compilation finished.\n"))) (goto-char (point-max))
(insert "Compilation finished.\n"))))
;; `comp-deferred-pending-h' should be empty at this stage. ;; `comp-deferred-pending-h' should be empty at this stage.
;; Reset it anyway. ;; Reset it anyway.
(clrhash comp-deferred-pending-h))) (clrhash comp-deferred-pending-h)))