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