Mercurial > emacs

diff lisp/emacs-lisp/byte-opt.el @ 78627:e8ce4af3f42d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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
line wrap: on
line diff
--- a/lisp/emacs-lisp/byte-opt.el	Thu Aug 23 03:27:16 2007 +0000
+++ b/lisp/emacs-lisp/byte-opt.el	Thu Aug 23 15:11:31 2007 +0000
@@ -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))