@@ -10599,7 +10599,7 @@ proc movedhead {hid head} {
10599
10599
}
10600
10600
10601
10601
proc changedrefs {} {
10602
- global cached_dheads cached_dtags cached_atags
10602
+ global cached_dheads cached_dtags cached_atags cached_tagcontent
10603
10603
global arctags archeads arcnos arcout idheads idtags
10604
10604
10605
10605
foreach id [concat [array names idheads] [array names idtags]] {
@@ -10611,6 +10611,7 @@ proc changedrefs {} {
10611
10611
}
10612
10612
}
10613
10613
}
10614
+ catch {unset cached_tagcontent}
10614
10615
catch {unset cached_dtags}
10615
10616
catch {unset cached_atags}
10616
10617
catch {unset cached_dheads}
@@ -10663,7 +10664,7 @@ proc listrefs {id} {
10663
10664
}
10664
10665
10665
10666
proc showtag {tag isnew} {
10666
- global ctext tagcontents tagids linknum tagobjid
10667
+ global ctext cached_tagcontent tagids linknum tagobjid
10667
10668
10668
10669
if {$isnew } {
10669
10670
addtohistory [list showtag $tag 0] savectextpos
@@ -10672,13 +10673,13 @@ proc showtag {tag isnew} {
10672
10673
clear_ctext
10673
10674
settabs 0
10674
10675
set linknum 0
10675
- if {![info exists tagcontents ($tag )]} {
10676
+ if {![info exists cached_tagcontent ($tag )]} {
10676
10677
catch {
10677
- set tagcontents ($tag ) [exec git cat-file tag $tag ]
10678
+ set cached_tagcontent ($tag ) [exec git cat-file tag $tag ]
10678
10679
}
10679
10680
}
10680
- if {[info exists tagcontents ($tag )]} {
10681
- set text $tagcontents ($tag)
10681
+ if {[info exists cached_tagcontent ($tag )]} {
10682
+ set text $cached_tagcontent ($tag)
10682
10683
} else {
10683
10684
set text " [ mc " Tag" ] : $tag \n [ mc " Id" ] : $tagids($tag) "
10684
10685
}
0 commit comments