# HG changeset patch
# User Andr��� Spiegel <spiegel@gnu.org>
# Date 972648715 0
# Node ID 78fabc2762c4e722e8cb56b064da54983597dc8e
# Parent  3c95af2888f6bb60e4c50e4be395005a364049e9
(vc-version-backup-file-name): Use file.~<rev>~ for manual backups and
file.~<rev>.~ for automatic ones.

diff -r 3c95af2888f6 -r 78fabc2762c4 lisp/vc-hooks.el
--- a/lisp/vc-hooks.el	Fri Oct 27 11:37:17 2000 +0000
+++ b/lisp/vc-hooks.el	Fri Oct 27 12:11:55 2000 +0000
@@ -5,7 +5,7 @@
 ;; Author:     FSF (see vc.el for full credits)
 ;; Maintainer: Andre Spiegel <spiegel@gnu.org>
 
-;; $Id: vc-hooks.el,v 1.123 2000/10/05 22:47:21 monnier Exp $
+;; $Id: vc-hooks.el,v 1.124 2000/10/22 15:28:58 spiegel Exp $
 
 ;; This file is part of GNU Emacs.
 
@@ -469,15 +469,13 @@
 If MANUAL is non-nil it means that a name for backups created by
 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."
-  (let ((delim (if manual "~" "#")))
-    (if regexp
-        (concat (regexp-quote (file-name-nondirectory file))
-                "." delim "[0-9.]+" delim)
-      (expand-file-name (concat (file-name-nondirectory file) 
-                                "." delim 
-                                (or rev (vc-workfile-version file))
-                                delim)
-                        (file-name-directory file)))))
+  (if regexp
+      (concat (regexp-quote (file-name-nondirectory file))
+              "\\.~[0-9.]+" (unless manual "\\.") "~")
+    (expand-file-name (concat (file-name-nondirectory file) 
+                              ".~" (or rev (vc-workfile-version file)) 
+                              (unless manual ".") "~")
+                      (file-name-directory file))))
 
 (defun vc-delete-automatic-version-backups (file)
   "Delete all existing automatic version backups for FILE."