Mercurial > emacs
diff lib-src/rcs2log @ 4504:65ef94a9e2c4
(awkscript): Some sites put comma-separated junk after the fullname.
Remove it, but leave "Bill Gates, Jr" alone.
Remove the junk from fullnames like "0000-Admin(0000)".
| author | Paul Eggert <eggert@twinsun.com> |
|---|---|
| date | Mon, 09 Aug 1993 22:06:00 +0000 |
| parents | 9ee93fc9aba0 |
| children | 0f5dd4938af9 |
line wrap: on
line diff
--- a/lib-src/rcs2log Mon Aug 09 06:18:02 1993 +0000 +++ b/lib-src/rcs2log Mon Aug 09 22:06:00 1993 +0000 @@ -12,7 +12,7 @@ # Author: Paul Eggert <eggert@twinsun.com> -# $Id: rcs2log,v 1.11 1993/05/03 17:55:22 eggert Exp rms $ +# $Id: rcs2log,v 1.12 1993/05/29 06:22:48 rms Exp eggert $ # Copyright 1992, 1993 Free Software Foundation, Inc. @@ -173,6 +173,16 @@ { if (author[$1]) { fullname = $5 + if (fullname ~ /[0-9]+-[^(]*\([0-9]+\)$/) { + # Remove the junk from fullnames like "0000-Admin(0000)". + fullname = substr(fullname, index(fullname, "-") + 1) + fullname = substr(fullname, 1, index(fullname, "(") - 1) + } + if (fullname ~ /,[^ ]/) { + # Some sites put comma-separated junk after the fullname. + # Remove it, but leave "Bill Gates, Jr" alone. + fullname = substr(fullname, 1, index(fullname, ",") - 1) + } abbr = index(fullname, "&") if (abbr) { a = substr($1, 1, 1)