From 93cc43a23c90247644cb21bfdae60b36b1057de2 Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Wed, 25 Oct 2023 23:50:39 +0200 Subject: comp: don't require 'warnings' in comp-run * lisp/emacs-lisp/comp-run.el (warnings): Don't require. (warning-suppress-types): Wave warning. * lisp/emacs-lisp/warnings.el (warning-suppress-types): Autoload it. --- lisp/emacs-lisp/comp-run.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (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 9ea770135c1..b65c0997a3e 100644 --- a/lisp/emacs-lisp/comp-run.el +++ b/lisp/emacs-lisp/comp-run.el @@ -32,7 +32,6 @@ ;;; Code: (eval-when-compile (require 'cl-lib)) -(require 'warnings) (defgroup comp-run nil "Emacs Lisp native compiler runtime." @@ -243,6 +242,8 @@ processes from `comp-async-compilations'" (defvar comp-last-scanned-async-output nil) (make-variable-buffer-local 'comp-last-scanned-async-output) +;; From warnings.el +(defvar warning-suppress-types) (defun comp-accept-and-process-async-output (process) "Accept PROCESS output and check for diagnostic messages." (if native-comp-async-report-warnings-errors -- cgit v1.2.3