[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp vc-hooks.el
From: |
Nick Roberts |
Subject: |
[Emacs-diffs] emacs/lisp vc-hooks.el |
Date: |
Fri, 30 Jan 2009 08:35:50 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Nick Roberts <nickrob> 09/01/30 08:35:50
Modified files:
lisp : vc-hooks.el
Log message:
(vc-stay-local-p): Let vc-BACKEND-stay-local take
precedence even when it's value is t.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/vc-hooks.el?cvsroot=emacs&r1=1.275&r2=1.276
Patches:
Index: vc-hooks.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/vc-hooks.el,v
retrieving revision 1.275
retrieving revision 1.276
diff -u -b -r1.275 -r1.276
--- vc-hooks.el 5 Jan 2009 03:19:53 -0000 1.275
+++ vc-hooks.el 30 Jan 2009 08:35:50 -0000 1.276
@@ -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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/lisp vc-hooks.el,
Nick Roberts <=