# HG changeset patch
# User Paul Eggert <eggert@twinsun.com>
# Date 858982344 0
# Node ID 9555c074333c038e9609dcfb813da8daf98f4efd
# Parent  ac40292bd89861ce8e56221a67db4f4e6c94fe04
(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 -r ac40292bd898 -r 9555c074333c lib-src/=rcs2log
--- a/lib-src/=rcs2log	Fri Mar 21 20:06:04 1997 +0000
+++ b/lib-src/=rcs2log	Fri Mar 21 22:12:24 1997 +0000
@@ -28,7 +28,7 @@
 
 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 @@
 			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 @@
 			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
diff -r ac40292bd898 -r 9555c074333c lib-src/rcs2log
--- a/lib-src/rcs2log	Fri Mar 21 20:06:04 1997 +0000
+++ b/lib-src/rcs2log	Fri Mar 21 22:12:24 1997 +0000
@@ -28,7 +28,7 @@
 
 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 @@
 			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 @@
 			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