From: Paul Eggert <eggert@twinsun.com>
Date: Thu, 29 Jul 1993 19:56:38 +0000 (+0000)
Subject: Don't check whether file is readable until we have decided not to ignore it.
X-Git-Tag: emacs-19.34~11508
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3b31174ce555de401fc196bb296e37b6597eb3aa;p=emacs.git

Don't check whether file is readable until we have decided not to ignore it.
---

diff --git a/lib-src/rcs-checkin b/lib-src/rcs-checkin
index 88fd01125f3..7b894eac83d 100755
--- a/lib-src/rcs-checkin
+++ b/lib-src/rcs-checkin
@@ -35,9 +35,6 @@ ls_owner_pattern='[^ ][^ ]*  *[^ ][^ ]*  *\([^ ][^ ]*\)'
 
 for file
 do
-	# Check that file is readable.
-	<$file || exit
-
 	# Make it easier to say `rcs-checkin *'
 	# by ignoring file names that already contain `~', or end in `,v'.
 	case $file in
@@ -46,6 +43,9 @@ do
 	# Ignore non-files too.
 	test -f "$file" || continue
 
+	# Check that file is readable.
+	<$file || exit
+
 	# If the RCS file does not already exist,
 	# initialize it with a description from $file's first line.
 	rlog -R "$file" >/dev/null 2>&1 ||