[PATCH] gitk doesn't handle filenames with space correctly

From: Frédéric Jolliton <gmane@frederic.jolliton.com>
Date: Apr 7, 2007, 01:22 UTC
Message-ID: <86slbd6kr0.fsf@mau.intra.tuxee.net>

Hi,

Here is an attempt to fix gitk such that it can display filenames with space correctly, in the right column (Patch/Tree). I don't know TCL, so probably that a better solution exists.

--- gitk.orig 2007-04-07 02:36:05.000000000 +0200 +++ gitk 2007-04-07 03:13:16.000000000 +0200

@@ -4114,8 +4114,7 @@
 
     while {[gets $gtf line] >= 0} {
 	if {[lindex $line 1] ne "blob"} continue
-	set sha1 [lindex $line 2]
-	set fname [lindex $line 3]
+	regexp {^[^ ]+ [^ ]+ ([^ ]+)\t(.*)} $line -> sha1 fname
 	lappend treefilelist($id) $fname
 	lappend treeidlist($id) $sha1
     }
@@ -4324,7 +4323,7 @@
 	}
 	return
     }
-    set file [lindex $line 5]
+    regexp {^[^ ]+ [^ ]+ [^ ]+ [^ ]+ [^ ]+\t(.*)} $line -> file
     lappend treediff $file
 }

-- 
Frédéric Jolliton