diff options
| author | Paul Eggert <eggert@twinsun.com> | 1993-08-09 22:06:00 +0000 |
|---|---|---|
| committer | Paul Eggert <eggert@twinsun.com> | 1993-08-09 22:06:00 +0000 |
| commit | 194bf419bba44105754792f1ac251274a47ea3f9 (patch) | |
| tree | 2f80f84b1de82f09ecb4f5dfa54c4b30f41b0c33 /lib-src/rcs2log | |
| parent | 0db70aa270d5caf38da1653d7fa9527e73e2d7c0 (diff) | |
| download | emacs-194bf419bba44105754792f1ac251274a47ea3f9.tar.gz | |
(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)".
Diffstat (limited to 'lib-src/rcs2log')
| -rwxr-xr-x | lib-src/rcs2log | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/lib-src/rcs2log b/lib-src/rcs2log index 19e16abe97b..cd539752a31 100755 --- a/lib-src/rcs2log +++ b/lib-src/rcs2log @@ -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 @@ case $authors in { 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) |