From 814710067f0558e308c7020b22e455fe0ece7878 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Fri, 5 Jul 2024 22:00:08 +0300 Subject: Improve warnings from native compiler * src/comp.c (syms_of_comp) : Rename from 'comp'. * src/lread.c (maybe_swap_for_eln): * lisp/emacs-lisp/comp.el (comp--fwprop): * lisp/emacs-lisp/comp-run.el (comp--accept-and-process-async-output, native--compile-async): Adjust to the new symbol. --- lisp/emacs-lisp/comp-run.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'lisp/emacs-lisp/comp-run.el') diff --git a/lisp/emacs-lisp/comp-run.el b/lisp/emacs-lisp/comp-run.el index 8e08eca7442..17a9ab71f7e 100644 --- a/lisp/emacs-lisp/comp-run.el +++ b/lisp/emacs-lisp/comp-run.el @@ -195,7 +195,7 @@ processes from `comp-async-compilations'" (if native-comp-async-report-warnings-errors (let ((warning-suppress-types (if (eq native-comp-async-report-warnings-errors 'silent) - (cons '(comp) warning-suppress-types) + (cons '(native-compiler) warning-suppress-types) warning-suppress-types)) (regexp (if (eq native-comp-async-warnings-errors-kind 'all) "^.*?\\(?:Error\\|Warning\\): .*$" @@ -211,7 +211,7 @@ processes from `comp-async-compilations'" (accept-process-output process) (goto-char (or comp-last-scanned-async-output (point-min))) (while (re-search-forward regexp nil t) - (display-warning 'comp (match-string 0))) + (display-warning 'native-compiler (match-string 0))) (setq comp-last-scanned-async-output (point-max))))) (accept-process-output process))) @@ -446,7 +446,7 @@ bytecode definition was not changed in the meantime)." (setf comp-files-queue (append comp-files-queue `((,file . ,load))) added-something t) - (display-warning 'comp + (display-warning 'native-compiler (format "No write access for %s skipping." out-filename))))))) ;; Perhaps nothing passed `native--compile-async-skip-p'? -- cgit v1.2.3