From 9341ff29bce91c62aab8b7714e92ec3eee6fac0c Mon Sep 17 00:00:00 2001 From: =?utf8?q?Andr=C3=A9=20Spiegel?= Date: Thu, 17 Aug 1995 13:08:36 +0000 Subject: [PATCH] (vc-next-action-on-file): Query when trying to lock non-latest version. --- lisp/vc.el | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/lisp/vc.el b/lisp/vc.el index b22cd6fcdb6..01d2f993cfb 100644 --- a/lisp/vc.el +++ b/lisp/vc.el @@ -531,7 +531,15 @@ to an optional list of FLAGS." (concat "-b" rev))) (vc-checkout file nil rev)) (error "Sorry, this is not implemented for SCCS.")) - (vc-checkout-writable-buffer file)))) + (if (vc-latest-on-branch-p file) + (vc-checkout-writable-buffer file) + (if (yes-or-no-p + "This is not the latest version. Really lock it? ") + (vc-checkout-writable-buffer file) + (if (yes-or-no-p "Lock the latest version instead? ") + (vc-checkout-writable-buffer file + (vc-branch-part (vc-workfile-version file)))))) + ))) ;; a checked-out version exists, but the user may not own the lock ((and (not (eq vc-type 'CVS)) ;There are no locks in CVS. -- 2.39.2