(Ffillarray): Fix previous change.

1 files changed, 9 insertions, 7 deletions

diff --git a/src/fns.c b/src/fns.c
index 5414e991cfc..c802c5c803a 100644
--- a/src/fns.c
+++ b/src/fns.c
@@ -1794,14 +1794,16 @@ ARRAY is a vector, string, char-table, or bool-vector.")
           int len = CHAR_STRING (charval, workbuf, str);
           int size_byte = STRING_BYTES (XSTRING (array));
           unsigned char *p1 = p, *endp = p + size_byte;
-          int this_len, i;
+          int i;
 
-          for (i = 0; i < size; i++)
-            {
-              this_len = MULTIBYTE_FORM_LENGTH (p1, endp - p1);
-              if (len != this_len)
-                error ("Attempt to change byte length of a string");
-            }
+          if (size != size_byte)
+            while (p1 < endp)
+              {
+                int this_len = MULTIBYTE_FORM_LENGTH (p1, endp - p1);
+                if (len != this_len)
+                  error ("Attempt to change byte length of a string");
+                p1 += this_len;
+              }
           for (i = 0; i < size_byte; i++)
             *p++ = str[i % len];
         }