# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1187881891 0
# Node ID e8ce4af3f42df291163d3af67ef0c0202c76a4db
# Parent  14c1feed49040bb4c8fa45bb2fcb7110c779334d
(byte-optimize-featurep): Also handle `sxemacs'.

diff -r 14c1feed4904 -r e8ce4af3f42d lisp/ChangeLog
--- a/lisp/ChangeLog	Thu Aug 23 03:27:16 2007 +0000
+++ b/lisp/ChangeLog	Thu Aug 23 15:11:31 2007 +0000
@@ -1,3 +1,7 @@
+2007-08-23  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* emacs-lisp/byte-opt.el (byte-optimize-featurep): Also handle `sxemacs'.
+
 2007-08-22  Chong Yidong  <cyd@stupidchicken.com>
 
 	* image-mode.el (image-minor-mode): Use image-mode-text-map.
diff -r 14c1feed4904 -r e8ce4af3f42d lisp/emacs-lisp/byte-opt.el
--- 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))