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

* lisp/vc/vc.el (vc-deduce-backend-nonvc-modes): New variable (bug#67145).

Browse source 
(vc-deduce-backend): Use it.
This commit is contained in:
Juri Linkov 2023-11-14 09:44:15 +02:00
parent bda31b2c6d
commit 7d42a76234
1 changed files with 9 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lisp/vc/vc.el
View file

@ -1071,14 +1071,20 @@ Within directories, only files already under version control are noticed."
(defvar diff-vc-backend)
(defvar diff-vc-revisions)
;; Maybe we could even use comint-mode rather than shell-mode?
(defvar vc-deduce-backend-nonvc-modes
'(dired-mode shell-mode eshell-mode compilation-mode)
"List of modes not supported by VC where backend should be deduced.
In these modes the backend is deduced based on `default-directory'.
When nil, the backend is deduced in all modes.")
(defun vc-deduce-backend ()
(cond ((derived-mode-p 'vc-dir-mode) vc-dir-backend)
((derived-mode-p 'log-view-mode) log-view-vc-backend)
((derived-mode-p 'log-edit-mode) log-edit-vc-backend)
((derived-mode-p 'diff-mode) diff-vc-backend)
;; Maybe we could even use comint-mode rather than shell-mode?
((derived-mode-p
'dired-mode 'shell-mode 'eshell-mode 'compilation-mode)
((or (null vc-deduce-backend-nonvc-modes)
(apply #'derived-mode-p vc-deduce-backend-nonvc-modes))
(ignore-errors (vc-responsible-backend default-directory)))
(vc-mode (vc-backend buffer-file-name))))