Mercurial > emacs
comparison lisp/vc-rcs.el @ 49092:da6da3a685c2
(vc-rcs-checkout): Fix the check whether we are on a branch.
| author | André Spiegel <spiegel@gnu.org> |
|---|---|
| date | Tue, 07 Jan 2003 08:28:15 +0000 |
| parents | f5b3c92f968b |
| children | e88404e8f2cf |
comparison
equal
deleted
inserted
replaced
| 49091:4d9ad5d4f2d4 | 49092:da6da3a685c2 |
|---|---|
| 3 ;; Copyright (C) 1992,93,94,95,96,97,98,99,2000,2001 Free Software Foundation, Inc. | 3 ;; Copyright (C) 1992,93,94,95,96,97,98,99,2000,2001 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-rcs.el,v 1.33 2002/12/26 14:38:20 spiegel Exp $ | 8 ;; $Id: vc-rcs.el,v 1.34 2003/01/03 15:27:35 spiegel 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 |
| 411 (if (not rev) | 411 (if (not rev) |
| 412 ;; no revision specified: | 412 ;; no revision specified: |
| 413 ;; use current workfile version | 413 ;; use current workfile version |
| 414 workrev | 414 workrev |
| 415 ;; REV is t ... | 415 ;; REV is t ... |
| 416 (if (vc-branch-p workrev) | 416 (if (not (vc-trunk-p workrev)) |
| 417 ;; ... go to head of current branch | 417 ;; ... go to head of current branch |
| 418 (vc-branch-part workrev) | 418 (vc-branch-part workrev) |
| 419 ;; ... go to head of trunk | 419 ;; ... go to head of trunk |
| 420 (vc-rcs-set-default-branch file | 420 (vc-rcs-set-default-branch file |
| 421 nil) | 421 nil) |