Mercurial > vim
changeset 2982:a56259157c93 v7.3.263
updated for version 7.3.263
Problem: Perl and Tcl have a few code style problems.
Solution: Clean it up. (Elias Diem)
| author | Bram Moolenaar <bram@vim.org> |
|---|---|
| date | Wed, 27 Jul 2011 14:15:46 +0200 |
| parents | 65ab2bb3ff47 |
| children | 16eb33130e94 |
| files | src/if_perl.xs src/if_tcl.c src/version.c |
| diffstat | 3 files changed, 10 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/src/if_perl.xs +++ b/src/if_perl.xs @@ -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;
--- a/src/if_tcl.c +++ b/src/if_tcl.c @@ -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;