diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2007-08-23 15:11:31 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2007-08-23 15:11:31 +0000 |
| commit | 5ebfbcdc3f422edb3a6dc2dc347df276b134661b (patch) | |
| tree | d6bd85e342b130c08db0c1861430520e6b6f6f50 /lisp/emacs-lisp | |
| parent | bde217b20e082221c7f6fb7e2db51d89c7b52d3d (diff) | |
| download | emacs-5ebfbcdc3f422edb3a6dc2dc347df276b134661b.tar.gz emacs-5ebfbcdc3f422edb3a6dc2dc347df276b134661b.tar.bz2 emacs-5ebfbcdc3f422edb3a6dc2dc347df276b134661b.zip | |
(byte-optimize-featurep): Also handle `sxemacs'.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/byte-opt.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el index 82a5cf0a75a..6f653c8fc6e 100644 --- a/lisp/emacs-lisp/byte-opt.el +++ b/lisp/emacs-lisp/byte-opt.el @@ -1135,9 +1135,9 @@ (put 'featurep 'byte-optimizer 'byte-optimize-featurep) (defun byte-optimize-featurep (form) - ;; Emacs-21's byte-code doesn't run under XEmacs anyway, so we can - ;; safely optimize away this test. - (if (equal '((quote xemacs)) (cdr-safe form)) + ;; Emacs-21's byte-code doesn't run under XEmacs or SXEmacs anyway, so we + ;; can safely optimize away this test. + (if (member (cdr-safe form) '((quote xemacs) (quote sxemacs))) nil form)) |