vc-dir-delete-file: Call vc-delete-file on FILESET-ONLY-FILES

* lisp/vc/vc-dir.el (vc-dir-delete-file): Call vc-delete-file on
FILESET-ONLY-FILES.  See bug#80998.
This commit is contained in:
Sean Whitton 2026-06-23 11:08:16 +01:00
parent a3a72ae355
commit 3660bd3eb4

View file

@ -1100,7 +1100,10 @@ tracked by a VCS."
The files will also be marked as deleted in the version control
system."
(interactive)
(vc-delete-file (or (vc-dir-marked-files) (vc-dir-current-file))))
(if-let* ((fileset-only-files
(nth 2 (vc-dir-deduce-fileset 'state-model-only-files))))
(vc-delete-file fileset-only-files)
(user-error "Nothing to delete here")))
(defun vc-dir-find-file ()
"Find the file on the current line."