diff options
| -rw-r--r-- | lisp/vc.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/vc.el b/lisp/vc.el index 266d454be7c..54d43ef08a5 100644 --- a/lisp/vc.el +++ b/lisp/vc.el | |||
| @@ -647,7 +647,9 @@ to an optional list of FLAGS." | |||
| 647 | (vc-checkout-writable-buffer file) | 647 | (vc-checkout-writable-buffer file) |
| 648 | (if (yes-or-no-p "Lock the latest version instead? ") | 648 | (if (yes-or-no-p "Lock the latest version instead? ") |
| 649 | (vc-checkout-writable-buffer file | 649 | (vc-checkout-writable-buffer file |
| 650 | (vc-branch-part (vc-workfile-version file)))))) | 650 | (if (vc-trunk-p (vc-workfile-version file)) |
| 651 | "" ;; this means check out latest on trunk | ||
| 652 | (vc-branch-part (vc-workfile-version file))))))) | ||
| 651 | ))) | 653 | ))) |
| 652 | 654 | ||
| 653 | ;; a checked-out version exists, but the user may not own the lock | 655 | ;; a checked-out version exists, but the user may not own the lock |