Merge branch 'kb/unicode' into pu

patthoyts · patthoyts · commit be44aee7ab4a · 2016-10-20T11:06:28.000+01:00
diff --git a/git-gui.sh b/git-gui.sh
@@ -534,28 +534,10 @@ proc _lappend_nice {cmd_var} {
 }
 
 proc git {args} {
-	set opt [list]
-
-	while {1} {
-		switch -- [lindex $args 0] {
-		--nice {
-			_lappend_nice opt
-		}
-
-		default {
-			break
-		}
-
-		}
-
-		set args [lrange $args 1 end]
-	}
-
-	set cmdp [_git_cmd [lindex $args 0]]
-	set args [lrange $args 1 end]
-
-	_trace_exec [concat $opt $cmdp $args]
-	set result [eval exec $opt $cmdp $args]
+	set fd [eval [list git_read] $args]
+	fconfigure $fd -translation binary -encoding utf-8
+	set result [string trimright [read $fd] "\n"]
+	close $fd
 	if {$::_trace} {
 		puts stderr "< $result"
 	}
@@ -1111,7 +1093,7 @@ git-version proc _parse_config {arr_name args} {
 				[list git_read config] \
 				$args \
 				[list --null --list]]
-			fconfigure $fd_rc -translation binary
+			fconfigure $fd_rc -translation binary -encoding utf-8
 			set buf [read $fd_rc]
 			close $fd_rc
 		}
@@ -1691,7 +1673,7 @@ proc read_diff_index {fd after} {
 		set i [split [string range $buf_rdi $c [expr {$z1 - 2}]] { }]
 		set p [string range $buf_rdi $z1 [expr {$z2 - 1}]]
 		merge_state \
-			[encoding convertfrom $p] \
+			[encoding convertfrom utf-8 $p] \
 			[lindex $i 4]? \
 			[list [lindex $i 0] [lindex $i 2]] \
 			[list]
@@ -1724,7 +1706,7 @@ proc read_diff_files {fd after} {
 		set i [split [string range $buf_rdf $c [expr {$z1 - 2}]] { }]
 		set p [string range $buf_rdf $z1 [expr {$z2 - 1}]]
 		merge_state \
-			[encoding convertfrom $p] \
+			[encoding convertfrom utf-8 $p] \
 			?[lindex $i 4] \
 			[list] \
 			[list [lindex $i 0] [lindex $i 2]]
@@ -1747,7 +1729,7 @@ proc read_ls_others {fd after} {
 	set pck [split $buf_rlo "\0"]
 	set buf_rlo [lindex $pck end]
 	foreach p [lrange $pck 0 end-1] {
-		set p [encoding convertfrom $p]
+		set p [encoding convertfrom utf-8 $p]
 		if {[string index $p end] eq {/}} {
 			set p [string range $p 0 end-1]
 		}
diff --git a/lib/browser.tcl b/lib/browser.tcl
@@ -197,7 +197,7 @@ method _ls {tree_id {name {}}} {
 	$w conf -state disabled
 
 	set fd [git_read ls-tree -z $tree_id]
-	fconfigure $fd -blocking 0 -translation binary -encoding binary
+	fconfigure $fd -blocking 0 -translation binary -encoding utf-8
 	fileevent $fd readable [cb _read $fd]
 }
 
diff --git a/lib/index.tcl b/lib/index.tcl
@@ -115,7 +115,7 @@ proc write_update_indexinfo {fd pathList totalCnt batch after} {
 		set info [lindex $s 2]
 		if {$info eq {}} continue
 
-		puts -nonewline $fd "$info\t[encoding convertto $path]\0"
+		puts -nonewline $fd "$info\t[encoding convertto utf-8 $path]\0"
 		display_file $path $new
 	}
 
@@ -186,7 +186,7 @@ proc write_update_index {fd pathList totalCnt batch after} {
 		?M {set new M_}
 		?? {continue}
 		}
-		puts -nonewline $fd "[encoding convertto $path]\0"
+		puts -nonewline $fd "[encoding convertto utf-8 $path]\0"
 		display_file $path $new
 	}
 
@@ -247,7 +247,7 @@ proc write_checkout_index {fd pathList totalCnt batch after} {
 		?M -
 		?T -
 		?D {
-			puts -nonewline $fd "[encoding convertto $path]\0"
+			puts -nonewline $fd "[encoding convertto utf-8 $path]\0"
 			display_file $path ?_
 		}
 		}

Original file line number	Diff line number	Diff line change
`@@ -197,7 +197,7 @@ method _ls {tree_id {name {}}} {`
`197`	`197`	`$w conf -state disabled`
`198`	`198`
`199`	`199`	`set fd [git_read ls-tree -z $tree_id]`
`200`		`- fconfigure $fd -blocking 0 -translation binary -encoding binary`
	`200`	`+ fconfigure $fd -blocking 0 -translation binary -encoding utf-8`
`201`	`201`	`fileevent $fd readable [cb _read $fd]`
`202`	`202`	`}`
`203`	`203`
Original file line number	Diff line number	Diff line change
`@@ -115,7 +115,7 @@ proc write_update_indexinfo {fd pathList totalCnt batch after} {`
`115`	`115`	`set info [lindex $s 2]`
`116`	`116`	`if {$info eq {}} continue`
`117`	`117`
`118`		`- puts -nonewline $fd "$info\t[encoding convertto $path]\0"`
	`118`	`+ puts -nonewline $fd "$info\t[encoding convertto utf-8 $path]\0"`
`119`	`119`	`display_file $path $new`
`120`	`120`	`}`
`121`	`121`
`@@ -186,7 +186,7 @@ proc write_update_index {fd pathList totalCnt batch after} {`
`186`	`186`	`?M {set new M_}`
`187`	`187`	`?? {continue}`
`188`	`188`	`}`
`189`		`- puts -nonewline $fd "[encoding convertto $path]\0"`
	`189`	`+ puts -nonewline $fd "[encoding convertto utf-8 $path]\0"`
`190`	`190`	`display_file $path $new`
`191`	`191`	`}`
`192`	`192`
`@@ -247,7 +247,7 @@ proc write_checkout_index {fd pathList totalCnt batch after} {`
`247`	`247`	`?M -`
`248`	`248`	`?T -`
`249`	`249`	`?D {`
`250`		`- puts -nonewline $fd "[encoding convertto $path]\0"`
	`250`	`+ puts -nonewline $fd "[encoding convertto utf-8 $path]\0"`
`251`	`251`	`display_file $path ?_`
`252`	`252`	`}`
`253`	`253`	`}`