diff options
author | Eric S. Raymond <esr@snark.thyrsus.com> | 2008-05-15 17:38:50 +0000 |
---|---|---|
committer | Eric S. Raymond <esr@snark.thyrsus.com> | 2008-05-15 17:38:50 +0000 |
commit | 370fded4f6cc9c10c776733a1944b1faab84e2bd (patch) | |
tree | d17c372c68ede44cfe53e0f8ff073756ded603bd /lisp/vc-mcvs.el | |
parent | e6d897b38e5b3286162a6f486dc221251dcbf9ba (diff) |
Snapshot primitives globally renamed to refer to tags, documentation updated.
Diffstat (limited to 'lisp/vc-mcvs.el')
-rw-r--r-- | lisp/vc-mcvs.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/vc-mcvs.el b/lisp/vc-mcvs.el index dfe3bb1d1f9..32c7b99b41b 100644 --- a/lisp/vc-mcvs.el +++ b/lisp/vc-mcvs.el @@ -48,7 +48,7 @@ ;;; Bugs: -;; - Retrieving snapshots doesn't filter `cvs update' output and thus +;; - Retrieving tags doesn't filter `cvs update' output and thus ;; parses bogus filenames. Don't know if it harms. ;;; Code: @@ -461,10 +461,10 @@ Optional arg REVISION is a revision to annotate from." (defalias 'vc-mcvs-annotate-time 'vc-cvs-annotate-time) ;;; -;;; Snapshot system +;;; Tag system ;;; -(defun vc-mcvs-create-snapshot (dir name branchp) +(defun vc-mcvs-create-tag (dir name branchp) "Assign to DIR's current revision a given NAME. If BRANCHP is non-nil, the name is created as a branch (and the current workspace is immediately moved to that new branch)." @@ -473,9 +473,9 @@ workspace is immediately moved to that new branch)." (vc-mcvs-command nil 0 dir "branch" name) (vc-mcvs-command nil 0 dir "switch" name))) -(defun vc-mcvs-retrieve-snapshot (dir name update) - "Retrieve a snapshot at and below DIR. -NAME is the name of the snapshot; if it is empty, do a `cvs update'. +(defun vc-mcvs-retrieve-tag (dir name update) + "Retrieve a tag at and below DIR. +NAME is the name of the tag; if it is empty, do a `cvs update'. If UPDATE is non-nil, then update (resynch) any affected buffers." (with-current-buffer (get-buffer-create "*vc*") (let ((default-directory dir) |