From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Thu, 2 Dec 2021 15:47:42 +0000 (+0100)
Subject: Fix previous macroexp--warn-wrap change
X-Git-Tag: emacs-29.0.90~3625^2~10
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4c7faf33776c6566fdb374ae2b54960fc70c3228;p=emacs.git

Fix previous macroexp--warn-wrap change

* lisp/emacs-lisp/macroexp.el (macroexp--warn-wrap): Don't call
byte-compile-warning-enabled-p with zero parameters.
---

diff --git a/lisp/emacs-lisp/macroexp.el b/lisp/emacs-lisp/macroexp.el
index 48d9c680cba..a20c424e2bd 100644
--- a/lisp/emacs-lisp/macroexp.el
+++ b/lisp/emacs-lisp/macroexp.el
@@ -136,11 +136,12 @@ Other uses risk returning non-nil value that point to the wrong file."
 (defvar macroexp--warned (make-hash-table :test #'equal :weakness 'key))
 
 (defun macroexp--warn-wrap (msg form category)
-  (let ((when-compiled (lambda ()
-                         (when (if (listp category)
-                                   (apply #'byte-compile-warning-enabled-p category)
-                                 (byte-compile-warning-enabled-p category))
-                           (byte-compile-warn "%s" msg)))))
+  (let ((when-compiled
+	 (lambda ()
+           (when (if (consp category)
+                     (apply #'byte-compile-warning-enabled-p category)
+                   (byte-compile-warning-enabled-p category))
+             (byte-compile-warn "%s" msg)))))
     `(progn
        (macroexp--funcall-if-compiled ',when-compiled)
        ,form)))