mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

dired-vc-deduce-fileset: Call vc-backend-for-registration

Browse source 
* lisp/vc/vc.el (vc-backend-for-registration):
* lisp/dired-aux.el (vc-backend-for-registration): Autoload.
(dired-vc-deduce-fileset): Call vc-backend-for-registration when
vc-responsible-backend returns nil (bug#78987).
This commit is contained in:
Stephen Berman 2025-07-12 11:34:31 +01:00 • committed by Sean Whitton
parent fce86c7e95
commit b406c44c82
2 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/dired-aux.el
View file

@ -1098,6 +1098,7 @@ Return the result of `process-file' - zero for success."
(autoload 'Man-support-local-filenames "man")
(autoload 'vc-responsible-backend "vc")
(autoload 'vc-backend-for-registration "vc")
(defvar dired-guess-shell-alist-default
(list
@ -4022,8 +4023,9 @@ In this case, the VERBOSE argument is ignored."
;;;###autoload
(defun dired-vc-deduce-fileset
(&optional state-model-only-files not-state-changing)
(let ((backend (vc-responsible-backend default-directory))
(files (dired-get-marked-files nil nil nil nil t)))
(let* ((files (dired-get-marked-files nil nil nil nil t))
(backend (or (vc-responsible-backend default-directory)
(vc-backend-for-registration (car files)))))
(when (and (not not-state-changing)
(cl-some #'file-directory-p files))
(user-error "\

1
lisp/vc/vc.el
View file

@ -1104,6 +1104,7 @@ Return the result of evaluating FORM."
;;; Code for deducing what fileset and backend to assume
;;;###autoload
(defun vc-backend-for-registration (file)
"Return a backend that can be used for registering FILE.