From d4c813e9885ac389910b6a2c29bf7369389cb92d Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 27 Dec 2006 16:25:42 +0000 Subject: [PATCH] (vc-version-backup-file-name): Revision names may be composed of arbitrary characters (even /) in some systems. --- lisp/vc-hooks.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el index b602d79383f..7aae75c8a76 100644 --- a/lisp/vc-hooks.el +++ b/lisp/vc-hooks.el @@ -625,9 +625,10 @@ the user should be returned; if REGEXP is non-nil that means to return 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)))) -- 2.39.2