diff lisp/vc.el @ 31520:f9d2d484e1e2

* vc-sccs.el (vc-sccs-register): * vc-rcs.el (vc-rcs-register): * vc-cvs.el (vc-cvs-register): Don't clear file's properties. * vc.el (vc-register): Clear file's properties.

--- a/lisp/vc.el	Sat Sep 09 00:18:25 2000 +0000
+++ b/lisp/vc.el	Sat Sep 09 00:48:41 2000 +0000
@@ -1018,10 +1018,10 @@
 ;;;###autoload
 (defun vc-register (&optional set-version comment)
   "Register the current file into a version control system.
-With prefix argument SET-VERSION, allow user to specify initial version 
+With prefix argument SET-VERSION, allow user to specify initial version
 level.  If COMMENT is present, use that as an initial comment.
 
-The version-control system to use is found by cycling through the list
+The version control system to use is found by cycling through the list
 `vc-handled-backends'.  The first backend in that list which declares
 itself responsible for the file (usually because other files in that
 directory are already registered under that backend) will be used to
@@ -1053,6 +1053,7 @@
 		  (lambda (file rev comment)
 		    (message "Registering %s... " file)
 		    (let ((backend (vc-responsible-backend file)))
+		      (vc-file-clearprops file)
 		      (vc-call-backend backend 'register file rev comment)
 		      (vc-file-setprop file 'vc-backend backend)
 		      (unless vc-make-backup-files