(quote_file_name): Pass COPY thru %s to output it.

[gnu-emacs] / lib-src / rcs-checkin

diff --git a/lib-src/rcs-checkin b/lib-src/rcs-checkin
index 41b10d24412ee39fb08bd89972d3508d5624e071..365050e958424cce9fc634f720e7d0f0e514d1a0 100755 (executable)
--- a/lib-src/rcs-checkin
+++ b/lib-src/rcs-checkin
@@ -2,7 +2,7 @@
 
 # This script accepts any number of file arguments and checks them into RCS.
 
-# Copyright (C) 1993, 1994, 1995,2001 Free Software Foundation, Inc.
+# Copyright (C) 1993, 1994, 1995, 2001, 2002 Free Software Foundation, Inc.
 #
 # This file is part of GNU Emacs.
 #
@@ -31,7 +31,7 @@
 # is not deleted, as under VC with vc-keep-workfiles at its default of t, but
 # all the version files are.
 #
-# If an argument file is already version-controlled under RCS, any version 
+# If an argument file is already version-controlled under RCS, any version
 # files are added to the list of deltas and deleted, and then the workfile
 # is checked in again as the latest version.  This is probably not quite
 # what was wanted, and is the main reason VC doesn't simply call this to
@@ -73,7 +73,7 @@ do
        # Get list of old files.
        oldfiles=`
                ls $file.~[0-9]*~ 2>/dev/null |
-               sort -t~ -n +1
+               sort -t~ -n -k 2
        `
 
        # Check that they are properly sorted by date.
@@ -115,3 +115,4 @@ $file"
        ci -d -q -u $owner -m"entered into RCS" "$file" || exit
 done
 
+# arch-tag: 89c86949-ef04-4380-838b-bc1444dcb074