; * lisp/vc/vc.el (vc-checkin): Fix thinko.

(cherry picked from commit c916f816e0f12f876868f9ffa1be4b070933bb6f)

diff --git a/lisp/vc/vc.el b/lisp/vc/vc.el
index 70f08aa36d89af88c2833d98d977ea8da54e8a1f..b06f3f9103dea84d74376ab5fa61c95e6e83caa6 100644 (file)
--- a/lisp/vc/vc.el
+++ b/lisp/vc/vc.el
@@ -1949,7 +1949,7 @@ Runs the normal hooks `vc-before-checkin-hook' and `vc-checkin-hook'."
       ;; RCS 5.7 gripes about whitespace-only comments too.
       (unless (and comment (string-match "[^\t\n ]" comment))
         (setq comment "*** empty log message ***"))
-      (when register (vc-register (list backend files)))
+      (when register (vc-register (list backend register)))
       (cl-labels ((do-it ()
                     ;; We used to change buffers to get local value of
                     ;; `vc-checkin-switches', but the (singular) local