[Emacs-diffs] Changes to emacs/lisp/vc-dispatcher.el,v

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        08/05/05 06:12:33

Index: vc-dispatcher.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/vc-dispatcher.el,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -b -r1.10 -r1.11
--- vc-dispatcher.el    4 May 2008 19:27:58 -0000       1.10
+++ vc-dispatcher.el    5 May 2008 06:12:33 -0000       1.11
@@ -1547,9 +1547,11 @@
              (let*
                  ((file-short (substring file (length ddir)))
                   (state 
-                   (apply (client-mode->file-to-state client-mode) fname))
+                   (funcall (vc-client-object->file-to-state vc-client-mode)
+                             fname))
                   (extra
-                   (apply (client-mode->file-to-extra client-mode) fname))
+                   (funcall (vc-client-object->file-to-extra vc-client-mode)
+                             fname))
                   (entry
                    (list file-short state extra)))
                (vc-dir-update (list entry) status-buf))))))
@@ -1583,7 +1585,7 @@
   (setq buffer-read-only t)
   (use-local-map vc-dir-mode-map)
   (set (make-local-variable 'tool-bar-map) vc-dir-tool-bar-map)
-  (set (make-local-variable 'client-mode) client-object)
+  (set (make-local-variable 'vc-client-mode) client-object)
   (let ((buffer-read-only nil))
     (erase-buffer)
     (set (make-local-variable 'vc-dir-process-buffer) nil)