(file-name-sans-versions): Recognize version control version numbers.

diff --git a/lisp/files.el b/lisp/files.el
index f6c0b5e97286089e6d8de62224fbada2ca57f123..01705e3c57ae414825e4dcf29800bdb97bcbda0d 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -1491,7 +1491,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-9]+~\\'" name)
+                    (or (string-match "\\.~[0-9.]+~\\'" name)
                         (string-match "~\\'" name)
                         (length name))))))))