diff options
| author | Jim Blandy <jimb@redhat.com> | 1993-07-06 02:23:22 +0000 |
|---|---|---|
| committer | Jim Blandy <jimb@redhat.com> | 1993-07-06 02:23:22 +0000 |
| commit | 734c51b2dd0d010be568ce950c62d2aea883bb8c (patch) | |
| tree | 3c9a049c67383065aa96dbb431d823fe9fe4374d | |
| parent | 657070acda0f1897d0f4768ec621b8831ca9840a (diff) | |
| download | emacs-734c51b2dd0d010be568ce950c62d2aea883bb8c.tar.gz | |
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.
| -rw-r--r-- | src/intervals.c | 2 | ||||
| -rw-r--r-- | src/textprop.c | 5 |
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. */ |