procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Make sure not to mark directories

Browse source 
* 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
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/vc/vc-dir.el
View file

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