Mercurial > emacs
changeset 3998:c0560357c84e
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.
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Tue, 06 Jul 1993 02:23:22 +0000 |
| parents | d968bcba16af |
| children | 6ad80fc3c559 |
| files | src/intervals.c src/textprop.c |
| diffstat | 2 files changed, 3 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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);
--- 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. */