Commits

Anonymous committed 3085b68

2001-12-02 Steve Youngs <youngs@xemacs.org>

* mode-compile.el (python-dbg-flags): Typo fix.

2001-12-03 Jonathan Marten <jonathan.marten@uk.sun.com>

* vc.el (vc-backend-admin): Set required file properties for
SCCS and rename original copy of file to ',name' only if
'vc-keep-workfiles' is t.

Comments (0)

Files changed (2)

+2001-12-03  Jonathan Marten  <jonathan.marten@uk.sun.com>
+
+	* vc.el (vc-backend-admin): Set required file properties for
+	SCCS and rename original copy of file to ',name' only if
+	'vc-keep-workfiles' is t.
+
 2001-07-14  I. Sheldon  <is@kaidea.freeserve.co.uk>
 
 	* vc.el (vc-populate-vc-log-hook): New.
                                   (or (file-name-directory file) "")
                                   (file-name-nondirectory file))
                                  switches)
-	   (delete-file file)
-	   (if vc-keep-workfiles
-	       (vc-do-command nil 0 "get" file 'MASTER)))
+
+	   (if (not vc-keep-workfiles)
+               (delete-file file)
+             (rename-file file
+                          (concat (file-name-directory file) "," (file-name-nondirectory file))
+                          1)
+             (if (not (vc-name file))
+                 (let ((name-and-type (vc-registered file)))
+                   (and name-and-type
+                        (vc-file-setprop file 'vc-name (car name-and-type))
+                        (vc-file-setprop file 'vc-backend (cdr name-and-type)))))
+             (vc-do-command nil 0 "get" file 'MASTER)))
+
 	  ((eq backend 'RCS)
 	   (apply 'vc-do-command nil 0 "ci" file 'WORKFILE	;; RCS
                                  ;; if available, use the secure registering option