From: André Spiegel <spiegel@gnu.org>
Date: Tue, 30 Nov 2004 11:03:09 +0000 (+0000)
Subject: (vc-recompute-state): Moved here from vc.el.
X-Git-Tag: ttn-vms-21-2-B4~3551
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=588c1bf9a92f1a0433d8e528fd3f4dd8cc6abf91;p=emacs.git

(vc-recompute-state): Moved here from vc.el.
---

diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el
index 22ff9edd428..2dc8e1533f0 100644
--- a/lisp/vc-hooks.el
+++ b/lisp/vc-hooks.el
@@ -461,6 +461,12 @@ For registered files, the value returned is one of:
           (vc-file-setprop file 'vc-state
                            (vc-call state-heuristic file)))))
 
+(defun vc-recompute-state (file)
+  "Recompute the version control state of FILE, and return it.
+This calls the possibly expensive function vc-BACKEND-state,
+rather than the heuristic."
+  (vc-file-setprop file 'vc-state (vc-call state file)))
+
 (defsubst vc-up-to-date-p (file)
   "Convenience function that checks whether `vc-state' of FILE is `up-to-date'."
   (eq (vc-state file) 'up-to-date))