(vc-default-receive-file): The 'register method now

expects a list, pass a list.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 31f23e0fa66861c766b3113faec94bcd6548f2d6..c4d89a2e5d0014a1f40570a0e3ca3153a7329a44 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2009-03-14  Dan Nicolaescu  <dann@ics.uci.edu>
+
+       * vc.el (vc-default-receive-file): The 'register method now
+       expects a list, pass a list.
+
 2009-03-14  Chong Yidong  <cyd@stupidchicken.com>
 
        * doc-view.el (doc-view-sentinel): Strip trailing newline from

diff --git a/lisp/vc.el b/lisp/vc.el
index e9de682285ae6348a00af18a86a86cb4c103e099..8592544282185167927b19d24d1d1f65722566b5 100644 (file)
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -2426,7 +2426,7 @@ to provide the `find-revision' operation instead."
 
 (defun vc-default-receive-file (backend file rev)
   "Let BACKEND receive FILE from another version control system."
-  (vc-call-backend backend 'register file rev ""))
+  (vc-call-backend backend 'register (list file) rev ""))
 
 (defun vc-default-retrieve-tag (backend dir name update)
   (if (string= name "")