(vc-checkout): Typo.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d7d58bdcca610ecb8b679e9c1f27372036261817..1f40087d0e0438852e3cb294e62459503130dfe9 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2008-04-30  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * vc.el (vc-checkout): Typo.
+
 2008-04-30  Dan Nicolaescu  <dann@ics.uci.edu>
 
        * menu-bar.el (menu-bar-tools-menu): Reorder, place Games last.

diff --git a/lisp/vc.el b/lisp/vc.el
index 89e419bc5a81f8f853402e02e1c5c13fc09cff6e..33148db22dfcd0e5fbbd857e31298a702f9eff81 100644 (file)
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -1953,7 +1953,7 @@ After check-out, runs the normal hook `vc-checkout-hook'."
   (let ((backend (vc-backend file)))
     (with-vc-properties (list file)
       (condition-case err
-          (vc-call-backend 'checkout file writable rev)
+          (vc-call-backend backend 'checkout file writable rev)
         (file-error
          ;; Maybe the backend is not installed ;-(
          (when writable