From 588c1bf9a92f1a0433d8e528fd3f4dd8cc6abf91 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20Spiegel?= Date: Tue, 30 Nov 2004 11:03:09 +0000 Subject: (vc-recompute-state): Moved here from vc.el. --- lisp/vc-hooks.el | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'lisp/vc-hooks.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)) -- cgit v1.2.1