Mercurial > emacs
comparison lisp/emacs-lisp/byte-opt.el @ 85513:dfdbd485bfa6
(byte-optimize-featurep): Fix paren typo.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Sun, 21 Oct 2007 20:10:06 +0000 |
| parents | d18b96e2d51f |
| children | e33327200372 4bc33ffdda1a |
comparison
equal
deleted
inserted
replaced
| 85512:589532be95ec | 85513:dfdbd485bfa6 |
|---|---|
| 1146 | 1146 |
| 1147 (put 'featurep 'byte-optimizer 'byte-optimize-featurep) | 1147 (put 'featurep 'byte-optimizer 'byte-optimize-featurep) |
| 1148 (defun byte-optimize-featurep (form) | 1148 (defun byte-optimize-featurep (form) |
| 1149 ;; Emacs-21's byte-code doesn't run under XEmacs or SXEmacs anyway, so we | 1149 ;; Emacs-21's byte-code doesn't run under XEmacs or SXEmacs anyway, so we |
| 1150 ;; can safely optimize away this test. | 1150 ;; can safely optimize away this test. |
| 1151 (if (member (cdr-safe form) '((quote xemacs) (quote sxemacs))) | 1151 (if (member (cdr-safe form) '(((quote xemacs)) ((quote sxemacs)))) |
| 1152 nil | 1152 nil |
| 1153 form)) | 1153 form)) |
| 1154 | 1154 |
| 1155 (put 'set 'byte-optimizer 'byte-optimize-set) | 1155 (put 'set 'byte-optimizer 'byte-optimize-set) |
| 1156 (defun byte-optimize-set (form) | 1156 (defun byte-optimize-set (form) |