| To: vim-dev@vim.org |
| Subject: Patch 7.1.138 |
| Fcc: outbox |
| From: Bram Moolenaar <Bram@moolenaar.net> |
| Mime-Version: 1.0 |
| Content-Type: text/plain; charset=ISO-8859-1 |
| Content-Transfer-Encoding: 8bit |
| |
| |
| Patch 7.1.138 |
| Problem: The Perl Msg() function doesn't stop when "q" is typed at the more |
| prompt. (Hari Krishna Dara) |
| Solution: Check got_int. |
| Files: src/if_perl.xs |
| |
| |
| |
| |
| |
| *** 445,457 **** |
| char *next; |
| char *token = (char *)s; |
| |
| ! while ((next = strchr(token, '\n'))) |
| { |
| *next++ = '\0'; /* replace \n with \0 */ |
| msg_attr((char_u *)token, attr); |
| token = next; |
| } |
| ! if (*token) |
| msg_attr((char_u *)token, attr); |
| } |
| |
| --- 445,457 ---- |
| char *next; |
| char *token = (char *)s; |
| |
| ! while ((next = strchr(token, '\n')) && !got_int) |
| { |
| *next++ = '\0'; /* replace \n with \0 */ |
| msg_attr((char_u *)token, attr); |
| token = next; |
| } |
| ! if (*token && !got_int) |
| msg_attr((char_u *)token, attr); |
| } |
| |
| |
| |
| |
| *** 668,669 **** |
| --- 668,671 ---- |
| { /* Add new patch number below this line */ |
| + /**/ |
| + 138, |
| /**/ |
| |
| -- |
| A consultant is a person who takes your money and annoys your employees while |
| tirelessly searching for the best way to extend the consulting contract. |
| (Scott Adams - The Dilbert principle) |
| |
| /// Bram Moolenaar -- Bram@Moolenaar.net -- http://www.Moolenaar.net \\\ |
| /// sponsor Vim, vote for features -- http://www.Vim.org/sponsor/ \\\ |
| \\\ download, build and distribute -- http://www.A-A-P.org /// |
| \\\ help me help AIDS victims -- http://ICCF-Holland.org /// |