diff options
author | Glenn Morris <rgm@gnu.org> | 2012-01-24 00:22:50 -0800 |
---|---|---|
committer | Glenn Morris <rgm@gnu.org> | 2012-01-24 00:22:50 -0800 |
commit | 70df4bbe298651a3980d56795bcfd04611efa37e (patch) | |
tree | e8cda1f21e0bc146fa835b37b710fbfe7e8fb8c4 /lisp/vc/vc-rcs.el | |
parent | b13f806e12df7f9a500f671bbf3177f7a2c1bfde (diff) | |
download | emacs-70df4bbe298651a3980d56795bcfd04611efa37e.tar.gz |
Fix rcs and sccs create-tag commands.
* lisp/vc/vc-rcs.el (vc-rcs-create-tag):
* lisp/vc/vc-sccs.el (vc-sccs-create-tag):
Fix argument spec to be what vc-create-tag expects.
Fixes: debbugs:10515
Diffstat (limited to 'lisp/vc/vc-rcs.el')
-rw-r--r-- | lisp/vc/vc-rcs.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/vc/vc-rcs.el b/lisp/vc/vc-rcs.el index f9248d5a954..f2122b60ce1 100644 --- a/lisp/vc/vc-rcs.el +++ b/lisp/vc/vc-rcs.el @@ -809,9 +809,9 @@ systime, or nil if there is none. Also, reposition point." ;;; Tag system ;;; -(defun vc-rcs-create-tag (backend dir name branchp) +(defun vc-rcs-create-tag (dir name branchp) (when branchp - (error "RCS backend %s does not support module branches" backend)) + (error "RCS backend does not support module branches")) (let ((result (vc-tag-precondition dir))) (if (stringp result) (error "File %s is not up-to-date" result) |