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
*** ../vim-7.1.137/src/if_perl.xs Sat Sep 15 14:48:57 2007
--- src/if_perl.xs Wed Oct 3 17:00:16 2007
***************
*** 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);
}
*** ../vim-7.1.137/src/version.c Sun Oct 7 15:44:28 2007
--- src/version.c Tue Oct 9 10:45:08 2007
***************
*** 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 -- [EMAIL PROTECTED] -- 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 ///
--~--~---------~--~----~------------~-------~--~----~
You received this message from the "vim_dev" maillist.
For more information, visit http://www.vim.org/maillist.php
-~----------~----~----~----~------~----~------~--~---
