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

Add support for the vc-delete command

Browse source
This commit is contained in:
Tom Willemse 2020-05-13 11:07:38 -07:00
parent 45af1cbeeb
commit 749665a8ae
2 changed files with 9 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
p4-lowlevel.el
View file

@ -373,6 +373,11 @@ Returns nil or raises an error on failure."
; an attempt to add a file which already exists in the repository. ; an attempt to add a file which already exists in the repository.
(p4-lowlevel-command-or-error (list "add" file))) (p4-lowlevel-command-or-error (list "add" file)))
(defun p4-lowlevel-delete (file)
"Tell Perforce to delet FILE from the repository.
Returns nil or raises an error on failure."
(p4-lowlevel-command-or-error (list "delete" file)))
; Here's what we need to support from the "p4 change" command, at ; Here's what we need to support from the "p4 change" command, at
; least for the time being: ; least for the time being:
; ;

4
vc-p4.el
View file

@ -980,6 +980,10 @@ third subblock in each conflict block."
The difference to vc-do-command is that this function always invokes `p4'." The difference to vc-do-command is that this function always invokes `p4'."
(apply 'vc-do-command buffer okstatus "p4" file flags)) (apply 'vc-do-command buffer okstatus "p4" file flags))
(defun vc-p4-delete-file (file)
"Tell perforce to delete FILE from the repository."
(p4-lowlevel-delete file))
(defun vc-p4-switch-client (client) (defun vc-p4-switch-client (client)
(interactive (interactive
(list (completing-read "Client: " (p4-lowlevel-local-clients)))) (list (completing-read "Client: " (p4-lowlevel-local-clients))))