changeset 78871:0315f6cc72de

(file-name-sans-versions): Also allow `_'.
author Andreas Schwab <schwab@suse.de>
date Sat, 22 Sep 2007 08:51:41 +0000
parents 72989badaad7
children d3ac9bf29bd6
files lisp/files.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/files.el	Sat Sep 22 08:46:08 2007 +0000
+++ b/lisp/files.el	Sat Sep 22 08:51:41 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-z._]+~\\'" name)
 			 (string-match "~\\'" name)
 			 (length name))))))))