diff options
| author | Miles Bader | 2000-10-16 07:28:24 +0000 |
|---|---|---|
| committer | Miles Bader | 2000-10-16 07:28:24 +0000 |
| commit | f657bbf68b814be8f8cf4c57cdc8d1d5218ab9c9 (patch) | |
| tree | 0de855882d271fe5b78369bbadc0daf5ea718b1e /src/editfns.c | |
| parent | bd9e92878be4d85998560efbefcedf45c26dccec (diff) | |
| download | emacs-f657bbf68b814be8f8cf4c57cdc8d1d5218ab9c9.tar.gz emacs-f657bbf68b814be8f8cf4c57cdc8d1d5218ab9c9.zip | |
(Fconstrain_to_field): Check carefully for field boundaries if either
OLD_POS or NEW_POS has a non-nil field property, even if they're the same.
Diffstat (limited to 'src/editfns.c')
| -rw-r--r-- | src/editfns.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/editfns.c b/src/editfns.c index 4f7a7c7db1f..57dbdaae0cc 100644 --- a/src/editfns.c +++ b/src/editfns.c | |||
| @@ -612,7 +612,8 @@ Field boundaries are not noticed if `inhibit-field-text-motion' is non-nil.") | |||
| 612 | 612 | ||
| 613 | if (NILP (Vinhibit_field_text_motion) | 613 | if (NILP (Vinhibit_field_text_motion) |
| 614 | && !EQ (new_pos, old_pos) | 614 | && !EQ (new_pos, old_pos) |
| 615 | && !char_property_eq (Qfield, new_pos, old_pos) | 615 | && (!NILP (Fget_char_property (new_pos, Qfield, Qnil)) |
| 616 | || !NILP (Fget_char_property (old_pos, Qfield, Qnil))) | ||
| 616 | && (NILP (inhibit_capture_property) | 617 | && (NILP (inhibit_capture_property) |
| 617 | || NILP (Fget_char_property(old_pos, inhibit_capture_property, Qnil)))) | 618 | || NILP (Fget_char_property(old_pos, inhibit_capture_property, Qnil)))) |
| 618 | /* NEW_POS is not within the same field as OLD_POS; try to | 619 | /* NEW_POS is not within the same field as OLD_POS; try to |