Customized.

[bpt/emacs.git] / lib-src / rcs-checkin

diff --git a/lib-src/rcs-checkin b/lib-src/rcs-checkin
index 88fd011..f954e54 100755 (executable)
--- a/lib-src/rcs-checkin
+++ b/lib-src/rcs-checkin
@@ -1,4 +1,4 @@
-#!/bin/sh
+#! /bin/sh
 
 # This script accepts any number of file arguments and checks them into RCS.
 #
@@ -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.
+       test -r "$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 ||