From: Dan Nicolaescu <dann@ics.uci.edu>
Date: Sat, 22 Sep 2007 17:52:17 +0000 (+0000)
Subject: (file-name-sans-versions): Also allow `A-Z'.
X-Git-Tag: emacs-pretest-22.1.90~749
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b368551b76e7e811a3cca2c8531efece04fbbd50;p=emacs.git

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

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))))))))