From: Mattias Engdegård <mattiase@acm.org>
Date: Wed, 20 Dec 2023 13:15:59 +0000 (+0100)
Subject: Non-delayed warning for malformed function (bug#67483)
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=14ecc377ab43e4c33506c2a8b65bf1e75fb262d3;p=emacs.git

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.
---

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))))