Mercurial > hg > xemacs-beta
comparison lisp/byte-optimize.el @ 4169:effc49a3bfb9
[xemacs-hg @ 2007-09-15 19:11:54 by viteno]
Revert Steve Young's byte-optimize change.
| author | viteno |
|---|---|
| date | Sat, 15 Sep 2007 19:11:55 +0000 |
| parents | f35582fa32a9 |
| children | ce594b233b20 |
comparison
equal
deleted
inserted
replaced
| 4168:2a953c771a48 | 4169:effc49a3bfb9 |
|---|---|
| 1165 (or (byte-compile-constp (car args)) | 1165 (or (byte-compile-constp (car args)) |
| 1166 (setq constant nil)) | 1166 (setq constant nil)) |
| 1167 (setq args (cdr args))) | 1167 (setq args (cdr args))) |
| 1168 (if constant | 1168 (if constant |
| 1169 (eval form) | 1169 (eval form) |
| 1170 form))) | |
| 1171 | |
| 1172 (put 'featurep 'byte-optimizer 'byte-optimize-featurep) | |
| 1173 (defun byte-optimize-featurep (form) | |
| 1174 (let ((str (prin1-to-string (cdr-safe form))) | |
| 1175 (regex #r"\s-+s?xemacs\(\s-\|)\)")) | |
| 1176 (if (string-match regex str) | |
| 1177 (byte-optimize-predicate form) | |
| 1178 form))) | 1170 form))) |
| 1179 | 1171 |
| 1180 | 1172 |
| 1181 ;;; enumerating those functions which need not be called if the returned | 1173 ;;; enumerating those functions which need not be called if the returned |
| 1182 ;;; value is not used. That is, something like | 1174 ;;; value is not used. That is, something like |