diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2006-12-27 16:25:42 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2006-12-27 16:25:42 +0000 |
| commit | d4c813e9885ac389910b6a2c29bf7369389cb92d (patch) | |
| tree | 57fb1b5c8eeec6fcb5cda0830590f028c8370129 /lisp/vc-hooks.el | |
| parent | bbc3424972bebd1406453dc4bbe41bc27ae4facb (diff) | |
| download | emacs-d4c813e9885ac389910b6a2c29bf7369389cb92d.tar.gz | |
(vc-version-backup-file-name): Revision names may be
composed of arbitrary characters (even /) in some systems.
Diffstat (limited to 'lisp/vc-hooks.el')
| -rw-r--r-- | lisp/vc-hooks.el | 5 |
1 files 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)))) |