Merge branch 'maint'

diff --git a/lib/blame.tcl b/lib/blame.tcl
index dcdb11b1b691b08d5fe254325b9be2db56802724..76b5168fb32bd93f7824c2b8fb9ceb8ac7e139e4 100644 (file)
--- a/lib/blame.tcl
+++ b/lib/blame.tcl
@@ -556,6 +556,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