git-gui: replace encoding binary with iso8859-1
git-gui currently configures some channels as '-encoding binary' when the channel is not really binary (e.g, the channel is consumed as lines of text). In 8.6, '-encoding binary' is an alias for '-encoding iso8859), but TIP 699 removes this alias for Tcl 9.0. Let's switch to '-encoding iso8859-1' to be compatible across Tcl versions. Signed-off-by: Mark Levedahl <mlevedahl@gmail.com>
Mark Levedahl committed
May 22, 2025 at 13:33 UTC
40f54f670a01b6ae4f13e0888796948ddce9104c
2 files changed
+3
-3
lib/blame.tcl
+1
-1
@@ -985,7 +985,7 @@ method _showcommit {cur_w lno} {
985
set msg {}
986
catch {
987
set fd [git_read [list cat-file commit $cmit]]
988
- fconfigure $fd -encoding binary -translation lf
988
+ fconfigure $fd -encoding iso8859-1 -translation lf
989
# By default commits are assumed to be in utf-8
990
set enc utf-8
991
while {[gets $fd line] > 0} {
lib/commit.tcl
+2
-2
@@ -28,7 +28,7 @@ You are currently in the middle of a merge that has not been fully completed. Y
28
set name ""
29
set email ""
30
set fd [git_read [list cat-file commit $curHEAD]]
31
- fconfigure $fd -encoding binary -translation lf
31
+ fconfigure $fd -encoding iso8859-1 -translation lf
32
# By default commits are assumed to be in utf-8
33
set enc utf-8
34
while {[gets $fd line] > 0} {
@@ -361,7 +361,7 @@ proc commit_committree {fd_wt curHEAD msg_p} {
361
#
362
if {$commit_type eq {normal}} {
363
set fd_ot [git_read [list cat-file commit $PARENT]]
364
- fconfigure $fd_ot -encoding binary -translation lf
364
+ fconfigure $fd_ot -encoding iso8859-1 -translation lf
365
set old_tree [gets $fd_ot]
366
close $fd_ot
367