changeset 17202:9555c074333c

(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.
author Paul Eggert <eggert@twinsun.com>
date Fri, 21 Mar 1997 22:12:24 +0000
parents ac40292bd898
children 5f9cf553d44b
files lib-src/=rcs2log lib-src/rcs2log
diffstat 2 files changed, 22 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- 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
--- 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