# HG changeset patch # User Eric S. Raymond # Date 1210529759 0 # Node ID 8c21639e34cc3688365af051ab66946331add8b2 # Parent 53f6ff0ac0759411d458b06350c5df8a7b4ac6e0 Remove dead code. diff -r 53f6ff0ac075 -r 8c21639e34cc lisp/ChangeLog --- a/lisp/ChangeLog Sun May 11 15:36:33 2008 +0000 +++ b/lisp/ChangeLog Sun May 11 18:15:59 2008 +0000 @@ -1,3 +1,7 @@ +2008-05-11 Eric S. Raymond + + * vc-hooks.el (vc-recompute-state): Removed (dead code). + 2008-05-10 Dan Nicolaescu * vc-dispatcher.el (ewoc): Require. diff -r 53f6ff0ac075 -r 8c21639e34cc lisp/vc-hooks.el --- a/lisp/vc-hooks.el Sun May 11 15:36:33 2008 +0000 +++ b/lisp/vc-hooks.el Sun May 11 18:15:59 2008 +0000 @@ -531,12 +531,11 @@ A return of nil from this function means we have no information on the status of this file." - ;; Note: in Emacs 22 and older, return of nil meant the file was unregistered. - ;; This is potentially a source of backward-compatibility bugs. + ;; Note: in Emacs 22 and older, return of nil meant the file was + ;; unregistered. This is potentially a source of + ;; backward-compatibility bugs. ;; FIXME: New (sub)states needed (?): - ;; - `conflict' (i.e. `edited' with conflict markers) - ;; - `removed' ;; - `copied' and `moved' (might be handled by `removed' and `added') (or (vc-file-getprop file 'vc-state) (when (> (length file) 0) @@ -546,12 +545,6 @@ file 'vc-state (vc-call-backend backend '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))