(file-name-sans-versions): Use [:alnum:] and also allow

#, @, : and ^.

lisp/ChangeLog

+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.

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