mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2026-09-10 07:46:51 -04:00
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:
parent
a3a72ae355
commit
3660bd3eb4
|
|
@ -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."
|
||||
|
|
|
|||
Loading…
Reference in a new issue