diff options
| author | Paul Eggert <eggert@twinsun.com> | 1995-03-23 01:21:07 +0000 |
|---|---|---|
| committer | Paul Eggert <eggert@twinsun.com> | 1995-03-23 01:21:07 +0000 |
| commit | a77cfc19a9b4dfc6583d6e98c009ce5a5dc011c9 (patch) | |
| tree | d8d6059f88c9ad8193459e08f2a170ccbea9debb /lib-src | |
| parent | f97abd3f2017e571dd3d222e365ce65b17be486a (diff) | |
| download | emacs-a77cfc19a9b4dfc6583d6e98c009ce5a5dc011c9.tar.gz | |
(output_authors): Replace /[/]/ by /[\/]/, for portability to mawk and nawk.
Diffstat (limited to 'lib-src')
| -rw-r--r-- | lib-src/=rcs2log | 4 | ||||
| -rwxr-xr-x | lib-src/rcs2log | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/lib-src/=rcs2log b/lib-src/=rcs2log index d5b8186e97e..831010e77c7 100644 --- a/lib-src/=rcs2log +++ b/lib-src/=rcs2log @@ -12,7 +12,7 @@ # Author: Paul Eggert <eggert@twinsun.com> -# $Id: rcs2log,v 1.19 1995/03/21 05:37:42 eggert Exp eggert $ +# $Id: rcs2log,v 1.20 1995/03/21 23:14:41 eggert Exp eggert $ # Copyright 1992, 1993, 1994, 1995 Free Software Foundation, Inc. @@ -273,7 +273,7 @@ $logins EOF esac output_authors='/^date: / { - if ($2 ~ /^[0-9]*[-/][0-9][0-9][-/][0-9][0-9]$/ && $3 ~ /^[0-9][0-9]:[0-9][0-9]:[0-9][0-9][-+0-9]*;$/ && $4 == "author:" && $5 ~ /^[^;]*;$/) { + if ($2 ~ /^[0-9]*[-\/][0-9][0-9][-\/][0-9][0-9]$/ && $3 ~ /^[0-9][0-9]:[0-9][0-9]:[0-9][0-9][-+0-9]*;$/ && $4 == "author:" && $5 ~ /^[^;]*;$/) { print substr($5, 1, length($5)-1) } }' diff --git a/lib-src/rcs2log b/lib-src/rcs2log index d5b8186e97e..831010e77c7 100755 --- a/lib-src/rcs2log +++ b/lib-src/rcs2log @@ -12,7 +12,7 @@ # Author: Paul Eggert <eggert@twinsun.com> -# $Id: rcs2log,v 1.19 1995/03/21 05:37:42 eggert Exp eggert $ +# $Id: rcs2log,v 1.20 1995/03/21 23:14:41 eggert Exp eggert $ # Copyright 1992, 1993, 1994, 1995 Free Software Foundation, Inc. @@ -273,7 +273,7 @@ $logins EOF esac output_authors='/^date: / { - if ($2 ~ /^[0-9]*[-/][0-9][0-9][-/][0-9][0-9]$/ && $3 ~ /^[0-9][0-9]:[0-9][0-9]:[0-9][0-9][-+0-9]*;$/ && $4 == "author:" && $5 ~ /^[^;]*;$/) { + if ($2 ~ /^[0-9]*[-\/][0-9][0-9][-\/][0-9][0-9]$/ && $3 ~ /^[0-9][0-9]:[0-9][0-9]:[0-9][0-9][-+0-9]*;$/ && $4 == "author:" && $5 ~ /^[^;]*;$/) { print substr($5, 1, length($5)-1) } }' |