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:
parent
5cab2684c0
commit
5fb9a033f8
1 changed files with 5 additions and 4 deletions
|
@ -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)))
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue