mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-06 20:49:33 +00:00
Code Issues Releases Activity

(vc-next-action-on-file): Query when trying to lock non-latest

Browse Source 
version.
This commit is contained in:
André Spiegel 1995-08-17 13:08:36 +00:00
parent c8de1d9112
commit 9341ff29bc
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/vc.el
View File

@ -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.