diff options
author | Mattias EngdegÄrd <mattiase@acm.org> | 2023-12-20 14:15:59 +0100 |
---|---|---|
committer | Mattias EngdegÄrd <mattiase@acm.org> | 2023-12-21 13:20:27 +0100 |
commit | 14ecc377ab43e4c33506c2a8b65bf1e75fb262d3 (patch) | |
tree | ce31dcb7057b0202f9f02bb94e78ac37d4d4bcb1 /lisp/emacs-lisp | |
parent | ff3965795fb80681111708e104f1edd32bdb6199 (diff) | |
download | emacs-14ecc377ab43e4c33506c2a8b65bf1e75fb262d3.tar.gz emacs-14ecc377ab43e4c33506c2a8b65bf1e75fb262d3.tar.bz2 emacs-14ecc377ab43e4c33506c2a8b65bf1e75fb262d3.zip |
Non-delayed warning for malformed function (bug#67483)
* lisp/emacs-lisp/cconv.el (cconv-convert): Use an immediate warning;
a delayed one made little sense as it's a matter of well-formedness.
Diffstat (limited to 'lisp/emacs-lisp')
-rw-r--r-- | lisp/emacs-lisp/cconv.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/cconv.el b/lisp/emacs-lisp/cconv.el index e65c39e3998..0879c2ee63c 100644 --- a/lisp/emacs-lisp/cconv.el +++ b/lisp/emacs-lisp/cconv.el @@ -621,9 +621,8 @@ places where they originally did not directly appear." `(,func . ,(mapcar (lambda (form) (cconv-convert form env extend)) forms)) - (macroexp--warn-wrap form (format-message "Malformed function `%S'" - (car form)) - nil nil))) + (byte-compile-warn-x form "Malformed function `%S'" func) + nil)) (_ (or (cdr (assq form env)) form)))) |