Hi all
This is a little source code patch to follow vim's code style.
No functionality changed.
Greetings Elias
--
You received this message from the "vim_dev" maillist.
Do not top-post! Type your reply below the text you are replying to.
For more information, visit http://www.vim.org/maillist.php
*** ../vim/src/if_perl.xs 2011-07-22 15:04:19.000000000 +0200
--- src/if_perl.xs 2011-07-23 16:27:51.000000000 +0200
***************
*** 755,761 ****
#ifdef HAVE_SANDBOX
if (sandbox)
{
! 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"));
--- 747,753 ----
#ifdef HAVE_SANDBOX
if (sandbox)
{
! 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,1114 ****
VIWIN win
PPCODE:
! if(items == 1)
{
EXTEND(sp, 2);
if (!win_valid(win))
--- 1100,1106 ----
VIWIN win
PPCODE:
! if (items == 1)
{
EXTEND(sp, 2);
if (!win_valid(win))
***************
*** 1116,1122 ****
PUSHs(sv_2mortal(newSViv(win->w_cursor.lnum)));
PUSHs(sv_2mortal(newSViv(win->w_cursor.col)));
}
! else if(items == 3)
{
int lnum, col;
--- 1108,1114 ----
PUSHs(sv_2mortal(newSViv(win->w_cursor.lnum)));
PUSHs(sv_2mortal(newSViv(win->w_cursor.col)));
}
! else if (items == 3)
{
int lnum, col;
***************
*** 1249,1257 ****
{
lnum = SvIV(ST(1));
count = 1 + SvIV(ST(2)) - lnum;
! if(count == 0)
count = 1;
! if(count < 0)
{
lnum -= count;
count = -count;
--- 1241,1249 ----
{
lnum = SvIV(ST(1));
count = 1 + SvIV(ST(2)) - lnum;
! if (count == 0)
count = 1;
! if (count < 0)
{
lnum -= count;
count = -count;
*** ../vim/src/if_tcl.c 2011-07-22 15:04:19.000000000 +0200
--- src/if_tcl.c 2011-07-23 16:26:50.000000000 +0200
***************
*** 1884,1897 ****
{
int newerr = OK;
! 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 )
{
EMSG(_("E281: TCL ERROR: exit code is not int!? Please report this to [email protected]"));
newerr = FAIL;
--- 1885,1898 ----
{
int newerr = OK;
! 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)
{
EMSG(_("E281: TCL ERROR: exit code is not int!? Please report this to [email protected]"));
newerr = FAIL;
***************
*** 1900,1906 ****
{
sprintf(buf, _("E572: exit code %d"), retval);
tclerrmsg(buf);
! if (retval == 0 )
{
did_emsg = 0;
newerr = OK;
--- 1901,1907 ----
{
sprintf(buf, _("E572: exit code %d"), retval);
tclerrmsg(buf);
! if (retval == 0)
{
did_emsg = 0;
newerr = OK;
