[Emacs-diffs] /srv/bzr/emacs/trunk r106921: Fix rcs and sccs create-tag commands.

[Glenn Morris]

------------------------------------------------------------
revno: 106921
fixes bug(s): http://debbugs.gnu.org/10515
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Tue 2012-01-24 00:22:50 -0800
message:
  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.
modified:
  lisp/ChangeLog
  lisp/vc/vc-rcs.el
  lisp/vc/vc-sccs.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-01-23 08:18:22 +0000
+++ b/lisp/ChangeLog    2012-01-24 08:22:50 +0000
@@ -1,3 +1,9 @@
+2012-01-24  Glenn Morris  <address@hidden>
+
+       * 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  <address@hidden>  (tiny change)
 
        * eshell/esh-util.el (eshell-read-hosts-file):

=== modified file 'lisp/vc/vc-rcs.el'
--- a/lisp/vc/vc-rcs.el 2012-01-19 07:21:25 +0000
+++ b/lisp/vc/vc-rcs.el 2012-01-24 08:22:50 +0000
@@ -809,9 +809,9 @@
 ;;; 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)

=== modified file 'lisp/vc/vc-sccs.el'
--- a/lisp/vc/vc-sccs.el        2012-01-19 07:21:25 +0000
+++ b/lisp/vc/vc-sccs.el        2012-01-24 08:22:50 +0000
@@ -359,9 +359,9 @@
 ;;; 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)