# HG changeset patch
# User Dan Nicolaescu <dann@ics.uci.edu>
# Date 1190483537 0
# Node ID 6824f67c5a37724aeb0e89550a4685eb81d54c91
# Parent  2568254b40a4e3f1809cb0a8f32bf301341d2911
(file-name-sans-versions): Also allow `A-Z'.

diff -r 2568254b40a4 -r 6824f67c5a37 lisp/ChangeLog
--- a/lisp/ChangeLog	Sat Sep 22 17:17:22 2007 +0000
+++ b/lisp/ChangeLog	Sat Sep 22 17:52:17 2007 +0000
@@ -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 -r 2568254b40a4 -r 6824f67c5a37 lisp/files.el
--- a/lisp/files.el	Sat Sep 22 17:17:22 2007 +0000
+++ b/lisp/files.el	Sat Sep 22 17:52:17 2007 +0000
@@ -3188,7 +3188,7 @@
 			 (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))))))))