1 files changed, 37 insertions, 13 deletions

diff --git a/lib-src/rcs2log b/lib-src/rcs2log
index a304df9adbd..b7466b6c134 100755
--- a/lib-src/rcs2log
+++ b/lib-src/rcs2log
@@ -29,10 +29,10 @@ Options:
 
 Report bugs to <bug-gnu-emacs@gnu.org>.'
 
-Id='$Id: rcs2log,v 1.49 2001/11/28 23:55:08 eggert Exp eggert $'
+Id='$Id: rcs2log,v 1.52 2003/12/27 08:18:08 uid65632 Exp $'
 
-# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 2001, 2002
-#  Free Software Foundation, Inc.
+# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 2001, 2002, 2003,
+# 2004 Free Software Foundation, Inc.
 
 # This program is free software; you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
@@ -49,7 +49,7 @@ Id='$Id: rcs2log,v 1.49 2001/11/28 23:55:08 eggert Exp eggert $'
 # Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 # Boston, MA 02111-1307, USA.
 
-Copyright='Copyright (C) 2002 Free Software Foundation, Inc.
+Copyright='Copyright (C) 2004 Free Software Foundation, Inc.
 This program comes with NO WARRANTY, to the extent permitted by law.
 You may redistribute copies of this program
 under the terms of the GNU General Public License.
@@ -195,8 +195,9 @@ case $rlogfile in
 
         # If no rlog options are given,
         # log the revisions checked in since the first ChangeLog entry.
-        # Since ChangeLog is only by date, some of these revisions may be duplicates of
-        # what's already in ChangeLog; it's the user's responsibility to remove them.
+        # Since ChangeLog is only by date, some of these revisions may be
+        # duplicates of what's already in ChangeLog; it's the user's
+        # responsibility to remove them.
         case $rlog_options in
         '')
                 if test -s "$changelog"
@@ -250,18 +251,24 @@ case $rlogfile in
                 rlog='cvs -q log'
                 repository=`sed 1q <CVS/Repository` || exit
                 test ! -f CVS/Root || CVSROOT=`cat <CVS/Root` || exit
+                pository=
                 case $CVSROOT in
-                *:/*:/*)
-                        echo >&2 "$0: $CVSROOT: CVSROOT has multiple ':/'s"
-                        exit 1;;
-                *:/*)
+                /* | :fork:* | :local:*) ;;
+                */*)
                         # remote repository
-                        pository=`expr "X$repository" : '.*:\(/.*\)'`;;
-                *)
+                        pository=`expr "X$CVSROOT" : '[^/]*\(.*\)'`;;
+                esac
+                case $pository in
+                '')
                         # local repository
                         case $repository in
                         /*) ;;
-                        *) repository=${CVSROOT?}/$repository;;
+                        *)
+                                repository=${CVSROOT?}/$repository
+                                case $repository in
+                                :fork:* | :local:*)
+                                        repository=`expr "$repository" : ':[^:]*:\(.*\)'`;;
+                                esac;;
                         esac
                         if test ! -d "$repository"
                         then
@@ -281,6 +288,21 @@ case $rlogfile in
                         esac
                 done
 
+                # If no rlog options are given, and if we are in a tagged CVS branch,
+                # log only the changes in that branch.
+                case $rlog_options in
+                '')
+                        if test -f CVS/Tag
+                        then
+                                CVSTAG=`cat <CVS/Tag` || exit
+                                case $CVSTAG in
+                                T?*)
+                                        rlog_options=-r`expr "$CVSTAG" : 'T\(.*\)'`;;
+                                *)
+                                        echo >&2 "$0: invalid CVS/Tag"; exit 1;;
+                                esac
+                        fi;;
+                esac
         fi
 
         # Use $rlog's -zLT option, if $rlog supports it.
@@ -729,3 +751,5 @@ exec rm -fr $logdir
 # Local Variables:
 # tab-width:4
 # End:
+
+# arch-tag: cea067bd-a552-4254-ba17-078208933073