ryuslash/vc-p4
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Add client argument to ‘vc-p4-delete’

Browse source
This commit is contained in:
Tom Willemse 2021-01-23 10:34:05 -08:00
parent a9bf4c10ad
commit 7af739cc7d
2 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
p4-lowlevel.el
View file

@ -384,10 +384,12 @@ Returns nil or raises an error on failure."
;; file which already exists in the repository.
(p4-lowlevel-command-or-error args)))
(defun p4-lowlevel-delete (file)
(cl-defun p4-lowlevel-delete (file &key client)
"Tell Perforce to delet FILE from the repository.
Returns nil or raises an error on failure."
(p4-lowlevel-command-or-error (list "delete" file)))
(let* ((client-args (if client (list "-c" client)))
(args (append client-args (list "delete" file))))
(p4-lowlevel-command-or-error args)))
;; Here's what we need to support from the "p4 change" command, at least for the
;; time being:

2
vc-p4.el
View file

@ -1015,7 +1015,7 @@ The difference to vc-do-command is that this function always invokes `p4'."
(defun vc-p4-delete-file (file)
"Tell perforce to delete FILE from the repository."
(p4-lowlevel-delete file))
(p4-lowlevel-delete file :client vc-p4-client))
(defun vc-p4-switch-client (client)
(interactive