0
0
mirror of https://github.com/vim/vim.git synced 2025-07-26 11:04:33 -04:00

updated for version 7.3.263

Problem:    Perl and Tcl have a few code style problems.
Solution:   Clean it up.  (Elias Diem)
This commit is contained in:
Bram Moolenaar 2011-07-27 14:15:46 +02:00
parent d2221131cf
commit a171162356
3 changed files with 10 additions and 8 deletions

View File

@ -755,7 +755,7 @@ ex_perl(eap)
#ifdef HAVE_SANDBOX
if (sandbox)
{
safe = perl_get_sv( "VIM::safe", FALSE );
safe = perl_get_sv("VIM::safe", FALSE);
# ifndef MAKE_TEST /* avoid a warning for unreachable code */
if (safe == NULL || !SvTRUE(safe))
EMSG(_("E299: Perl evaluation forbidden in sandbox without the Safe module"));
@ -1108,7 +1108,7 @@ Cursor(win, ...)
VIWIN win
PPCODE:
if(items == 1)
if (items == 1)
{
EXTEND(sp, 2);
if (!win_valid(win))
@ -1116,7 +1116,7 @@ Cursor(win, ...)
PUSHs(sv_2mortal(newSViv(win->w_cursor.lnum)));
PUSHs(sv_2mortal(newSViv(win->w_cursor.col)));
}
else if(items == 3)
else if (items == 3)
{
int lnum, col;
@ -1249,9 +1249,9 @@ Delete(vimbuf, ...)
{
lnum = SvIV(ST(1));
count = 1 + SvIV(ST(2)) - lnum;
if(count == 0)
if (count == 0)
count = 1;
if(count < 0)
if (count < 0)
{
lnum -= count;
count = -count;

View File

@ -1884,14 +1884,14 @@ tclexit(error)
{
int newerr = OK;
if (error == TCL_EXIT )
if (error == TCL_EXIT)
{
int retval;
char buf[50];
Tcl_Obj *robj;
robj = Tcl_GetObjResult(tclinfo.interp);
if( Tcl_GetIntFromObj(tclinfo.interp, robj, &retval) != TCL_OK )
if (Tcl_GetIntFromObj(tclinfo.interp, robj, &retval) != TCL_OK)
{
EMSG(_("E281: TCL ERROR: exit code is not int!? Please report this to vim-dev@vim.org"));
newerr = FAIL;
@ -1900,7 +1900,7 @@ tclexit(error)
{
sprintf(buf, _("E572: exit code %d"), retval);
tclerrmsg(buf);
if (retval == 0 )
if (retval == 0)
{
did_emsg = 0;
newerr = OK;

View File

@ -709,6 +709,8 @@ static char *(features[]) =
static int included_patches[] =
{ /* Add new patch number below this line */
/**/
263,
/**/
262,
/**/