mirror of
git://git.sv.gnu.org/emacs.git
synced 2025-12-05 22:20:24 -08:00
When given no file arguments, inspect RCS/.* as well
as RCS/*. Don't report an error if RCS is empty or nonexistent.
This commit is contained in:
parent
5b335fca24
commit
148d61aa7f
1 changed files with 24 additions and 5 deletions
|
|
@ -12,7 +12,7 @@
|
|||
|
||||
# Author: Paul Eggert <eggert@twinsun.com>
|
||||
|
||||
# $Id: rcs2log,v 1.10 1993/03/16 22:49:00 eggert Exp eggert $
|
||||
# $Id: rcs2log,v 1.11 1993/05/03 17:55:22 eggert Exp rms $
|
||||
|
||||
# Copyright 1992, 1993 Free Software Foundation, Inc.
|
||||
|
||||
|
|
@ -30,6 +30,8 @@
|
|||
# along with this program; see the file COPYING. If not, write to
|
||||
# the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
|
||||
|
||||
nl='
|
||||
'
|
||||
|
||||
# Parse options.
|
||||
|
||||
|
|
@ -114,14 +116,31 @@ then
|
|||
fi
|
||||
datearg="-d>$date"
|
||||
|
||||
# With no arguments, examine all files under the RCS directory.
|
||||
case $# in
|
||||
0)
|
||||
files=
|
||||
for file in RCS/.* RCS/*
|
||||
do
|
||||
case $file in
|
||||
RCS/. | RCS/..) ;;
|
||||
RCS/.\* | RCS/\*) test -f "$file" && files=$files$nl$file;;
|
||||
*) files=$files$nl$file
|
||||
esac
|
||||
done
|
||||
case $files in
|
||||
'') exit 0
|
||||
esac
|
||||
oldIFS=$IFS
|
||||
IFS=$nl
|
||||
set $files
|
||||
IFS=$oldIFS
|
||||
esac
|
||||
|
||||
rlogout=/tmp/chg$$
|
||||
trap exit 1 2 13 15
|
||||
trap 'rm -f $rlogout; exit 1' 0
|
||||
|
||||
case $# in
|
||||
0) set RCS/*
|
||||
esac
|
||||
|
||||
rlog "$datearg" "$@" >$rlogout || exit
|
||||
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue