X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/07dfe73898a43069d9d85ef74978e3fc9509773a..937640a621a4ce2e5e56eaecca37a2a28a584318:/lisp/net/tramp-vc.el

diff --git a/lisp/net/tramp-vc.el b/lisp/net/tramp-vc.el
index e720deb8f0..3cc54eda65 100644
--- a/lisp/net/tramp-vc.el
+++ b/lisp/net/tramp-vc.el
@@ -217,6 +217,7 @@ Since TRAMP doesn't do async commands yet, this function doesn't, either."
 ;; Daniel Pittman <daniel@danann.net>
 ;;-(if (fboundp 'vc-call-backend)
 ;;-    () ;; This is the new VC for which we don't have an appropriate advice yet
+(unless (fboundp 'process-file)
 (if (fboundp 'vc-call-backend)
     (defadvice vc-do-command
       (around tramp-advice-vc-do-command
@@ -242,7 +243,7 @@ Since TRAMP doesn't do async commands yet, this function doesn't, either."
           (setq ad-return-value
                 (apply 'tramp-vc-do-command buffer okstatus command 
                        (or file (buffer-file-name)) last flags))
-        ad-do-it))))
+        ad-do-it)))))
 ;;-)