# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1167236742 0
# Node ID e58390f88130f2adedfc871de1de4f47c91bfbdf
# Parent  df083621646412db7340cd14bfd33aeee7e4cc18
(vc-version-backup-file-name): Revision names may be
composed of arbitrary characters (even /) in some systems.

diff -r df0836216464 -r e58390f88130 lisp/vc-hooks.el
--- a/lisp/vc-hooks.el	Wed Dec 27 13:54:47 2006 +0000
+++ b/lisp/vc-hooks.el	Wed Dec 27 16:25:42 2006 +0000
@@ -625,9 +625,10 @@
 a regexp for matching all such backup files, regardless of the version."
   (if regexp
       (concat (regexp-quote (file-name-nondirectory file))
-              "\\.~[0-9.]+" (unless manual "\\.") "~")
+              "\\.~.+" (unless manual "\\.") "~")
     (expand-file-name (concat (file-name-nondirectory file)
-                              ".~" (or rev (vc-workfile-version file))
+                              ".~" (subst-char-in-string
+                                    ?/ ?_ (or rev (vc-workfile-version file)))
                               (unless manual ".") "~")
                       (file-name-directory file))))