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 | |
| 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
| -rw-r--r-- | lisp/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/vc/vc-rcs.el | 4 | ||||
| -rw-r--r-- | 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 <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): 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) |