From b1e94638f6da95840698d05c3c2c400778df22b2 Mon Sep 17 00:00:00 2001 From: Jim Blandy Date: Mon, 5 Jul 1993 08:13:50 +0000 Subject: [PATCH] * textprop.c (validate_interval_range): Don't increment both *begin and *end if they point to the same thing. (validate_plist): Call QUIT while scanning LIST. --- src/textprop.c | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/src/textprop.c b/src/textprop.c index d22178d0aa3..384682cd256 100644 --- a/src/textprop.c +++ b/src/textprop.c @@ -141,7 +141,8 @@ validate_interval_range (object, begin, end, force) /* User-level Positions in strings start with 0, but the interval code always wants positions starting with 1. */ XFASTINT (*begin) += 1; - XFASTINT (*end) += 1; + if (begin != end) + XFASTINT (*end) += 1; i = s->intervals; if (s->size == 0) @@ -173,7 +174,10 @@ validate_plist (list) register int i; register Lisp_Object tail; for (i = 0, tail = list; !NILP (tail); i++) - tail = Fcdr (tail); + { + tail = Fcdr (tail); + QUIT; + } if (i & 1) error ("Odd length text property list"); return list; -- 2.39.5