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

Use 'emacs-lisp-compilation-mode' in native compilation buffers

Browse source 
* lisp/emacs-lisp/comp.el (comp-log-to-buffer)
(comp-run-async-workers): Use 'emacs-lisp-compilation-mode' in the
buffers where we log the results of native compilation.  Suggested
by No Wayman <iarchivedmywholelife@gmail.com>.  (Bug#64452)
This commit is contained in:
Eli Zaretskii 2023-07-06 11:50:41 +03:00
parent 1930312992
commit 40492581f9
1 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1133,7 +1133,8 @@ with `message'. Otherwise, log with `comp-log-to-buffer'."
(log-buffer (log-buffer
(or (get-buffer comp-log-buffer-name) (or (get-buffer comp-log-buffer-name)
(with-current-buffer (get-buffer-create comp-log-buffer-name) (with-current-buffer (get-buffer-create comp-log-buffer-name)
(setf buffer-read-only t) (unless (derived-mode-p 'compilation-mode)
(emacs-lisp-compilation-mode))
(current-buffer)))) (current-buffer))))
(log-window (get-buffer-window log-buffer)) (log-window (get-buffer-window log-buffer))
(inhibit-read-only t) (inhibit-read-only t)
@ -4085,7 +4086,8 @@ display a message."
:buffer (with-current-buffer :buffer (with-current-buffer
(get-buffer-create (get-buffer-create
comp-async-buffer-name) comp-async-buffer-name)
(setf buffer-read-only t) (unless (derived-mode-p 'compilation-mode)
(emacs-lisp-compilation-mode))
(current-buffer)) (current-buffer))
:command (list :command (list
(expand-file-name invocation-name (expand-file-name invocation-name
@ -4119,6 +4121,8 @@ 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
(unless (derived-mode-p 'compilation-mode)
(emacs-lisp-compilation-mode))
(let ((inhibit-read-only t)) (let ((inhibit-read-only t))
(goto-char (point-max)) (goto-char (point-max))
(insert "Compilation finished.\n")))) (insert "Compilation finished.\n"))))