# HG changeset patch
# User Dan Nicolaescu <dann@ics.uci.edu>
# Date 1190563300 0
# Node ID da3f83794d1f0134fc78eda5f1e150ffe158b8c9
# Parent  30c6b45091fab550597475fdde9c914efd1f7f9e
(file-name-sans-versions): Use [:alnum:] and also allow
#, @, : and ^.

diff -r 30c6b45091fa -r da3f83794d1f lisp/ChangeLog
--- a/lisp/ChangeLog	Sun Sep 23 01:09:20 2007 +0000
+++ b/lisp/ChangeLog	Sun Sep 23 16:01:40 2007 +0000
@@ -1,3 +1,8 @@
+2007-09-23  Dan Nicolaescu  <dann@ics.uci.edu>
+
+	* files.el (file-name-sans-versions): Use [:alnum:] and also allow
+	#, @, : and ^.
+
 2007-09-23  Glenn Morris  <rgm@gnu.org>
 
 	* ses.el (ses-calculate-cell): Don't evaluate unsafe formulae.
diff -r 30c6b45091fa -r da3f83794d1f lisp/files.el
--- a/lisp/files.el	Sun Sep 23 01:09:20 2007 +0000
+++ b/lisp/files.el	Sun Sep 23 16:01:40 2007 +0000
@@ -3188,7 +3188,7 @@
 			 (length name))
 		   (if keep-backup-version
 		       (length name)
-		     (or (string-match "\\.~[-0-9a-zA-Z._]+~\\'" name)
+		     (or (string-match "\\.~[-[:alnum:]:#@^._]+~\\'" name)
 			 (string-match "~\\'" name)
 			 (length name))))))))