]> code.delx.au - gnu-emacs/blobdiff - lisp/emacs-lisp/byte-opt.el
Merge from emacs--devo--0
[gnu-emacs] / lisp / emacs-lisp / byte-opt.el
index 60f1cdd3754481006b2bdc3e1e59cc81a6584ea6..2ff453ac6e5981f2e1eb396c0548c37f8779055c 100644 (file)
 (defun byte-optimize-featurep (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)))
+  (if (member (cdr-safe form) '(((quote xemacs)) ((quote sxemacs))))
       nil
     form))