[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master 4c7faf3: Fix previous macroexp--warn-wrap change

From: Lars Ingebrigtsen
Subject: master 4c7faf3: Fix previous macroexp--warn-wrap change
Date: Thu, 2 Dec 2021 10:47:54 -0500 (EST)

branch: master
commit 4c7faf33776c6566fdb374ae2b54960fc70c3228
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    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.
 lisp/emacs-lisp/macroexp.el | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/lisp/emacs-lisp/macroexp.el b/lisp/emacs-lisp/macroexp.el
index 48d9c68..a20c424 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 
-                                 (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)))))
        (macroexp--funcall-if-compiled ',when-compiled)

reply via email to

[Prev in Thread] Current Thread [Next in Thread]