Mercurial > emacs

changeset 21325:8b4db8ce1da3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vc-backend-revert): CVS bug fix.
author André Spiegel <spiegel@gnu.org>
date Tue, 31 Mar 1998 18:08:36 +0000
parents b0abfde79536
children 8150549598cc
files lisp/vc.el
diffstat 1 files changed, 4 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/vc.el	Tue Mar 31 17:19:32 1998 +0000
+++ b/lisp/vc.el	Tue Mar 31 18:08:36 1998 +0000
@@ -5,7 +5,7 @@
 ;; Author:     Eric S. Raymond <esr@snark.thyrsus.com>
 ;; Maintainer: Andre Spiegel <spiegel@inf.fu-berlin.de>
 
-;; $Id: vc.el,v 1.212 1998/03/20 15:40:24 spiegel Exp spiegel $
+;; $Id: vc.el,v 1.213 1998/03/31 17:19:32 spiegel Exp spiegel $
 
 ;; This file is part of GNU Emacs.
 
@@ -2729,10 +2729,9 @@
    (vc-do-command nil 0 "co" file 'MASTER
 		  "-f" (concat "-u" (vc-workfile-version file)))
    ;; CVS
-   (progn
-     (delete-file file)
-     (vc-do-command nil 0 "cvs" file 'WORKFILE "update"
-                    (concat "-r" (vc-workfile-version file)))))
+   ;; Check out via standard output (caused by the final argument 
+   ;; FILE below), so that no sticky tag is set.
+   (vc-backend-checkout file nil (vc-workfile-version file) file))
   (vc-file-setprop file 'vc-locking-user 'none)
   (vc-file-setprop file 'vc-checkout-time (nth 5 (file-attributes file)))
   (message "Reverting %s...done" file)