# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 806101077 0
# Node ID 7caa97ba6a7bee0542eead2bf7919d92c2717049
# Parent  a771c59393e7e7193803523f45dc82629a1e2a0b
(file-name-sans-versions): Recognize version control version numbers.

diff -r a771c59393e7 -r 7caa97ba6a7b lisp/files.el
--- a/lisp/files.el	Tue Jul 18 20:55:46 1995 +0000
+++ b/lisp/files.el	Tue Jul 18 20:57:57 1995 +0000
@@ -1491,7 +1491,7 @@
 			 (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))))))))