Use the right client for ‘vc-dir’

vc-p4.el

@@ -189,7 +189,9 @@ compare non-open files to the depot version."
 _FILES is ignored. The UPDATE-FUNCTION is used to process the
 results of this function."
   ;; XXX: this should be asynchronous.
-  (let ((lists (p4-lowlevel-fstat
+  (let* ((vc-p4-client (with-current-buffer (find-file-noselect dir)
+                    vc-p4-client))
+         (lists (p4-lowlevel-fstat
                  (format "%s/..." (directory-file-name (expand-file-name dir)))
                  :noerror t
                  :client vc-p4-client)))