mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 13:11:14 -08:00
Code Issues Projects Releases Wiki Activity

(vc-revert-file): New function.

Browse source 
(vc-revert-buffer): Delegate some of the work to it.
This commit is contained in:
André Spiegel 2000-10-03 11:22:13 +00:00
parent 1be1456864
commit 045e1aa59e
1 changed files with 14 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

20
lisp/vc.el
View file

@ -5,6 +5,8 @@
;; Author: FSF (see below for full credits)
;; Maintainer: Andre Spiegel <spiegel@gnu.org>
;; $Id$
;; This file is part of GNU Emacs.
;; GNU Emacs is free software; you can redistribute it and/or modify
@ -2177,14 +2179,20 @@ changes found in the master file; use \\[universal-argument] \\[vc-next-action]
(set-buffer obuf)
;; Do the reverting
(message "Reverting %s..." file)
(with-vc-properties
file
(vc-call revert file)
`((vc-state up-to-date)
(vc-checkout-time ,(nth 5 (file-attributes file)))))
(vc-resynch-buffer file t t)
(vc-revert-file file)
(message "Reverting %s...done" file)))
(defun vc-revert-file (file)
"Revert FILE back to the version it was based on."
;; TODO: With local version caching, this function will get the
;; base version locally and not from the server.
(with-vc-properties
file
(vc-call revert file)
`((vc-state up-to-date)
(vc-checkout-time ,(nth 5 (file-attributes file)))))
(vc-resynch-buffer file t t))
;;;###autoload
(defun vc-cancel-version (norevert)
"Get rid of most recently checked in version of this file.