Mercurial > emacs

changeset 101673:269a73f83025

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vc-stay-local-p): Let vc-BACKEND-stay-local take precedence even when it's value is t.
author Nick Roberts <nickrob@snap.net.nz>
date Fri, 30 Jan 2009 08:35:50 +0000
parents 3e7257e620b5
children 9a79c9d87998
files lisp/vc-hooks.el
diffstat 1 files changed, 1 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/vc-hooks.el	Fri Jan 30 08:35:36 2009 +0000
+++ b/lisp/vc-hooks.el	Fri Jan 30 08:35:50 2009 +0000
@@ -177,8 +177,7 @@
       (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)