From 76cf700ecb78cb465bcd05ae2b2fb0d28e4d0aed Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Mon, 27 Nov 2023 09:38:34 +0200 Subject: [PATCH] * 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. --- lisp/vc/vc.el | 12 ++++++++---- 1 file 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)))) -- 2.39.5