diff options
| author | mig <mig> | 2013-01-14 19:11:55 (GMT) |
|---|---|---|
| committer | mig <mig> | 2013-01-14 19:11:55 (GMT) |
| commit | e51f88c164f863f53bb520cfdc89f5555bf4daab (patch) | |
| tree | a13c23e37f61f1200b65cf152402c6255839473d /generic/tclHistory.c | |
| parent | 59236eb2569059175cab295ee54f00a02cd2b9b9 (diff) | |
| download | tcl-e51f88c164f863f53bb520cfdc89f5555bf4daab.zip tcl-e51f88c164f863f53bb520cfdc89f5555bf4daab.tar.gz tcl-e51f88c164f863f53bb520cfdc89f5555bf4daab.tar.bz2 | |
backout novem - merges are noisy enough as it is
Diffstat (limited to 'generic/tclHistory.c')
| -rw-r--r-- | generic/tclHistory.c | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/generic/tclHistory.c b/generic/tclHistory.c index 010b6cc..5e70b6a 100644 --- a/generic/tclHistory.c +++ b/generic/tclHistory.c @@ -75,6 +75,13 @@ Tcl_RecordAndEval( result = Tcl_RecordAndEvalObj(interp, cmdPtr, flags); /* + * Move the interpreter's object result to the string result, then + * reset the object result. + */ + + (void) Tcl_GetStringResult(interp); + + /* * Discard the Tcl object created to hold the command. */ |