From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Wed, 20 Nov 2019 11:28:37 +0000 (+0100)
Subject: Make with-suppressed-warnings work for macros, too
X-Git-Tag: emacs-27.0.90~564
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5c5c1b559313d06aab6516ff1b1acf1da3a01c7d;p=emacs.git

Make with-suppressed-warnings work for macros, too

* lisp/emacs-lisp/macroexp.el (macroexp-macroexpand): Pass the
macro/alias symbol on to byte-compile-warning-enabled-p so that
with-suppressed-warnings works for macros, too.
---

diff --git a/lisp/emacs-lisp/macroexp.el b/lisp/emacs-lisp/macroexp.el
index 72198c44004..329b48d179e 100644
--- a/lisp/emacs-lisp/macroexp.el
+++ b/lisp/emacs-lisp/macroexp.el
@@ -187,7 +187,7 @@ and also to avoid outputting the warning during normal execution."
              (symbolp (car form))
              (get (car form) 'byte-obsolete-info)
              (or (not (fboundp 'byte-compile-warning-enabled-p))
-                 (byte-compile-warning-enabled-p 'obsolete)))
+                 (byte-compile-warning-enabled-p 'obsolete (car form))))
         (let* ((fun (car form))
                (obsolete (get fun 'byte-obsolete-info)))
           (macroexp--warn-and-return