diff options
| author | Jim Blandy <jimb@redhat.com> | 1993-07-05 08:13:50 +0000 |
|---|---|---|
| committer | Jim Blandy <jimb@redhat.com> | 1993-07-05 08:13:50 +0000 |
| commit | b1e94638f6da95840698d05c3c2c400778df22b2 (patch) | |
| tree | 006c38b51846287ec14f6dc88244d31dd052fe6d /src/textprop.c | |
| parent | 375aa801bac081fcb10f105b73fd7fbd2c535567 (diff) | |
| download | emacs-b1e94638f6da95840698d05c3c2c400778df22b2.tar.gz | |
* 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.
Diffstat (limited to 'src/textprop.c')
| -rw-r--r-- | src/textprop.c | 8 |
1 files 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; |