diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2010-02-24 10:32:17 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2010-02-24 10:32:17 (GMT) |
| commit | 9f6e608ac5b1a6b4bb9382774a7ae4e263533dde (patch) | |
| tree | bb3ca2b92677cccc5b5f36dbbcc5eee5aafa3e7d /generic/tclTimer.c | |
| parent | eaefb7d9cf0d3569d504889654cc1ca47d6e6d92 (diff) | |
| download | tcl-9f6e608ac5b1a6b4bb9382774a7ae4e263533dde.zip tcl-9f6e608ac5b1a6b4bb9382774a7ae4e263533dde.tar.gz tcl-9f6e608ac5b1a6b4bb9382774a7ae4e263533dde.tar.bz2 | |
Pure whitespace changes, changing to follow Engineering Manual style.
Diffstat (limited to 'generic/tclTimer.c')
| -rw-r--r-- | generic/tclTimer.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclTimer.c b/generic/tclTimer.c index d65ca54..aaa3493 100644 --- a/generic/tclTimer.c +++ b/generic/tclTimer.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclTimer.c,v 1.41 2009/12/28 09:53:36 dkf Exp $ + * RCS: @(#) $Id: tclTimer.c,v 1.42 2010/02/24 10:32:17 dkf Exp $ */ #include "tclInt.h" @@ -847,7 +847,7 @@ Tcl_AfterObjCmd( if (objc == 3) { afterPtr->commandPtr = objv[2]; } else { - afterPtr->commandPtr = Tcl_ConcatObj(objc-2, objv+2); + afterPtr->commandPtr = Tcl_ConcatObj(objc-2, objv+2); } Tcl_IncrRefCount(afterPtr->commandPtr); @@ -964,7 +964,7 @@ Tcl_AfterObjCmd( resultListPtr = Tcl_NewObj(); Tcl_ListObjAppendElement(interp, resultListPtr, afterPtr->commandPtr); Tcl_ListObjAppendElement(interp, resultListPtr, Tcl_NewStringObj( - (afterPtr->token == NULL) ? "idle" : "timer", -1)); + (afterPtr->token == NULL) ? "idle" : "timer", -1)); Tcl_SetObjResult(interp, resultListPtr); break; } |