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

* Add 'native-comp-async-report-warnings-errors-kind'

Browse source 
* lisp/emacs-lisp/comp-run.el (native-comp-async-report-warnings-errors-kind):
Add new customize.
This commit is contained in:
Andrea Corallo 2024-02-29 11:25:00 +01:00
parent b8ba3cb7f0
commit 8e5baaddec
1 changed files with 24 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

27
lisp/emacs-lisp/comp-run.el
View file

@ -77,6 +77,19 @@ buffer."
(const :tag "Report but do not display warnings/errors" silent))
:version "28.1")
(defcustom native-comp-async-report-warnings-errors-kind 'importants
"Select which kind of warnings and errors to report.
Set this variable to `importants' to have only important warnings and
all errors to be reported.
Set this variable to `all' to have all warnings and errors to be
reported."
:type '(choice
(const :tag "Report all warnings/errors" all)
(const :tag "Report only important warnings and errors" importants))
:version "30.1")
(defcustom native-comp-always-compile nil
"Non-nil means unconditionally (re-)compile all files."
:type 'boolean
@ -184,13 +197,21 @@ processes from `comp-async-compilations'"
(let ((warning-suppress-types
(if (eq native-comp-async-report-warnings-errors 'silent)
(cons '(comp) warning-suppress-types)
warning-suppress-types)))
warning-suppress-types))
(regexp (if (eq native-comp-async-report-warnings-errors-kind 'all)
"^.*?\\(?:Error\\|Warning\\): .*$"
(rx bol
(*? nonl)
(or
(seq "Error: " (*? nonl))
(seq "Warning: the function ‘" (1+ (not "’"))
"’ is not known to be defined."))
eol))))
(with-current-buffer (process-buffer process)
(save-excursion
(accept-process-output process)
(goto-char (or comp-last-scanned-async-output (point-min)))
(while (re-search-forward "^.*?\\(?:Error\\|Warning\\): .*$"
nil t)
(while (re-search-forward regexp nil t)
(display-warning 'comp (match-string 0)))
(setq comp-last-scanned-async-output (point-max)))))
(accept-process-output process)))