From 2db1186a254ad63ee58c5cc68bb7f1bb3290c4be Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Fri, 1 Nov 2002 19:06:06 +0000 Subject: [PATCH] (find_field): Make an exception for nil fields. --- src/editfns.c | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/src/editfns.c b/src/editfns.c index bf4976273aa..57c96ff7844 100644 --- a/src/editfns.c +++ b/src/editfns.c @@ -531,6 +531,12 @@ find_field (pos, merge_at_boundary, beg_limit, beg, end_limit, end) at_field_end = 1; if (!EQ (field, before_field)) at_field_start = 1; + if (NILP (field) && at_field_start && at_field_end) + /* If an inserted char would have a nil field while the surrounding + text is non-nil, we're probably not looking at a + zero-length field, but instead at a non-nil field that's + not intended for editing (such as comint's prompts). */ + at_field_end = at_field_start = 0; } /* Note about special `boundary' fields: -- 2.39.2