diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/branch.tcl | 4 | ||||
| -rw-r--r-- | lib/browser.tcl | 2 | ||||
| -rw-r--r-- | lib/choose_rev.tcl | 2 |
3 files changed, 4 insertions, 4 deletions
diff --git a/lib/branch.tcl b/lib/branch.tcl index 39e0f2dc98..97c9ec1c00 100644 --- a/lib/branch.tcl +++ b/lib/branch.tcl @@ -8,7 +8,7 @@ proc load_all_heads {} { set rh_len [expr {[string length $rh] + 1}] set all_heads [list] set fd [git_read [list for-each-ref --format=%(refname) $rh]] - fconfigure $fd -translation binary -encoding utf-8 + fconfigure $fd -encoding utf-8 while {[gets $fd line] > 0} { if {!$some_heads_tracking || ![is_tracking_branch $line]} { lappend all_heads [string range $line $rh_len end] @@ -25,7 +25,7 @@ proc load_all_tags {} { --sort=-taggerdate \ --format=%(refname) \ refs/tags]] - fconfigure $fd -translation binary -encoding utf-8 + fconfigure $fd -encoding utf-8 while {[gets $fd line] > 0} { if {![regsub ^refs/tags/ $line {} name]} continue lappend all_tags $name diff --git a/lib/browser.tcl b/lib/browser.tcl index f53eb952cf..fe72de025e 100644 --- a/lib/browser.tcl +++ b/lib/browser.tcl @@ -195,7 +195,7 @@ method _ls {tree_id {name {}}} { $w conf -state disabled set fd [git_read [list ls-tree -z $tree_id]] - fconfigure $fd -blocking 0 -translation binary -encoding utf-8 + fconfigure $fd -blocking 0 -encoding utf-8 fileevent $fd readable [cb _read $fd] } diff --git a/lib/choose_rev.tcl b/lib/choose_rev.tcl index 7a9e3c83bb..4cf6cebac4 100644 --- a/lib/choose_rev.tcl +++ b/lib/choose_rev.tcl @@ -570,7 +570,7 @@ method _reflog_last {name} { set last {} if {[catch {set last [file mtime [gitdir $name]]}] && ![catch {set g [safe_open_file [gitdir logs $name] r]}]} { - fconfigure $g -translation binary + fconfigure $g -encoding iso8859-1 while {[gets $g line] >= 0} { if {[regexp {> ([1-9][0-9]*) } $line line when]} { set last $when |