Mercurial > emacs
changeset 51164:0b871f4efb59
(vc-cvs-checkout): Don't leave the branch when REV is t.
From Don Provan <dprovan@bivio.net>.
| author | André Spiegel <spiegel@gnu.org> |
|---|---|
| date | Fri, 23 May 2003 17:57:29 +0000 |
| parents | 5635fb18b7d6 |
| children | 7a7fd3859264 |
| files | lisp/vc-cvs.el |
| diffstat | 1 files changed, 9 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- 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 <spiegel@gnu.org> -;; $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)))))