# HG changeset patch
# User Andr��� Spiegel <spiegel@gnu.org>
# Date 974897731 0
# Node ID f3a1a5ef5e7fba2c7e130effd8d8a5e99a1ba650
# Parent  798176da52623865f75efa1536962b4b4c3b4c00
(viper-file-checked-in-p): Call vc-state instead of vc-locking-user,
which no longer exists.

diff -r 798176da5262 -r f3a1a5ef5e7f lisp/emulation/viper-util.el
--- a/lisp/emulation/viper-util.el	Wed Nov 22 12:54:21 2000 +0000
+++ b/lisp/emulation/viper-util.el	Wed Nov 22 12:55:31 2000 +0000
@@ -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)