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 | 70e2f6c752f2d83bd013406a96b809572203e8fa (patch) | |
| tree | e38864b2dbbf1211b146915a10da6b481d840df6 /lisp/vc-sccs.el | |
| parent | 991ae4e4f8e8cefd2a83e7ffb4148d358c750486 (diff) | |
| download | emacs-70e2f6c752f2d83bd013406a96b809572203e8fa.tar.gz | |
Clean up vc*-revision-granularity and vc*-checkout-model.
Diffstat (limited to 'lisp/vc-sccs.el')
| -rw-r--r-- | lisp/vc-sccs.el | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/lisp/vc-sccs.el b/lisp/vc-sccs.el index 481d37ecc61..ce1b977e7f6 100644 --- a/lisp/vc-sccs.el +++ b/lisp/vc-sccs.el @@ -102,6 +102,7 @@ For a description of possible values, see `vc-check-master-templates'." ;;; Properties of the backend (defun vc-sccs-revision-granularity () 'file) +(defun vc-sccs-checkout-model (files) 'locking) ;;; ;;; State-querying functions @@ -177,10 +178,6 @@ For a description of possible values, see `vc-check-master-templates'." (vc-insert-file (vc-name file) "^\001e\n\001[^s]") (vc-parse-buffer "^\001d D \\([^ ]+\\)" 1))) -(defun vc-sccs-checkout-model (file) - "SCCS-specific version of `vc-checkout-model'." - 'locking) - (defun vc-sccs-workfile-unchanged-p (file) "SCCS-specific implementation of `vc-workfile-unchanged-p'." (zerop (apply 'vc-do-command nil 1 "vcdiff" (vc-name file) |