Mercurial > emacs
comparison lisp/emacs-lisp/byte-opt.el @ 78627:e8ce4af3f42d
(byte-optimize-featurep): Also handle `sxemacs'.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Thu, 23 Aug 2007 15:11:31 +0000 |
| parents | 88c9f4e4160e |
| children | 7acb0cfbf6a4 92ccd83174e6 |
comparison
equal
deleted
inserted
replaced
| 78626:14c1feed4904 | 78627:e8ce4af3f42d |
|---|---|
| 1133 ;; optimize string-as-unibyte, string-as-multibyte, string-make-unibyte, | 1133 ;; optimize string-as-unibyte, string-as-multibyte, string-make-unibyte, |
| 1134 ;; string-make-multibyte for constant args. | 1134 ;; string-make-multibyte for constant args. |
| 1135 | 1135 |
| 1136 (put 'featurep 'byte-optimizer 'byte-optimize-featurep) | 1136 (put 'featurep 'byte-optimizer 'byte-optimize-featurep) |
| 1137 (defun byte-optimize-featurep (form) | 1137 (defun byte-optimize-featurep (form) |
| 1138 ;; Emacs-21's byte-code doesn't run under XEmacs anyway, so we can | 1138 ;; Emacs-21's byte-code doesn't run under XEmacs or SXEmacs anyway, so we |
| 1139 ;; safely optimize away this test. | 1139 ;; can safely optimize away this test. |
| 1140 (if (equal '((quote xemacs)) (cdr-safe form)) | 1140 (if (member (cdr-safe form) '((quote xemacs) (quote sxemacs))) |
| 1141 nil | 1141 nil |
| 1142 form)) | 1142 form)) |
| 1143 | 1143 |
| 1144 (put 'set 'byte-optimizer 'byte-optimize-set) | 1144 (put 'set 'byte-optimizer 'byte-optimize-set) |
| 1145 (defun byte-optimize-set (form) | 1145 (defun byte-optimize-set (form) |