(vc-stay-local-p): Let vc-BACKEND-stay-local take

precedence even when it's value is t.

diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el
index 0d482f01e91d10e4189ddc343e8958c8b991837b..aacb0daa1a42afca60b8d5d350b7ea0305552ecd 100644 (file)
--- 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)