# HG changeset patch # User Andr Spiegel # Date 1053712649 0 # Node ID 0b871f4efb592d0774259faca9e4c25e88b8e5cd # Parent 5635fb18b7d6edd2b2aa819208a3f9949d828c55 (vc-cvs-checkout): Don't leave the branch when REV is t. From Don Provan . diff -r 5635fb18b7d6 -r 0b871f4efb59 lisp/vc-cvs.el --- a/lisp/vc-cvs.el Fri May 23 15:49:16 2003 +0000 +++ b/lisp/vc-cvs.el Fri May 23 17:57:29 2003 +0000 @@ -5,7 +5,7 @@ ;; Author: FSF (see vc.el for full credits) ;; Maintainer: Andre Spiegel -;; $Id: vc-cvs.el,v 1.59 2003/05/08 20:44:50 monnier Exp $ +;; $Id: vc-cvs.el,v 1.60 2003/05/09 14:32:01 monnier Exp $ ;; This file is part of GNU Emacs. @@ -428,11 +428,14 @@ 'implicit))) "-w") "update" - ;; default for verbose checkout: clear the sticky tag so - ;; that the actual update will get the head of the trunk - (if (or (not rev) (eq rev t) (string= rev "")) - "-A" - (concat "-r" rev)) + (when rev + (unless (eq rev t) + ;; default for verbose checkout: clear the + ;; sticky tag so that the actual update will + ;; get the head of the trunk + (if (string= rev "") + "-A" + (concat "-r" rev)))) switches)))) (vc-mode-line file) (message "Checking out %s...done" filename)))))