diff options
| author | Juri Linkov <juri@linkov.net> | 2023-11-27 09:38:34 +0200 |
|---|---|---|
| committer | Juri Linkov <juri@linkov.net> | 2023-11-27 09:38:34 +0200 |
| commit | 76cf700ecb78cb465bcd05ae2b2fb0d28e4d0aed (patch) | |
| tree | 7577fb2218a2fddaa90de25db8b7b29f24535e16 | |
| parent | 2407f810136739da376ff0929b247a49dc196299 (diff) | |
* lisp/vc/vc.el (vc-deduce-backend-nonvc-modes): Use defcustom (bug#67171).
(vc-deduce-backend): Check for t value of vc-deduce-backend-nonvc-modes.
| -rw-r--r-- | lisp/vc/vc.el | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/lisp/vc/vc.el b/lisp/vc/vc.el index 1bd9ecb2193..3085e4b9f76 100644 --- a/lisp/vc/vc.el +++ b/lisp/vc/vc.el @@ -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)))) |