diff options
author | Eric S. Raymond <esr@snark.thyrsus.com> | 2008-05-02 17:47:25 +0000 |
---|---|---|
committer | Eric S. Raymond <esr@snark.thyrsus.com> | 2008-05-02 17:47:25 +0000 |
commit | 74336549162ae7ba83be96bf0b1b79f8f8fc1c7d (patch) | |
tree | 0cb80adf70ad525f4935a31e622ad2c957f5a366 /lisp/vc-mcvs.el | |
parent | 249dc82acda9fdb3da05d4d7ab6e9934e465b006 (diff) | |
download | emacs-74336549162ae7ba83be96bf0b1b79f8f8fc1c7d.tar.gz |
Clean up vc*-revision-granularity and vc*-checkout-model.
Diffstat (limited to 'lisp/vc-mcvs.el')
-rw-r--r-- | lisp/vc-mcvs.el | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/lisp/vc-mcvs.el b/lisp/vc-mcvs.el index df8a4ebad0b..ff40647ead4 100644 --- a/lisp/vc-mcvs.el +++ b/lisp/vc-mcvs.el @@ -111,8 +111,8 @@ This is only meaningful if you don't use the implicit checkout model ;;; Properties of the backend -(defun vc-mcvs-revision-granularity () - 'file) +(defalias 'vc-mcvs-revision-granularity 'vc-cvs-revision-granularity) +(defalias 'vc-mcvs-checkout-model 'vc-cvs-checkout-model) ;;; ;;; State-querying functions @@ -202,8 +202,6 @@ This is only meaningful if you don't use the implicit checkout model (expand-file-name (vc-file-getprop file 'mcvs-inode) (vc-file-getprop file 'mcvs-root)))) -(defalias 'vc-mcvs-checkout-model 'vc-cvs-checkout-model) - ;;; ;;; State-changing functions ;;; @@ -344,7 +342,7 @@ This is only possible if Meta-CVS is responsible for FILE's directory.") (if (and (file-exists-p file) (not rev)) ;; If no revision was specified, just make the file writable ;; if necessary (using `cvs-edit' if requested). - (and editable (not (eq (vc-mcvs-checkout-model file) 'implicit)) + (and editable (not (eq (vc-mcvs-checkout-model (list file)) 'implicit)) (if vc-mcvs-use-edit (vc-mcvs-command nil 0 file "edit") (set-file-modes file (logior (file-modes file) 128)) @@ -367,7 +365,7 @@ This is only possible if Meta-CVS is responsible for FILE's directory.") (defun vc-mcvs-revert (file &optional contents-done) "Revert FILE to the working revision it was based on." (vc-default-revert 'MCVS file contents-done) - (unless (eq (vc-mcvs-checkout-model file) 'implicit) + (unless (eq (vc-mcvs-checkout-model (list file)) 'implicit) (if vc-mcvs-use-edit (vc-mcvs-command nil 0 file "unedit") ;; Make the file read-only by switching off all w-bits |