From: Eli Zaretskii Date: Thu, 6 Jul 2023 15:00:05 +0000 (+0300) Subject: Revert "Use 'emacs-lisp-compilation-mode' in native compilation buffers" X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=65c90040eb08cd551120eda0e6647b59b25563d5;p=emacs.git Revert "Use 'emacs-lisp-compilation-mode' in native compilation buffers" This reverts commit 40492581f96626e405e4b453456b8c9b83822c97. It caused a recursive-load error when native-compiling files. (Bug#64391) --- diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el index 77584b692a4..22fb08e4688 100644 --- a/lisp/emacs-lisp/comp.el +++ b/lisp/emacs-lisp/comp.el @@ -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"))))