Commit 63314e57 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

* lisp/emacs-lisp/macroexp.el (macroexp--expand-all):

Obey byte-compile-warning-enabled-p.

Fixes: debbugs:12486
parent a2be0357
2012-10-26 Stefan Monnier <monnier@iro.umontreal.ca>
 
* emacs-lisp/macroexp.el (macroexp--expand-all):
Obey byte-compile-warning-enabled-p (bug#12486).
* vc/diff-mode.el (diff-end-of-hunk): Also skip potential "no LF at eol".
(diff-refine-hunk): Similarly, handle the "no LF at eol" (bug#12584).
 
......
......@@ -154,11 +154,16 @@ Assumes the caller has bound `macroexpand-all-environment'."
(if (and (not (eq form new-form)) ;It was a macro call.
(car-safe form)
(symbolp (car form))
(get (car form) 'byte-obsolete-info))
(get (car form) 'byte-obsolete-info)
(or (not (fboundp 'byte-compile-warning-enabled-p))
(byte-compile-warning-enabled-p 'obsolete)))
(let* ((fun (car form))
(obsolete (get fun 'byte-obsolete-info)))
(macroexp--warn-and-return
(macroexp--obsolete-warning fun obsolete "macro")
(macroexp--obsolete-warning
fun obsolete
(if (symbolp (symbol-function fun))
"alias" "macro"))
new-form))
new-form)))
(pcase form
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment