(file-name-sans-versions): Also allow `_'.

2 files changed, 5 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 768a3a83a3c..457a25efbaf 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2007-09-22  Andreas Schwab  <schwab@suse.de>
+
+        * files.el (file-name-sans-versions): Also allow `_'.
+
 2007-09-22  Glenn Morris  <rgm@gnu.org>
 
         * eshell/esh-mode.el (eshell-output-filter-functions): Add
diff --git a/lisp/files.el b/lisp/files.el
index 17b4a6504db..bf7d34e2227 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-z.]+~\\'" name)
+                     (or (string-match "\\.~[-0-9a-z._]+~\\'" name)
                          (string-match "~\\'" name)
                          (length name))))))))