Commit 734c51b2 authored by Jim Blandy's avatar Jim Blandy
Browse files

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.
parent 657070ac
......@@ -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);
......@@ -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))),
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)))
/* Record this change in the buffer, for undo purposes. */
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment