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.

2 files changed, 3 insertions, 4 deletions

diff --git a/src/intervals.c b/src/intervals.c
index 1e57fd15632..81bf0b123ad 100644
--- a/src/intervals.c
+++ b/src/intervals.c
@@ -159,7 +159,7 @@ intervals_equal (i0, i1)
 
       /* 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 --git a/src/textprop.c b/src/textprop.c
index 384682cd256..3c62f0ad230 100644
--- a/src/textprop.c
+++ b/src/textprop.c
@@ -209,8 +209,7 @@ interval_has_all_properties (plist, i)
           {
             /* 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 @@ add_properties (plist, i, object)
 
             /* 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.  */