CVS update by viteno xemacs/lisp ...

[xemacs-cvs at xemacs.org]

  User: viteno  
  Date: 07/09/15 21:11:57

  Modified:    xemacs/lisp ChangeLog byte-optimize.el
Log:
Revert Steve Young's byte-optimize change.

Revision  Changes    Path
1.837     +4 -0      XEmacs/xemacs/lisp/ChangeLog

Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/ChangeLog,v
retrieving revision 1.836
retrieving revision 1.837
diff -u -p -r1.836 -r1.837
--- ChangeLog	2007/09/03 13:16:39	1.836
+++ ChangeLog	2007/09/15 19:11:54	1.837
@@ -1,3 +1,7 @@
+2007-09-09  Norbert Koch  <viteno at xemacs.org>
+
+	* byte-optimize.el: Revert last patch from Steve Youngs.
+
 2007-09-02  Steve Youngs  <steve at sxemacs.org>
 
 	* byte-optimize.el (byte-optimize-featurep): New.  Optimise



1.12      +0 -8      XEmacs/xemacs/lisp/byte-optimize.el

Index: byte-optimize.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/byte-optimize.el,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -p -r1.11 -r1.12
--- byte-optimize.el	2007/09/03 13:16:43	1.11
+++ byte-optimize.el	2007/09/15 19:11:55	1.12
@@ -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