@@ -10599,7 +10599,7 @@ proc movedhead {hid head} {
1059910599}
1060010600
1060110601proc changedrefs {} {
10602- global cached_dheads cached_dtags cached_atags
10602+ global cached_dheads cached_dtags cached_atags cached_tagcontent
1060310603 global arctags archeads arcnos arcout idheads idtags
1060410604
1060510605 foreach id [concat [array names idheads] [array names idtags]] {
@@ -10611,6 +10611,7 @@ proc changedrefs {} {
1061110611 }
1061210612 }
1061310613 }
10614+ catch {unset cached_tagcontent}
1061410615 catch {unset cached_dtags}
1061510616 catch {unset cached_atags}
1061610617 catch {unset cached_dheads}
@@ -10663,7 +10664,7 @@ proc listrefs {id} {
1066310664}
1066410665
1066510666proc showtag {tag isnew} {
10666- global ctext tagcontents tagids linknum tagobjid
10667+ global ctext cached_tagcontent tagids linknum tagobjid
1066710668
1066810669 if {$isnew } {
1066910670 addtohistory [list showtag $tag 0] savectextpos
@@ -10672,13 +10673,13 @@ proc showtag {tag isnew} {
1067210673 clear_ctext
1067310674 settabs 0
1067410675 set linknum 0
10675- if {![info exists tagcontents ($tag )]} {
10676+ if {![info exists cached_tagcontent ($tag )]} {
1067610677 catch {
10677- set tagcontents ($tag ) [exec git cat-file tag $tag ]
10678+ set cached_tagcontent ($tag ) [exec git cat-file tag $tag ]
1067810679 }
1067910680 }
10680- if {[info exists tagcontents ($tag )]} {
10681- set text $tagcontents ($tag)
10681+ if {[info exists cached_tagcontent ($tag )]} {
10682+ set text $cached_tagcontent ($tag)
1068210683 } else {
1068310684 set text " [ mc " Tag" ] : $tag \n [ mc " Id" ] : $tagids($tag) "
1068410685 }
0 commit comments