Mercurial > emacs
comparison lisp/vc-cvs.el @ 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 | 3eab629b1239 |
| children | 2b72fd42f02e |
comparison
equal
deleted
inserted
replaced
| 51163:5635fb18b7d6 | 51164:0b871f4efb59 |
|---|---|
| 3 ;; Copyright (C) 1995,98,99,2000,2001,2002 Free Software Foundation, Inc. | 3 ;; Copyright (C) 1995,98,99,2000,2001,2002 Free Software Foundation, Inc. |
| 4 | 4 |
| 5 ;; Author: FSF (see vc.el for full credits) | 5 ;; Author: FSF (see vc.el for full credits) |
| 6 ;; Maintainer: Andre Spiegel <spiegel@gnu.org> | 6 ;; Maintainer: Andre Spiegel <spiegel@gnu.org> |
| 7 | 7 |
| 8 ;; $Id: vc-cvs.el,v 1.59 2003/05/08 20:44:50 monnier Exp $ | 8 ;; $Id: vc-cvs.el,v 1.60 2003/05/09 14:32:01 monnier Exp $ |
| 9 | 9 |
| 10 ;; This file is part of GNU Emacs. | 10 ;; This file is part of GNU Emacs. |
| 11 | 11 |
| 12 ;; GNU Emacs is free software; you can redistribute it and/or modify | 12 ;; GNU Emacs is free software; you can redistribute it and/or modify |
| 13 ;; it under the terms of the GNU General Public License as published by | 13 ;; it under the terms of the GNU General Public License as published by |
| 426 (or (not (file-exists-p file)) | 426 (or (not (file-exists-p file)) |
| 427 (not (eq (vc-cvs-checkout-model file) | 427 (not (eq (vc-cvs-checkout-model file) |
| 428 'implicit))) | 428 'implicit))) |
| 429 "-w") | 429 "-w") |
| 430 "update" | 430 "update" |
| 431 ;; default for verbose checkout: clear the sticky tag so | 431 (when rev |
| 432 ;; that the actual update will get the head of the trunk | 432 (unless (eq rev t) |
| 433 (if (or (not rev) (eq rev t) (string= rev "")) | 433 ;; default for verbose checkout: clear the |
| 434 "-A" | 434 ;; sticky tag so that the actual update will |
| 435 (concat "-r" rev)) | 435 ;; get the head of the trunk |
| 436 (if (string= rev "") | |
| 437 "-A" | |
| 438 (concat "-r" rev)))) | |
| 436 switches)))) | 439 switches)))) |
| 437 (vc-mode-line file) | 440 (vc-mode-line file) |
| 438 (message "Checking out %s...done" filename))))) | 441 (message "Checking out %s...done" filename))))) |
| 439 | 442 |
| 440 (defun vc-cvs-delete-file (file) | 443 (defun vc-cvs-delete-file (file) |