From 8d420b631d8cc385ac206b5aca920f96e662d9ad Mon Sep 17 00:00:00 2001 From: =?utf8?q?Andr=C3=A9=20Spiegel?= Date: Wed, 22 Nov 2000 12:55:31 +0000 Subject: [PATCH] (viper-file-checked-in-p): Call vc-state instead of vc-locking-user, which no longer exists. --- lisp/emulation/viper-util.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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) -- 2.39.2