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