Add support for the vc-delete command

p4-lowlevel.el

@@ -373,6 +373,11 @@ Returns nil or raises an error on failure."
                                         ; an attempt to add a file which already exists in the repository.
   (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
                                         ; least for the time being:
                                         ;

vc-p4.el

@@ -980,6 +980,10 @@ third subblock in each conflict block."
 The difference to vc-do-command is that this function always invokes `p4'."
   (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)
   (interactive
    (list (completing-read "Client: " (p4-lowlevel-local-clients))))