From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 9 Jun 1997 18:21:52 +0000 (+0000)
Subject: (Finsert_char): Check QUIT.
X-Git-Tag: emacs-20.1~1752
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=54e42e2dbd280f86d0366996da23a7bb83b04849;p=emacs.git

(Finsert_char): Check QUIT.
---

diff --git a/src/editfns.c b/src/editfns.c
index 0506e37ef50..ad331e9623b 100644
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -1381,6 +1381,7 @@ from adjoining text, if those properties are sticky.")
     string[i] = str[i % len];
   while (n >= strlen)
     {
+      QUIT;
       if (!NILP (inherit))
 	insert_and_inherit (string, strlen);
       else