git-gui: Skip nicknames when selecting author initials

diff --git a/lib/blame.tcl b/lib/blame.tcl
index b5236548152043c5ec29997a791f5a51fa3f56cb..1d2caac2835c27280e1d4b9ec58c51b746e2dd01 100644 (file)
--- a/lib/blame.tcl
+++ b/lib/blame.tcl
@@ -547,6 +547,10 @@ method _read_blame {fd cur_w cur_d cur_s} {
                        set a_name {}
                        catch {set a_name $header($cmit,author)}
                        while {$a_name ne {}} {
+                               if {$author_abbr ne {}
+                                       && [string index $a_name 0] eq {'}} {
+                                       regsub {^'[^']+'\s+} $a_name {} a_name
+                               }
                                if {![regexp {^([[:upper:]])} $a_name _a]} break
                                append author_abbr $_a
                                unset _a