* lisp/emacs-lisp/byte-opt.el (featurep): Move compiler-macro...

* lisp/emacs-lisp/bytecomp.el (featurep): ...here.

Fixes: debbugs:11692
This commit is contained in:
Stefan Monnier 2012-06-13 09:16:34 -04:00
parent a12ac9d795
commit c4c8444a78
3 changed files with 13 additions and 10 deletions

View file

@ -4539,6 +4539,16 @@ and corresponding effects."
(setq command-line-args-left (cdr command-line-args-left)))
(kill-emacs 0))
;;; Core compiler macros.
(put 'featurep 'compiler-macro
(lambda (form feature &rest _ignore)
;; Emacs-21's byte-code doesn't run under XEmacs or SXEmacs anyway, so
;; we can safely optimize away this test.
(if (member feature '('xemacs 'sxemacs 'emacs))
(eval form)
form)))
(provide 'byte-compile)
(provide 'bytecomp)