From 70df4bbe298651a3980d56795bcfd04611efa37e Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Tue, 24 Jan 2012 00:22:50 -0800 Subject: [PATCH] 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 --- lisp/ChangeLog | 6 ++++++ lisp/vc/vc-rcs.el | 4 ++-- lisp/vc/vc-sccs.el | 4 ++-- 3 files changed, 10 insertions(+), 4 deletions(-) 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) -- 2.11.4.GIT