diff options
Diffstat (limited to 'src')
| -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. */ |