From: André Spiegel <spiegel@gnu.org>
Date: Wed, 22 Nov 2000 12:55:31 +0000 (+0000)
Subject: (viper-file-checked-in-p): Call vc-state instead of vc-locking-user,
X-Git-Tag: emacs-pretest-21.0.92~186
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8d420b631d8cc385ac206b5aca920f96e662d9ad;p=emacs.git

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

diff --git a/lisp/emulation/viper-util.el b/lisp/emulation/viper-util.el
index 393dc4d5276..a36478f0652 100644
--- a/lisp/emulation/viper-util.el
+++ b/lisp/emulation/viper-util.el
@@ -684,7 +684,8 @@
   (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)))))
 
 ;; checkout if visited file is checked in
 (defun viper-maybe-checkout (buf)