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