From: Dan Nicolaescu <dann@ics.uci.edu>
Date: Sun, 23 Sep 2007 16:01:40 +0000 (+0000)
Subject: (file-name-sans-versions): Use [:alnum:] and also allow
X-Git-Tag: emacs-pretest-22.1.90~740
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9a3d2737673f27a74e60aab0b2570430aa2fe4c6;p=emacs.git

(file-name-sans-versions): Use [:alnum:] and also allow
#, @, : and ^.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d01bcd68c5b..28d9f4eb9ec 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/files.el b/lisp/files.el
index 19762c18945..054f0e7d3a0 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-zA-Z._]+~\\'" name)
+		     (or (string-match "\\.~[-[:alnum:]:#@^._]+~\\'" name)
 			 (string-match "~\\'" name)
 			 (length name))))))))