# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 866415798 0
# Node ID ffe9754664a281de718c34f8d8d54703ca69e254
# Parent  85e7518aaf4a98da0c65c0fd0f67b1914f6cea94
(vc-steal-lock): Use yes-or-no-p for confirmation.

diff -r 85e7518aaf4a -r ffe9754664a2 lisp/vc.el
--- a/lisp/vc.el	Sun Jun 15 21:00:32 1997 +0000
+++ b/lisp/vc.el	Sun Jun 15 23:03:18 1997 +0000
@@ -1035,8 +1035,8 @@
     (if rev
 	(setq file-description (format "%s:%s" file rev))
       (setq file-description file))
-    (if (not (y-or-n-p (format "Take the lock on %s from %s? "
-			       file-description owner)))
+    (if (not (yes-or-no-p (format "Steal the lock on %s from %s? "
+				  file-description owner)))
 	(error "Steal cancelled"))
     (pop-to-buffer (get-buffer-create "*VC-mail*"))
     (setq default-directory (expand-file-name "~/"))