From 95541017c2c620cb109b1af26a48f4988743a005 Mon Sep 17 00:00:00 2001 From: Nick Roberts Date: Fri, 30 Jan 2009 08:35:50 +0000 Subject: [PATCH] (vc-stay-local-p): Let vc-BACKEND-stay-local take precedence even when it's value is t. --- lisp/vc-hooks.el | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el index 0d482f01e91..aacb0daa1a4 100644 --- a/lisp/vc-hooks.el +++ b/lisp/vc-hooks.el @@ -177,8 +177,7 @@ individually should stay local." (delq nil (mapcar 'vc-stay-local-p file)) (let* ((backend (vc-backend file)) (sym (vc-make-backend-sym backend 'stay-local)) - (stay-local (if (boundp sym) (symbol-value sym) t))) - (if (eq stay-local t) (setq stay-local vc-stay-local)) + (stay-local (if (boundp sym) (symbol-value sym) vc-stay-local))) (if (symbolp stay-local) stay-local (let ((dirname (if (file-directory-p file) (directory-file-name file) -- 2.39.5