Mercurial > emacs

comparison src/editfns.c @ 32517:78c3fdea490c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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.
author Miles Bader <miles@gnu.org>
date Mon, 16 Oct 2000 07:27:10 +0000
parents 40df6727225a
children 6958fdfed738
comparison
equal deleted inserted replaced
32516:f89fc1421b53 32517:78c3fdea490c
610 XSETFASTINT (new_pos, PT); 610 XSETFASTINT (new_pos, PT);
611 } 611 }
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
619 move NEW_POS so that it is. */ 620 move NEW_POS so that it is. */
620 { 621 {