Mercurial > emacs
changeset 535:4b75abb93479
Don't munge $* when getting date from ChangeLog.
| author | Paul Eggert <eggert@twinsun.com> |
|---|---|
| date | Wed, 05 Feb 1992 17:25:10 +0000 |
| parents | 6f7abc0e1f10 |
| children | 55d0073987d4 |
| files | lib-src/=rcs2log lib-src/rcs2log |
| diffstat | 2 files changed, 12 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/lib-src/=rcs2log Wed Feb 05 04:31:18 1992 +0000 +++ b/lib-src/=rcs2log Wed Feb 05 17:25:10 1992 +0000 @@ -2,7 +2,7 @@ # RCS to ChangeLog generator -# $Id: rcs2clog,v 1.2 1992/02/05 04:29:40 eggert Exp $ +# $Id: rcs2clog,v 1.2 1992/02/05 04:31:18 eggert Exp eggert $ # Generate a change log prefix from RCS/* and the existing ChangeLog (if any). # Output the new prefix to standard output. @@ -35,9 +35,11 @@ datearg=-d'>1970' if test -s ChangeLog then - date=`sed 1q <ChangeLog` || exit - set x $date; shift - datearg="-d>$1 $2 $3 $4 $5" + e='s/^\(...\) \(...\) \(..\) \(..:..:..\) \(....\) .*/\1 \2 \3 \4 \5/p; 1q' + date=`sed -n "$e" <ChangeLog` || exit + case $date in + ?*) datearg="-d>$date" + esac fi rlogout=/tmp/chg$$
--- a/lib-src/rcs2log Wed Feb 05 04:31:18 1992 +0000 +++ b/lib-src/rcs2log Wed Feb 05 17:25:10 1992 +0000 @@ -2,7 +2,7 @@ # RCS to ChangeLog generator -# $Id: rcs2clog,v 1.2 1992/02/05 04:29:40 eggert Exp $ +# $Id: rcs2clog,v 1.2 1992/02/05 04:31:18 eggert Exp eggert $ # Generate a change log prefix from RCS/* and the existing ChangeLog (if any). # Output the new prefix to standard output. @@ -35,9 +35,11 @@ datearg=-d'>1970' if test -s ChangeLog then - date=`sed 1q <ChangeLog` || exit - set x $date; shift - datearg="-d>$1 $2 $3 $4 $5" + e='s/^\(...\) \(...\) \(..\) \(..:..:..\) \(....\) .*/\1 \2 \3 \4 \5/p; 1q' + date=`sed -n "$e" <ChangeLog` || exit + case $date in + ?*) datearg="-d>$date" + esac fi rlogout=/tmp/chg$$