summaryrefslogtreecommitdiff
path: root/lisp/emacs-lisp/macroexp.el
diff options
context:
space:
mode:
authorLars Ingebrigtsen <larsi@gnus.org>2019-11-20 12:28:37 +0100
committerLars Ingebrigtsen <larsi@gnus.org>2019-11-20 12:28:43 +0100
commit5c5c1b559313d06aab6516ff1b1acf1da3a01c7d (patch)
tree2c64b8149d6745423f076daa8590edf59a8ee18e /lisp/emacs-lisp/macroexp.el
parent2709b1e4e5fb370f0edefdd467956b5be11e2401 (diff)
downloademacs-5c5c1b559313d06aab6516ff1b1acf1da3a01c7d.tar.gz
emacs-5c5c1b559313d06aab6516ff1b1acf1da3a01c7d.tar.bz2
emacs-5c5c1b559313d06aab6516ff1b1acf1da3a01c7d.zip
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.
Diffstat (limited to 'lisp/emacs-lisp/macroexp.el')
-rw-r--r--lisp/emacs-lisp/macroexp.el2
1 files changed, 1 insertions, 1 deletions
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