Mercurial > hg > xemacs-beta

changeset 4169:effc49a3bfb9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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 2a953c771a48
children da7dd2515bbf
files lisp/byte-optimize.el
diffstat 1 files changed, 0 insertions(+), 8 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/byte-optimize.el	Fri Sep 14 21:51:12 2007 +0000
+++ b/lisp/byte-optimize.el	Sat Sep 15 19:11:55 2007 +0000
@@ -1169,14 +1169,6 @@
 	(eval form)
       form)))
 
-(put 'featurep 'byte-optimizer 'byte-optimize-featurep)
-(defun byte-optimize-featurep (form)
-  (let ((str (prin1-to-string (cdr-safe form)))
-	(regex #r"\s-+s?xemacs\(\s-\|)\)"))
-    (if (string-match regex str)
-	(byte-optimize-predicate form)
-      form)))
-
 
 ;;; enumerating those functions which need not be called if the returned
 ;;; value is not used.  That is, something like