Mercurial > emacs
changeset 24595:5b4c1048b2da
(vc-backend-revert): For CVS files that were made writeable with "cvs
edit", call "cvs unedit" to undo that.
| author | André Spiegel <spiegel@gnu.org> |
|---|---|
| date | Thu, 08 Apr 1999 12:43:48 +0000 |
| parents | 2105eae5069b |
| children | 5f4d21e85cf6 |
| files | lisp/vc.el |
| diffstat | 1 files changed, 9 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/vc.el Thu Apr 08 12:17:13 1999 +0000 +++ b/lisp/vc.el Thu Apr 08 12:43:48 1999 +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.243 1999/01/22 16:28:12 spiegel Exp kwzh $ +;; $Id: vc.el,v 1.244 1999/03/13 05:04:24 kwzh Exp spiegel $ ;; This file is part of GNU Emacs. @@ -2856,9 +2856,14 @@ (vc-do-command nil 0 "co" file 'MASTER "-f" (concat "-u" (vc-workfile-version file))) ;; CVS - ;; 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)) + (progn + ;; 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) + ;; If "cvs edit" was used to make the file writeable, + ;; call "cvs unedit" now to undo that. + (if (eq (vc-checkout-model file) 'manual) + (vc-do-command nil 0 "cvs" file 'WORKFILE "unedit")))) (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)