Allow inhibiting warnings about obsolete macros again

* lisp/emacs-lisp/macroexp.el (macroexp-macroexpand): Inhibit
warning if requested (bug#50984).
This commit is contained in:
Lars Ingebrigtsen 2021-11-30 14:38:15 +01:00
parent 5cab2684c0
commit 5fb9a033f8

View file

@ -216,10 +216,11 @@ is executed without being compiled first."
(let* ((fun (car form))
(obsolete (get fun 'byte-obsolete-info)))
(macroexp-warn-and-return
(macroexp--obsolete-warning
fun obsolete
(if (symbolp (symbol-function fun))
"alias" "macro"))
(and (byte-compile-warning-enabled-p 'obsolete fun)
(macroexp--obsolete-warning
fun obsolete
(if (symbolp (symbol-function fun))
"alias" "macro")))
new-form 'obsolete))
new-form)))