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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a115c0291b8a6d6e1653ae4d2336380fcbff0d62..1efc5a399344d6749a5e1bf70ec9b49428ef1e74 100644 (file)
--- 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 bf7d34e2227691e791f9e7ee3b67bf5524be7630..19762c189458204336d48fea2ef6ecf077ba1ab5 100644 (file)
--- 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))))))))