Make sure not to mark directories

* lisp/vc/vc-dir.el (vc-dir-mark-all-files):
Make sure not to mark directories (bug#37182).
This commit is contained in:
Wolfgang Scherer 2020-02-12 00:24:24 +02:00 committed by Dmitry Gutov
parent ff4ed4a0ff
commit 2b12c2b6f2

View file

@ -649,7 +649,7 @@ line."
(defun vc-dir-mark-all-files (arg)
"Mark all files with the same state as the current one.
With a prefix argument mark all files.
With a prefix argument mark all files (not directories).
If the current entry is a directory, mark all child files.
The commands operate on files that are on the same state.
@ -670,7 +670,8 @@ share the same state."
vc-ewoc)
(ewoc-map
(lambda (filearg)
(unless (vc-dir-fileinfo->marked filearg)
(unless (or (vc-dir-fileinfo->directory filearg)
(vc-dir-fileinfo->marked filearg))
(setf (vc-dir-fileinfo->marked filearg) t)
t))
vc-ewoc))