From 25680ec427a35378945567634b9698e25e57e744 Mon Sep 17 00:00:00 2001
From: "Eric S. Raymond" <esr@thyrsus.com>
Date: Fri, 7 Nov 2014 17:34:29 -0500
Subject: [PATCH] Tag list check suvcceeded.

---
 src     |  2 --
 srctest | 12 ++++++++++++
 2 files changed, 12 insertions(+), 2 deletions(-)

diff --git a/src b/src
index b74fb79..715cd12 100755
--- a/src
+++ b/src
@@ -540,8 +540,6 @@ def set_tags(args):
     if not args:
         croak("setting tags requires a tagname argument")
     tagname = args.pop(0)
-    if not args:
-        croak("setting tags requires a revision-spec after the tag name")    
     (revspec, args) = preamble("tag", args)
     for arg in args:
         master = RCSLog(arg)
diff --git a/srctest b/srctest
index a6c843a..6cedd93 100755
--- a/srctest
+++ b/srctest
@@ -117,6 +117,18 @@ do
     check "revision $rev content test"
 done
 
+src $TESTOPTS tag sampletag
+check "tag set to default tip revision"
+
+cat >testfile8 <<EOF
+= testfile1 =================================================================
+   3	sampletag
+EOF
+src $TESTOPTS tag >testfile9
+diff testfile8 testfile9
+check "tag list check"
+
+
 # to do: tag, fast-export
 
 # end
-- 
2.43.0