changeset 74939:e58390f88130

(vc-version-backup-file-name): Revision names may be composed of arbitrary characters (even /) in some systems.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Wed, 27 Dec 2006 16:25:42 +0000
parents df0836216464
children f0d812b53a76
files lisp/vc-hooks.el
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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))))