diff src/if_perl.xs @ 1423:01a0da54773e v7.1.138

updated for version 7.1-138
author vimboss
date Tue, 09 Oct 2007 08:47:27 +0000
parents c845dcf7fafa
children 0b796e045c42
line wrap: on
line diff
--- a/src/if_perl.xs
+++ b/src/if_perl.xs
@@ -445,13 +445,13 @@ msg_split(s, attr)
     char *next;
     char *token = (char *)s;
 
-    while ((next = strchr(token, '\n')))
+    while ((next = strchr(token, '\n')) && !got_int)
     {
 	*next++ = '\0';			/* replace \n with \0 */
 	msg_attr((char_u *)token, attr);
 	token = next;
     }
-    if (*token)
+    if (*token && !got_int)
 	msg_attr((char_u *)token, attr);
 }