(vc-sccs-create-tag): Fix typo in error message and pass backend arg.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a7e97b435d2ec3137268567ad10b6fea1d2944d1..5d4de7adc65b17abc08a536d4e575c5e295b5590 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2008-05-16  Juanma Barranquero  <lekktu@gmail.com>
+
+       * vc-rcs.el (vc-rcs-create-tag):
+       * vc-sccs.el (vc-sccs-create-tag):
+       Fix typo in error message and pass backend arg.
+
 2008-05-15  Michael Albinus  <michael.albinus@gmx.de>
 
        * net/tramp.el (tramp-file-name-for-operation): Add `make-temp-name'.

diff --git a/lisp/vc-sccs.el b/lisp/vc-sccs.el
index a5096da9643480deabc48e6a63e3762b9bf1de6f..5cf19064b594b40e8936cb5ec67a8731d1571fb6 100644 (file)
--- a/lisp/vc-sccs.el
+++ b/lisp/vc-sccs.el
@@ -258,7 +258,7 @@ expanded if `vc-keep-workfiles' is non-nil, otherwise, delete the workfile."
 If FILE is a directory, all version-controlled files beneath are checked out.
 EDITABLE non-nil means that the file should be writable and
 locked.  REV is the revision to check out."
-  (if (file-directory-p file) 
+  (if (file-directory-p file)
       (mapc 'vc-sccs-checkout (vc-expand-dirs (list file)))
     (let ((file-buffer (get-file-buffer file))
          switches)
@@ -293,7 +293,7 @@ are expanded to all version-controlled subfiles."
       (error "SCCS backend doesn't support directory-level rollback."))
   (dolist (file files)
          (let ((discard (vc-working-revision file)))
-           (if (null (yes-or-no-p (format "Remove version %s from %s history? " 
+           (if (null (yes-or-no-p (format "Remove version %s from %s history? "
                                           discard file)))
                (error "Aborted"))
            (message "Removing revision %s from %s..." discard file)
@@ -304,7 +304,7 @@ are expanded to all version-controlled subfiles."
 (defun vc-sccs-revert (file &optional contents-done)
   "Revert FILE to the version it was based on. If FILE is a directory,
 revert all subfiles."
-  (if (file-directory-p file) 
+  (if (file-directory-p file)
       (mapc 'vc-sccs-revert (vc-expand-dirs (list file)))
     (vc-sccs-do-command nil 0 "unget" (vc-name file))
     (vc-sccs-do-command nil 0 "get" (vc-name file))
@@ -315,7 +315,7 @@ revert all subfiles."
 
 (defun vc-sccs-steal-lock (file &optional rev)
   "Steal the lock on the current workfile for FILE and revision REV."
-  (if (file-directory-p file) 
+  (if (file-directory-p file)
       (mapc 'vc-sccs-steal-lock (vc-expand-dirs (list file)))
     (vc-sccs-do-command nil 0 "unget"
                        (vc-name file) "-n" (if rev (concat "-r" rev)))
@@ -325,7 +325,7 @@ revert all subfiles."
 (defun vc-sccs-modify-change-comment (files rev comment)
   "Modify (actually, append to) the change comments for FILES on a specified REV."
   (dolist (file (vc-expand-dirs files))
-    (vc-sccs-do-command nil 0 "cdc" (vc-name file) 
+    (vc-sccs-do-command nil 0 "cdc" (vc-name file)
                         (concat "-y" comment) (concat "-r" rev))))
 
 \f
@@ -358,7 +358,7 @@ revert all subfiles."
 
 (defun vc-sccs-create-tag (backend dir name branchp)
   (when branchp
-    (error "SCCS backend %s does not support module branches."))
+    (error "SCCS 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)