bug#10515: 23.3; vc-rcs-create-tag

[Glenn Morris]

Version: 24.0.93

Risto Mononen wrote:

> Creating tag with *C-v s* fails

Thanks for the report. This is simply an error in the argument
specification of vc-rcs-create-tag (and vc-sccs-create-tag):

*** lisp/vc/vc-rcs.el   2012-01-19 07:21:25 +0000
--- lisp/vc/vc-rcs.el   2012-01-24 08:19:28 +0000
***************
*** 809,817 ****
  ;;; Tag system
  ;;;
  
! (defun vc-rcs-create-tag (backend dir name branchp)
    (when branchp
!     (error "RCS backend %s does not support module branches" backend))
    (let ((result (vc-tag-precondition dir)))
      (if (stringp result)
        (error "File %s is not up-to-date" result)
--- 809,817 ----
  ;;; Tag system
  ;;;
  
! (defun vc-rcs-create-tag (dir name branchp)
    (when branchp
!     (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)