mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Paul Eggert 1993-07-29 19:56:38 +00:00
parent 7520f31890
commit 3b31174ce5
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lib-src/rcs-checkin
View file

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