APPROVE COMMIT
NOTE: This patch has been committed.
lisp/ChangeLog addition:
2007-11-27  Aidan Kehoe  <kehoea(a)parhasard.net>
	* byte-optimize.el (byte-optimize-featurep):
	Remove a useless let binding that was a hangover from an earlier
	version of the code. Eliminates a byte-compile time warning. 
XEmacs Trunk source patch:
Diff command:   cvs -q diff -u
Files affected: lisp/byte-optimize.el
===================================================================
RCS
Index: lisp/byte-optimize.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/byte-optimize.el,v
retrieving revision 1.13
diff -u -r1.13 byte-optimize.el
--- lisp/byte-optimize.el	2007/10/15 10:55:49	1.13
+++ lisp/byte-optimize.el	2007/11/27 15:28:58
@@ -1174,15 +1174,14 @@
 
 (put 'featurep 'byte-optimizer 'byte-optimize-featurep)
 (defun byte-optimize-featurep (form)
-  (let ((to-check (cdr-safe form)))
-    (if (memq (car-safe
-	       (cdr-safe
-		(car-safe
-		 (cdr-safe 
-		  form))))
-	      byte-optimize-ever-present-features)
-	t
-      form)))
+  (if (memq (car-safe
+	     (cdr-safe
+	      (car-safe
+	       (cdr-safe 
+		form))))
+	    byte-optimize-ever-present-features)
+      t
+    form))
 
 
 ;;; enumerating those functions which need not be called if the returned
-- 
¿Dónde estará ahora mi sobrino Yoghurtu Nghé, que tuvo que huir
precipitadamente de la aldea por culpa de la escasez de rinocerontes?
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches