Mercurial > vim

comparison src/if_tcl.c @ 2982:a56259157c93 v7.3.263

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 bfade53bcafb
children 045fdc5b6056
comparison
equal deleted inserted replaced
2981:65ab2bb3ff47 2982:a56259157c93
1882 tclexit(error) 1882 tclexit(error)
1883 int error; 1883 int error;
1884 { 1884 {
1885 int newerr = OK; 1885 int newerr = OK;
1886 1886
1887 if (error == TCL_EXIT ) 1887 if (error == TCL_EXIT)
1888 { 1888 {
1889 int retval; 1889 int retval;
1890 char buf[50]; 1890 char buf[50];
1891 Tcl_Obj *robj; 1891 Tcl_Obj *robj;
1892 1892
1893 robj = Tcl_GetObjResult(tclinfo.interp); 1893 robj = Tcl_GetObjResult(tclinfo.interp);
1894 if( Tcl_GetIntFromObj(tclinfo.interp, robj, &retval) != TCL_OK ) 1894 if (Tcl_GetIntFromObj(tclinfo.interp, robj, &retval) != TCL_OK)
1895 { 1895 {
1896 EMSG(_("E281: TCL ERROR: exit code is not int!? Please report this to vim-dev@vim.org")); 1896 EMSG(_("E281: TCL ERROR: exit code is not int!? Please report this to vim-dev@vim.org"));
1897 newerr = FAIL; 1897 newerr = FAIL;
1898 } 1898 }
1899 else 1899 else
1900 { 1900 {
1901 sprintf(buf, _("E572: exit code %d"), retval); 1901 sprintf(buf, _("E572: exit code %d"), retval);
1902 tclerrmsg(buf); 1902 tclerrmsg(buf);
1903 if (retval == 0 ) 1903 if (retval == 0)
1904 { 1904 {
1905 did_emsg = 0; 1905 did_emsg = 0;
1906 newerr = OK; 1906 newerr = OK;
1907 } 1907 }
1908 else 1908 else