2001-05-14 12:42:49 -04:00
|
|
|
|
$OpenBSD: patch-tcl_tclHistory_c,v 1.2 2001/05/14 16:42:55 millert Exp $
|
|
|
|
|
|
--- tcl/tclHistory.c.orig Fri Feb 24 14:19:55 1995
|
|
|
|
|
|
+++ tcl/tclHistory.c Mon May 14 10:33:07 2001
|
2001-03-12 10:59:02 -05:00
|
|
|
|
@@ -664,6 +664,7 @@ RevCommand(iPtr, string)
|
|
|
|
|
|
revPtr->lastIndex = iPtr->evalLast - iPtr->historyFirst - 1;
|
|
|
|
|
|
revPtr->newSize = strlen(string);
|
|
|
|
|
|
revPtr->newBytes = malloc((unsigned) (revPtr->newSize+1));
|
|
|
|
|
|
+ revPtr->nextPtr = NULL;
|
|
|
|
|
|
strcpy(revPtr->newBytes, string);
|
|
|
|
|
|
InsertRev(iPtr, revPtr);
|
|
|
|
|
|
}
|
|
|
|
|
|
@@ -732,6 +733,7 @@ RevResult(iPtr, string)
|
|
|
|
|
|
argv[0] = string;
|
|
|
|
|
|
revPtr->newBytes = Tcl_Merge(1, argv);
|
|
|
|
|
|
revPtr->newSize = strlen(revPtr->newBytes);
|
|
|
|
|
|
+ revPtr->nextPtr = NULL;
|
|
|
|
|
|
InsertRev(iPtr, revPtr);
|
|
|
|
|
|
}
|
|
|
|
|
|
|
