X-Git-Url: https://git.octo.it/?a=blobdiff_plain;ds=sidebyside;f=gitk;h=7a0d766ee1615d228e6458ea4d41c3fd6f98d52a;hb=8b19280930eba7d66549f64344a49b3641821046;hp=e21d7a28f1564992263951d575586931c21f511a;hpb=d6e8149bc53de57cab7cc0d9aff6c2341f3a7efa;p=git.git

diff --git a/gitk b/gitk
index e21d7a28..7a0d766e 100755
--- a/gitk
+++ b/gitk
@@ -1799,9 +1799,21 @@ proc selectline {l isnew} {
 	}
 	$ctext insert end "\n"
     }
-    $ctext insert end "\n"
+ 
     set commentstart [$ctext index "end - 1c"]
-    set comment [lindex $info 5]
+    set comment {}
+    foreach p $parents($id) {
+	set l "..."
+	if {[info exists commitinfo($p)]} {
+	    set l [lindex $commitinfo($p) 0]
+	    if {[string length $l] > 32} {
+		set l "[string range $l 0 28] ..."
+	    }
+	}
+	append comment "Parent: $p  ($l)\n"
+    }
+    append comment "\n"
+    append comment [lindex $info 5]
     $ctext insert end $comment
     $ctext insert end "\n"