From cf2597da0ddf81c3b7a3894449d7e416c1be8200 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Tue, 21 Dec 2021 05:25:50 +0100 Subject: Revert "Speed up find_field when called from outside a field" This reverts commit 4d8af56c76ee20bc8e1ebdeef5c4100cea005974. This leads to lisp-mode-tests failures --- src/editfns.c | 21 --------------------- 1 file changed, 21 deletions(-) diff --git a/src/editfns.c b/src/editfns.c index 355a7a3e299..5c9c34dc352 100644 --- a/src/editfns.c +++ b/src/editfns.c @@ -437,27 +437,6 @@ find_field (Lisp_Object pos, Lisp_Object merge_at_boundary, after_field = get_char_property_and_overlay (pos, Qfield, Qnil, NULL); - - /* We're not in a field, so find the prev/next area with a field - property. */ - if (NILP (after_field)) - { - if (beg) - { - Lisp_Object p = Fprevious_single_char_property_change (pos, Qfield, - Qnil, - beg_limit); - *beg = NILP (p) ? BEGV : XFIXNAT (p); - } - if (end) - { - Lisp_Object p = Fnext_single_char_property_change (pos, Qfield, Qnil, - end_limit); - *end = NILP (p) ? ZV : XFIXNAT (p); - } - return; - } - before_field = (XFIXNAT (pos) > BEGV ? get_char_property_and_overlay (make_fixnum (XFIXNUM (pos) - 1), -- cgit v1.2.3