mirror of
git://git.sv.gnu.org/emacs.git
synced 2025-12-15 10:30:25 -08:00
(vc-recompute-state): Moved here from vc.el.
This commit is contained in:
parent
5124dd38c8
commit
588c1bf9a9
1 changed files with 6 additions and 0 deletions
|
|
@ -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))
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue