Commit 70df4bbe authored by Glenn Morris's avatar Glenn Morris
Browse files

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
parent b13f806e
2012-01-24 Glenn Morris <rgm@gnu.org>
* vc/vc-rcs.el (vc-rcs-create-tag):
* vc/vc-sccs.el (vc-sccs-create-tag):
Fix argument spec to be what vc-create-tag expects. (Bug#10515)
2012-01-23 Mike Lamb <mrlamb@gmail.com> (tiny change)
* eshell/esh-util.el (eshell-read-hosts-file):
......
......@@ -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)
......
......@@ -359,9 +359,9 @@ revert all subfiles."
;;; our own set of name-to-revision mappings.
;;;
(defun vc-sccs-create-tag (backend dir name branchp)
(defun vc-sccs-create-tag (dir name branchp)
(when branchp
(error "SCCS backend %s does not support module branches" backend))
(error "SCCS backend does not support module branches"))
(let ((result (vc-tag-precondition dir)))
(if (stringp result)
(error "File %s is not up-to-date" result)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment