comparison lisp/vc-svn.el @ 94481:ad6c174910db

Make `checkout-model' apply to filesets. * vc-hooks.el (vc-checkout-model): Rewrite. (vc-before-save, vc-after-save): Adjust callers accordingly. * vc.el (vc-editable-p, vc-next-action, vc-checkout, vc-update) (vc-transfer-file): Adjust callers accordingly. * vc-rcs.el (vc-rcs-checkout-model): Adjust arg. (vc-rcs-state, vc-rcs-state-heuristic, vc-rcs-receive-file) (vc-rcs-checkout, vc-rcs-fetch-master-state): Use vc-rcs-checkout-model instead of vc-checkout-model. * vc-mcvs.el (vc-mcvs-revert): Use vc-mcvs-checkout-model i.s.o vc-checkout-model. * vc-cvs.el (vc-cvs-checkout-model): Adjust arg. (vc-cvs-revert): Use vc-cvs-checkout-model i.s.o vc-checkout-model. * vc-svn.el (vc-svn-checkout-model): * vc-hg.el (vc-hg-checkout-model): * vc-git.el (vc-git-checkout-model): * vc-bzr.el (vc-bzr-checkout-model): Adjust arg.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Tue, 29 Apr 2008 15:32:56 +0000
parents a4655455212b
children 44d4506fa470
comparison
equal deleted inserted replaced
94480:cf998cc4d006 94481:ad6c174910db
191 ;; get the workfile version for free when we recognize that a file 191 ;; get the workfile version for free when we recognize that a file
192 ;; is registered in SVN. 192 ;; is registered in SVN.
193 (vc-svn-registered file) 193 (vc-svn-registered file)
194 (vc-file-getprop file 'vc-working-revision)) 194 (vc-file-getprop file 'vc-working-revision))
195 195
196 (defun vc-svn-checkout-model (file) 196 (defun vc-svn-checkout-model (files)
197 "SVN-specific version of `vc-checkout-model'." 197 "SVN-specific version of `vc-checkout-model'."
198 ;; It looks like Subversion has no equivalent of CVSREAD. 198 ;; It looks like Subversion has no equivalent of CVSREAD.
199 'implicit) 199 'implicit)
200 200
201 ;; vc-svn-mode-line-string doesn't exist because the default implementation 201 ;; vc-svn-mode-line-string doesn't exist because the default implementation