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

updated for version 7.3.263

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/if_perl.xs
View File

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

6
src/if_tcl.c
View File

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

2
src/version.c
View File

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