diff options
| author | André Spiegel | 1995-10-04 15:13:04 +0000 |
|---|---|---|
| committer | André Spiegel | 1995-10-04 15:13:04 +0000 |
| commit | 1ba1cade16cbd87fae03244779d24dca1eaecb14 (patch) | |
| tree | b89386621e9cd1f28fde050bf1c9565909b86b69 | |
| parent | 597dd755eb2aa09d4119575d74e567d62cc02a80 (diff) | |
| download | emacs-1ba1cade16cbd87fae03244779d24dca1eaecb14.tar.gz emacs-1ba1cade16cbd87fae03244779d24dca1eaecb14.zip | |
(vc-next-action-on-file): When locking the latest trunk version,
use empty version number.
| -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 |