diff options
author | Lars Ingebrigtsen <larsi@gnus.org> | 2021-12-21 05:25:50 +0100 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-12-21 05:25:50 +0100 |
commit | cf2597da0ddf81c3b7a3894449d7e416c1be8200 (patch) | |
tree | ab99afc48bb6b7b0b036e872b74d5baa52612eb0 | |
parent | 18ce031f9b21942586255fca86a5acf364742600 (diff) | |
download | emacs-cf2597da0ddf81c3b7a3894449d7e416c1be8200.tar.gz |
Revert "Speed up find_field when called from outside a field"
This reverts commit 4d8af56c76ee20bc8e1ebdeef5c4100cea005974.
This leads to lisp-mode-tests failures
-rw-r--r-- | src/editfns.c | 21 |
1 files changed, 0 insertions, 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), |