Add client arguments for ‘p4 add’

p4-lowlevel.el

@@ -374,13 +374,15 @@ commands."
 ;; Do NOT need to support "-t".
 ;; Do NOT need to support the specification of multiple files.
 
-(defun p4-lowlevel-add (file)
+(cl-defun p4-lowlevel-add (file &key client)
   "Tell Perforce to add FILE to the repository.
 Returns nil or raises an error on failure."
-  ;; Note that because "p4 -s add" has bugs, at least as of p4 99.2, this won't
+  (let* ((client-args (if client (list "-c" client)))
-  ;; necessarily detect when the add fails, e.g., because of an attempt to add a
+         (args (append client-args (list "add" file))))
-  ;; file which already exists in the repository.
+   ;; Note that because "p4 -s add" has bugs, at least as of p4 99.2, this won't
-  (p4-lowlevel-command-or-error (list "add" file)))
+   ;; necessarily detect when the add fails, e.g., because of an attempt to add a
+   ;; file which already exists in the repository.
+   (p4-lowlevel-command-or-error args)))
 
 (defun p4-lowlevel-delete (file)
   "Tell Perforce to delet FILE from the repository.

vc-p4.el

@@ -271,7 +271,7 @@ special case of a Perforce file that is added but not yet committed."
                 (p4-lowlevel-revert file :client vc-p4-client))
               (p4-lowlevel-edit file :client vc-p4-client))
           (error "File %s already opened for delete." file))
-      (p4-lowlevel-add file))))
+      (p4-lowlevel-add file :client vc-p4-client))))
 
 (defun vc-p4-init-revision ()
   "Returns `1', the default initial version for Perforce files."