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-rcs.el | |
| parent | e6d897b38e5b3286162a6f486dc221251dcbf9ba (diff) | |
| download | emacs-370fded4f6cc9c10c776733a1944b1faab84e2bd.tar.gz emacs-370fded4f6cc9c10c776733a1944b1faab84e2bd.tar.bz2 emacs-370fded4f6cc9c10c776733a1944b1faab84e2bd.zip | |
Snapshot primitives globally renamed to refer to tags, documentation updated.
Diffstat (limited to 'lisp/vc-rcs.el')
| -rw-r--r-- | lisp/vc-rcs.el | 15 |
1 files changed, 11 insertions, 4 deletions
diff --git a/lisp/vc-rcs.el b/lisp/vc-rcs.el index 14a091c4a6f..bda6aec95c2 100644 --- a/lisp/vc-rcs.el +++ b/lisp/vc-rcs.el @@ -787,12 +787,19 @@ systime, or nil if there is none. Also, reposition point." ;;; -;;; Snapshot system +;;; Tag system ;;; -(defun vc-rcs-assign-name (file name) - "Assign to FILE's latest version a given NAME." - (vc-do-command "*vc*" 0 "rcs" (vc-name file) (concat "-n" name ":"))) +(defun vc-rcs-create-tag (backend dir name branchp) + (when branchp + (error "RCS backend %s does not support module branches.")) + (let ((result (vc-tag-precondition dir))) + (if (stringp result) + (error "File %s is not up-to-date" result) + (vc-file-tree-walk + dir + (lambda (f) + (vc-do-command "*vc*" 0 "rcs" (vc-name f) (concat "-n" name ":"))))))) ;;; |