mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-03 22:20:52 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/vc/vc.el (vc-deduce-backend-nonvc-modes): Use defcustom (bug#67171).

Browse source 
(vc-deduce-backend): Check for t value of vc-deduce-backend-nonvc-modes.
This commit is contained in:
Juri Linkov 2023-11-27 09:38:34 +02:00
parent 2407f81013
commit 76cf700ecb
1 changed files with 8 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/vc/vc.el
View file

@ -1071,19 +1071,23 @@ 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
(defcustom vc-deduce-backend-nonvc-modes
;; Maybe we could even use comint-mode rather than shell-mode?
'(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.")
If the value is t, the backend is deduced in all modes."
:type '(choice (const :tag "None" nil)
(repeat symbol)
(const :tag "All" t))
:version "30.1")
(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)
((or (null vc-deduce-backend-nonvc-modes)
((or (eq vc-deduce-backend-nonvc-modes t)
(derived-mode-p vc-deduce-backend-nonvc-modes))
(ignore-errors (vc-responsible-backend default-directory)))
(vc-mode (vc-backend buffer-file-name))))