Differences From Artifact [4511f20d6c]:

• File generic/tclHistory.c — part of check-in [cd9d1f32be] at 2022-10-21 08:53:46 on branch main — Merge 8.7 (user: jan.nijtmans size: 5554) [more...]

To Artifact [79938575ab]:

• File generic/tclHistory.c — part of check-in [efcf7c37fe] at 2022-11-06 11:19:21 on branch tip-626 — Rebase TIP #626 to latest 9.0. Change Tcl version number from 9.0 to 9.1a0 (user: jan.nijtmans size: 5555) [more...]

141
142
143
144
145
146
147
148
149
150
151
152
153
154
155

    /*
     * Do not call [history] if it has been replaced by an empty proc
     */

    result = Tcl_GetCommandInfo(interp, "::history", &info);
    if (result && (info.deleteProc == TclProcDeleteProc)) {
	Proc *procPtr = (Proc *) info.objClientData;
	call = (procPtr->cmdPtr->compileProc != TclCompileNoOp);
    }

    if (call) {
	Tcl_Obj *list[3];

	/*

|

141
142
143
144
145
146
147
148
149
150
151
152
153
154
155

    /*
     * Do not call [history] if it has been replaced by an empty proc
     */

    result = Tcl_GetCommandInfo(interp, "::history", &info);
    if (result && (info.deleteProc == TclProcDeleteProc)) {
	Proc *procPtr = (Proc *) info.objClientData2;
	call = (procPtr->cmdPtr->compileProc != TclCompileNoOp);
    }

    if (call) {
	Tcl_Obj *list[3];

	/*