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

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

Browse source 
This reverts commit 40492581f9.
It caused a recursive-load error when native-compiling files.
(Bug#64391)
This commit is contained in:
Eli Zaretskii 2023-07-06 18:00:05 +03:00
parent 40492581f9
commit 65c90040eb
1 changed files with 2 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

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