[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
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)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 4c7faf3: Fix previous macroexp--warn-wrap change,
Lars Ingebrigtsen <=