… | |
… | |
2733 | } |
2733 | } |
2734 | |
2734 | |
2735 | // scr_add_lines only works for nlines <= nrow - 1. |
2735 | // scr_add_lines only works for nlines <= nrow - 1. |
2736 | if (nlines >= nrow - 1) |
2736 | if (nlines >= nrow - 1) |
2737 | { |
2737 | { |
|
|
2738 | if (!PERL_INVOKE ((this, HOOK_ADD_LINES, DT_USTRING_LEN, buf, str - buf, DT_END))) |
2738 | scr_add_lines (buf, nlines, str - buf); |
2739 | scr_add_lines (buf, nlines, str - buf); |
|
|
2740 | |
2739 | nlines = 0; |
2741 | nlines = 0; |
2740 | str = buf; |
2742 | str = buf; |
2741 | eol = str + min (ncol, UBUFSIZ); |
2743 | eol = str + min (ncol, UBUFSIZ); |
2742 | } |
2744 | } |
2743 | |
2745 | |
… | |
… | |
2756 | |
2758 | |
2757 | seq_begin = cmdbuf_ptr; |
2759 | seq_begin = cmdbuf_ptr; |
2758 | ch = next_char (); |
2760 | ch = next_char (); |
2759 | } |
2761 | } |
2760 | |
2762 | |
|
|
2763 | if (!PERL_INVOKE ((this, HOOK_ADD_LINES, DT_USTRING_LEN, buf, str - buf, DT_END))) |
2761 | scr_add_lines (buf, nlines, str - buf); |
2764 | scr_add_lines (buf, nlines, str - buf); |
2762 | |
2765 | |
2763 | /* |
2766 | /* |
2764 | * If there have been a lot of new lines, then update the screen |
2767 | * If there have been a lot of new lines, then update the screen |
2765 | * What the heck I'll cheat and only refresh less than every page-full. |
2768 | * What the heck I'll cheat and only refresh less than every page-full. |
2766 | * the number of pages between refreshes is refresh_limit, which |
2769 | * the number of pages between refreshes is refresh_limit, which |