mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(byte-optimize-featurep): Also handle `sxemacs'.

Browse source
This commit is contained in:
Stefan Monnier 2007-08-23 15:11:31 +00:00
parent bde217b20e
commit 5ebfbcdc3f
2 changed files with 7 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -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.

6
lisp/emacs-lisp/byte-opt.el
View file

@ -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))