gitk: Fixing file name encoding issues

Signed-off-by: Kazuhiro Kato <[email protected]>

Author: kkato233

gitk

@@ -493,7 +493,7 @@ proc parseviewrevs {view revs} {
 proc escape_filter_paths {paths} {
 	set escaped [list]
 	foreach path $paths {
-		lappend escaped [string map {\\ \\\\ "\ " "\\\ "} $path]
+		lappend escaped [string map {\\ "/" } $path]
 	}
 	return $escaped
 }
@@ -558,9 +558,8 @@ proc start_rev_list {view} {
 
     if {[catch {
         set fd [open [concat | git log --no-color -z --pretty=raw $show_notes \
-                        --parents --boundary $args --stdin \
-                        "<<[join [concat $revs "--" \
-                                [escape_filter_paths $files]] "\\n"]"] r]
+                        --parents --boundary $args \
+                        [list $revs "--" [escape_filter_paths $files]]] r]
     } err]} {
         error_popup "[mc "Error executing git log:"] $err"
         return 0
@@ -712,10 +711,8 @@ proc updatecommits {} {
     }
     if {[catch {
         set fd [open [concat | git log --no-color -z --pretty=raw $show_notes \
-                        --parents --boundary $args --stdin \
-                        "<<[join [concat $revs "--" \
-                                [escape_filter_paths \
-                                        $vfilelimit($view)]] "\\n"]"] r]
+                        --parents --boundary $args \
+                        [list $revs "--" [escape_filter_paths $vfilelimit($view)]] r]]
     } err]} {
         error_popup "[mc "Error executing git log:"] $err"
         return
@@ -12742,11 +12739,17 @@ foreach arg $argv {
 if {$selecthead eq "HEAD"} {
     set selecthead {}
 }
+proc capture_enc {cmd enc} {
+    set f [open "| $cmd" r]
+    fconfigure $f -encoding $enc
+    read $f
+}
 
 if {$i >= [llength $argv] && $revtreeargs ne {}} {
     # no -- on command line, but some arguments (other than --argscmd)
     if {[catch {
-        set f [eval exec git rev-parse --no-revs --no-flags $revtreeargs]
+        set f [capture_enc "git rev-parse --no-revs --no-flags $revtreeargs" utf-8]
+        set f [string trimright "$f" "\n"]
         set cmdline_files [split $f "\n"]
         set n [llength $cmdline_files]
         set revtreeargs [lrange $revtreeargs 0 end-$n]