diff options
| author | fvogel <fvogel@noemail.net> | 2014-10-11 20:13:03 (GMT) |
|---|---|---|
| committer | fvogel <fvogel@noemail.net> | 2014-10-11 20:13:03 (GMT) |
| commit | bc49795576fda5a546cea0e9f337bd94dde85c77 (patch) | |
| tree | e215cf19246ca82a5f36c2ff047d5508ca420f62 | |
| parent | 0751f975f95a43bdc1cb9d057debae488f261717 (diff) | |
| parent | 82d35c7d4da6407a0a7017f39afff836076cce20 (diff) | |
| download | tk-bc49795576fda5a546cea0e9f337bd94dde85c77.zip tk-bc49795576fda5a546cea0e9f337bd94dde85c77.tar.gz tk-bc49795576fda5a546cea0e9f337bd94dde85c77.tar.bz2 | |
Fixed failing textDisp-19.11.20 and textDisp-19.11.23 - Bug [810c43d789]
FossilOrigin-Name: 668a14da13068920b7ce8aaf5000c2c9d73dc830
| -rw-r--r-- | generic/tkTextTag.c | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/generic/tkTextTag.c b/generic/tkTextTag.c index 5162e16..dad03bf 100644 --- a/generic/tkTextTag.c +++ b/generic/tkTextTag.c @@ -169,6 +169,14 @@ TkTextTagCmd( return TCL_ERROR; } tagPtr = TkTextCreateTag(textPtr, Tcl_GetString(objv[3]), NULL); + if (tagPtr->elide) { + /* + * Indices are potentially obsolete after adding or removing + * elided character ranges, especially indices having "display" + * or "any" submodifier, therefore increase the epoch. + */ + textPtr->sharedTextPtr->stateEpoch++; + } for (i = 4; i < objc; i += 2) { if (TkTextGetObjIndex(interp, textPtr, objv[i], &index1) != TCL_OK) { |