From: Paul Eggert <eggert@twinsun.com>
Date: Fri, 21 Mar 1997 22:12:24 +0000 (+0000)
Subject: (files): Ignore files in RCS directory whose names are of the form ,*,
X-Git-Tag: emacs-20.1~2743
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8fd927907bbd7766486dc8adcebc064cc0c62e48;p=emacs.git

(files): Ignore files in RCS directory whose names are of the form ,*,
or *_; they are probably RCS lock files.  Also, ignore files named
.rcsfreeze.log or .rcsfreeze.ver; they are used by rcsfreeze.
---

diff --git a/lib-src/rcs2log b/lib-src/rcs2log
index 4f2b18ac54c..390bba898cb 100755
--- a/lib-src/rcs2log
+++ b/lib-src/rcs2log
@@ -28,7 +28,7 @@ Options:
 
 Report bugs to <bug-gnu-emacs@prep.ai.mit.edu>.'
 
-Id='$Id: rcs2log,v 1.35 1996/11/03 17:09:27 eggert Exp eggert $'
+Id='$Id: rcs2log,v 1.36 1997/01/20 09:03:05 eggert Exp eggert $'
 
 # Copyright 1992, 1993, 1994, 1995, 1996, 1997 Free Software Foundation, Inc.
 
@@ -242,7 +242,14 @@ case $# in
 			files=`
 				{
 					case $RCSdirs in
-					?*) find $RCSdirs -type f -print
+					?*) find $RCSdirs \
+							-type f \
+							! -name '*_' \
+							! -name ',*,' \
+							! -name '.*_' \
+							! -name .rcsfreeze.log \
+							! -name .rcsfreeze.ver \
+							-print
 					esac
 					find . -name '*,v' -print
 				} |
@@ -254,7 +261,8 @@ case $# in
 			for file in RCS/.* RCS/* .*,v *,v
 			do
 				case $file in
-				RCS/. | RCS/..) continue;;
+				RCS/. | RCS/.. | RCS/,*, | RCS/*_) continue;;
+				RCS/.rcsfreeze.log | RCS/.rcsfreeze.ver) continue;;
 				RCS/.\* | RCS/\* | .\*,v | \*,v) test -f "$file" || continue
 				esac
 				files=$files$nl$file