(vc-revert-file): New function.

(vc-revert-buffer): Delegate some of the work to it.

diff --git a/lisp/vc.el b/lisp/vc.el
index d020162332ee30a3e65dac0d2f65e2041482dd11..3984c44470a79e85ad90489cb66bf020f0e68e71 100644 (file)
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -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.