diff options
| author | André Spiegel <spiegel@gnu.org> | 2004-11-30 11:03:09 +0000 |
|---|---|---|
| committer | André Spiegel <spiegel@gnu.org> | 2004-11-30 11:03:09 +0000 |
| commit | 588c1bf9a92f1a0433d8e528fd3f4dd8cc6abf91 (patch) | |
| tree | 862f76b2cc7701ee595a5990df517cb080b597f2 /lisp/vc-hooks.el | |
| parent | 5124dd38c87e7ae1e2cbd0e9f2c1e7fc07d040b9 (diff) | |
| download | emacs-588c1bf9a92f1a0433d8e528fd3f4dd8cc6abf91.tar.gz | |
(vc-recompute-state): Moved here from vc.el.
Diffstat (limited to 'lisp/vc-hooks.el')
| -rw-r--r-- | lisp/vc-hooks.el | 6 |
1 files changed, 6 insertions, 0 deletions
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)) |