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:
parent
ff4ed4a0ff
commit
2b12c2b6f2
1 changed files with 3 additions and 2 deletions
|
@ -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))
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue