From: André Spiegel <spiegel@gnu.org>
Date: Wed, 22 Nov 2000 12:54:21 +0000 (+0000)
Subject: (ediff-file-checked-out-p, ediff-file-checked-in-p): Call vc-state
X-Git-Tag: emacs-pretest-21.0.92~187
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f3bbec286b9c9aec68636b74366280e891dc91b6;p=emacs.git

(ediff-file-checked-out-p, ediff-file-checked-in-p): Call vc-state
instead of vc-locking-user, which no longer exists.
---

diff --git a/lisp/ediff-util.el b/lisp/ediff-util.el
index 1a294cb5f1f..ea0538178a7 100644
--- a/lisp/ediff-util.el
+++ b/lisp/ediff-util.el
@@ -1097,12 +1097,15 @@ of the current buffer."
 (defsubst ediff-file-checked-out-p (file)
   (or (not (featurep 'vc-hooks))
       (and (vc-backend file)
-	   (vc-locking-user file))))
+           (or (memq (vc-state file) '(edited needs-merge))
+               (stringp (vc-state file))))))
+  
 (defsubst ediff-file-checked-in-p (file)
   (and (featurep 'vc-hooks)
        ;; CVS files are considered not checked in
        (not (memq (vc-backend file) '(nil CVS)))
-       (not (vc-locking-user file))))
+       (not (memq (vc-state file) '(edited needs-merge)))
+       (not (stringp (vc-state file)))))
 
 (defun ediff-file-compressed-p (file)
   (condition-case nil