Revert accidental portion of previous bytecomp.el commit.

This commit is contained in:
Glenn Morris 2011-05-11 13:32:38 -04:00
parent f64049c602
commit 410c42c570

View file

@ -1321,8 +1321,7 @@ extra args."
;; Assumes an element of b-c-i-macro-env that is a symbol points
;; to a defined function. (Bug#8646)
(and initial (symbolp initial)
(setq old (byte-compile-fdefinition initial nil)
initial 'yes))
(setq old (byte-compile-fdefinition initial nil)))
(if (and old (not (eq old t)))
(progn
(and (eq 'macro (car-safe old))