Mercurial > emacs
comparison lib-src/=rcs2log @ 16438:30536ab085c7
(datearg): Use the empty string, not '-d>1970-01-01', to extract all
revisions, since some hosts reject 1970-01-01 when east of UTC.
(date): Remove.
author | Paul Eggert <eggert@twinsun.com> |
---|---|
date | Sun, 13 Oct 1996 05:59:42 +0000 |
parents | 63dc01de1823 |
children | 08855b88e955 |
comparison
equal
deleted
inserted
replaced
16437:0626ef653e3e | 16438:30536ab085c7 |
---|---|
10 # Clump together log entries that start with `{topic} ', | 10 # Clump together log entries that start with `{topic} ', |
11 # where `topic' contains neither white space nor `}'. | 11 # where `topic' contains neither white space nor `}'. |
12 | 12 |
13 # Author: Paul Eggert <eggert@twinsun.com> | 13 # Author: Paul Eggert <eggert@twinsun.com> |
14 | 14 |
15 # $Id: rcs2log,v 1.32 1996/09/30 22:15:13 eggert Exp eggert $ | 15 # $Id: rcs2log,v 1.33 1996/10/12 17:24:45 eggert Exp eggert $ |
16 | 16 |
17 # Copyright 1992, 1993, 1994, 1995, 1996 Free Software Foundation, Inc. | 17 # Copyright 1992, 1993, 1994, 1995, 1996 Free Software Foundation, Inc. |
18 | 18 |
19 # This program is free software; you can redistribute it and/or modify | 19 # This program is free software; you can redistribute it and/or modify |
20 # it under the terms of the GNU General Public License as published by | 20 # it under the terms of the GNU General Public License as published by |
124 # log the revisions checked in since the first ChangeLog entry. | 124 # log the revisions checked in since the first ChangeLog entry. |
125 # Since ChangeLog is only by date, some of these revisions may be duplicates of | 125 # Since ChangeLog is only by date, some of these revisions may be duplicates of |
126 # what's already in ChangeLog; it's the user's responsibility to remove them. | 126 # what's already in ChangeLog; it's the user's responsibility to remove them. |
127 case $rlog_options in | 127 case $rlog_options in |
128 '') | 128 '') |
129 date=1970-01-01 | |
130 if test -s "$changelog" | 129 if test -s "$changelog" |
131 then | 130 then |
132 e=' | 131 e=' |
133 /^[0-9]+-[0-9][0-9]-[0-9][0-9]/{ | 132 /^[0-9]+-[0-9][0-9]-[0-9][0-9]/{ |
134 # ISO 8601 date | 133 # ISO 8601 date |
145 exit | 144 exit |
146 } | 145 } |
147 ' | 146 ' |
148 d=`$AWK "$e" <"$changelog"` || exit | 147 d=`$AWK "$e" <"$changelog"` || exit |
149 case $d in | 148 case $d in |
150 ?*) date=$d | 149 ?*) datearg="-d>$d" |
151 esac | 150 esac |
152 fi | 151 fi |
153 datearg="-d>$date" | |
154 esac | 152 esac |
155 | 153 |
156 # Use TZ specified by ChangeLog local variable, if any. | 154 # Use TZ specified by ChangeLog local variable, if any. |
157 if test -s "$changelog" | 155 if test -s "$changelog" |
158 then | 156 then |