--- rxvt-unicode/src/command.C	2006/01/04 20:43:37	1.235
+++ rxvt-unicode/src/command.C	2006/01/05 01:04:10	1.236
@@ -2735,7 +2735,9 @@
                   // scr_add_lines only works for nlines <= nrow - 1.
                   if (nlines >= nrow - 1)
                     {
-                      scr_add_lines (buf, nlines, str - buf);
+                      if (!PERL_INVOKE ((this, HOOK_ADD_LINES, DT_USTRING_LEN, buf, str - buf, DT_END)))
+                        scr_add_lines (buf, nlines, str - buf);
+
                       nlines = 0;
                       str = buf;
                       eol = str + min (ncol, UBUFSIZ);
@@ -2758,7 +2760,8 @@
               ch = next_char ();
             }
 
-          scr_add_lines (buf, nlines, str - buf);
+          if (!PERL_INVOKE ((this, HOOK_ADD_LINES, DT_USTRING_LEN, buf, str - buf, DT_END)))
+            scr_add_lines (buf, nlines, str - buf);
 
           /*
            * If there have been a lot of new lines, then update the screen