diff options
| author | Ken Raeburn | 2000-08-08 14:38:09 +0000 |
|---|---|---|
| committer | Ken Raeburn | 2000-08-08 14:38:09 +0000 |
| commit | cba7d658d827638ab0b09fbd2e437bfc557e09be (patch) | |
| tree | 02798d4622bf36e8818e735c31f7fb9b9474bd39 /src | |
| parent | 84b87198895203b29b0188423292bc13ab5bf30f (diff) | |
| download | emacs-cba7d658d827638ab0b09fbd2e437bfc557e09be.tar.gz emacs-cba7d658d827638ab0b09fbd2e437bfc557e09be.zip | |
(find_field): Use EQ, not ==, to compare lisp objects.
Diffstat (limited to 'src')
| -rw-r--r-- | src/editfns.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/editfns.c b/src/editfns.c index ae6befd5a7f..d3fa9c54f47 100644 --- a/src/editfns.c +++ b/src/editfns.c | |||
| @@ -440,7 +440,7 @@ find_field (pos, merge_at_boundary, beg, end) | |||
| 440 | else | 440 | else |
| 441 | /* Find the previous field boundary. */ | 441 | /* Find the previous field boundary. */ |
| 442 | { | 442 | { |
| 443 | if (!NILP (merge_at_boundary) && before_field == Qboundary) | 443 | if (!NILP (merge_at_boundary) && EQ (before_field, Qboundary)) |
| 444 | /* Skip a `boundary' field. */ | 444 | /* Skip a `boundary' field. */ |
| 445 | pos = Fprevious_single_char_property_change (pos, Qfield, Qnil,Qnil); | 445 | pos = Fprevious_single_char_property_change (pos, Qfield, Qnil,Qnil); |
| 446 | 446 | ||
| @@ -456,7 +456,7 @@ find_field (pos, merge_at_boundary, beg, end) | |||
| 456 | else | 456 | else |
| 457 | /* Find the next field boundary. */ | 457 | /* Find the next field boundary. */ |
| 458 | { | 458 | { |
| 459 | if (!NILP (merge_at_boundary) && after_field == Qboundary) | 459 | if (!NILP (merge_at_boundary) && EQ (after_field, Qboundary)) |
| 460 | /* Skip a `boundary' field. */ | 460 | /* Skip a `boundary' field. */ |
| 461 | pos = Fnext_single_char_property_change (pos, Qfield, Qnil, Qnil); | 461 | pos = Fnext_single_char_property_change (pos, Qfield, Qnil, Qnil); |
| 462 | 462 | ||