vc-dir-mark-unmark: When region active, don't do any y/n prompting

* lisp/vc/vc-dir.el (vc-dir-mark-unmark): When region active,
bind vc-dir-allow-mass-mark-changes to nil.
This commit is contained in:
Sean Whitton 2025-09-05 15:22:12 +01:00
parent 20a9129349
commit 9f7cdcb454

View file

@ -688,7 +688,9 @@ With prefix argument ARG, move that many lines."
(not (eq processed-line (line-number-at-pos))))
(setq processed-line (line-number-at-pos))
(condition-case nil
(funcall mark-unmark-function)
;; Avoid any prompting.
(let ((vc-dir-allow-mass-mark-changes nil))
(funcall mark-unmark-function))
;; `vc-dir-mark-file' signals an error if we try marking
;; a directory containing marked files in its tree, or a
;; file in a marked directory tree. Just continue.