# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 741925402 0
# Node ID c0560357c84e0f05ba53d7840b1ee5ddfde45e24
# Parent  d968bcba16af10c02e0c986e3bd67a2629d2dc44
	Compare the values of text properties using EQ, not Fequal.
	* intervals.c (intervals_equal): Call EQ, not Fequal.
	* textprop.c (interval_has_all_properties, add_properties): Same.

diff -r d968bcba16af -r c0560357c84e src/intervals.c
--- a/src/intervals.c	Mon Jul 05 09:31:36 1993 +0000
+++ b/src/intervals.c	Tue Jul 06 02:23:22 1993 +0000
@@ -159,7 +159,7 @@
 
       /* i0 and i1 both have sym, but it has different values in each */
       i0_cdr = Fcdr (i0_cdr);
-      if (NILP (Fequal (i1_val, Fcar (i0_cdr))))
+      if (! EQ (i1_val, Fcar (i0_cdr)))
 	return 0;
 
       i0_cdr = Fcdr (i0_cdr);
diff -r d968bcba16af -r c0560357c84e src/textprop.c
--- a/src/textprop.c	Mon Jul 05 09:31:36 1993 +0000
+++ b/src/textprop.c	Tue Jul 06 02:23:22 1993 +0000
@@ -209,8 +209,7 @@
 	  {
 	    /* Found the same property on both lists.  If the
 	       values are unequal, return zero. */
-	    if (! EQ (Fequal (Fcar (Fcdr (tail1)), Fcar (Fcdr (tail2))),
-		      Qt))
+	    if (! EQ (Fcar (Fcdr (tail1)), Fcar (Fcdr (tail2))))
 	      return 0;
 
 	    /* Property has same value on both lists;  go to next one. */
@@ -343,7 +342,7 @@
 
 	    /* The properties have the same value on both lists.
 	       Continue to the next property. */
-	    if (!NILP (Fequal (val1, Fcar (this_cdr))))
+	    if (EQ (val1, Fcar (this_cdr)))
 	      break;
 
 	    /* Record this change in the buffer, for undo purposes.  */