(file-name-sans-versions): Also allow `A-Z'.

2 files changed, 3 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a115c0291b8..1efc5a39934 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2007-09-22  Dan Nicolaescu  <dann@ics.uci.edu>
 
+        * files.el (file-name-sans-versions): Also allow `A-Z'.
+
         * vc.el: Mention all supported VC backends.
 
 2007-09-22  Richard Stallman  <rms@gnu.org>
diff --git a/lisp/files.el b/lisp/files.el
index bf7d34e2227..19762c18945 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -3188,7 +3188,7 @@ we do not remove backup version numbers, only true file version numbers."
                          (length name))
                    (if keep-backup-version
                        (length name)
-                     (or (string-match "\\.~[-0-9a-z._]+~\\'" name)
+                     (or (string-match "\\.~[-0-9a-zA-Z._]+~\\'" name)
                          (string-match "~\\'" name)
                          (length name))))))))