From: Glenn Morris Date: Tue, 24 Jan 2012 08:22:50 +0000 (-0800) Subject: Fix rcs and sccs create-tag commands. X-Git-Tag: emacs-pretest-24.0.93~80 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=70df4bbe298651a3980d56795bcfd04611efa37e;p=emacs.git 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 --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 97281db4c7c..e35ed8b87cb 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2012-01-24 Glenn Morris + + * 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 (tiny change) * eshell/esh-util.el (eshell-read-hosts-file): 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) diff --git a/lisp/vc/vc-sccs.el b/lisp/vc/vc-sccs.el index 26e7b020b46..31637f5490e 100644 --- a/lisp/vc/vc-sccs.el +++ b/lisp/vc/vc-sccs.el @@ -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)