From a0c6a0fb8b426a4a0327176a7cc98185a1402738 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Wed, 3 Feb 2010 00:28:57 +0200 Subject: * ediff-util.el (ediff-file-checked-in-p): Replace '(nil CVS) by '(RCS SCCS) with inverted condition. --- lisp/ediff-util.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lisp/ediff-util.el') diff --git a/lisp/ediff-util.el b/lisp/ediff-util.el index 03f5c9fe2a3..77284a19f50 100644 --- a/lisp/ediff-util.el +++ b/lisp/ediff-util.el @@ -1126,8 +1126,8 @@ of the current buffer." (defun ediff-file-checked-in-p (file) (and (featurep 'vc-hooks) - ;; CVS files are considered not checked in - (not (memq (vc-backend file) '(nil CVS))) + ;; Only RCS and SCCS files are considered checked in + (memq (vc-backend file) '(RCS SCCS)) (if (fboundp 'vc-state) (and (not (memq (vc-state file) '(edited needs-merge))) -- cgit v1.2.1