From a970a27e03a46a6c6c866723f1b3f55391e645e4 Mon Sep 17 00:00:00 2001 From: "Eric S. Raymond" Date: Sun, 11 May 2008 18:15:59 +0000 Subject: [PATCH] Remove dead code. --- lisp/ChangeLog | 4 ++++ lisp/vc-hooks.el | 13 +++---------- 2 files changed, 7 insertions(+), 10 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 05d6da8f3e5..93da1b84860 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -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 --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el index e8c04684619..f9b82aab497 100644 --- a/lisp/vc-hooks.el +++ b/lisp/vc-hooks.el @@ -531,12 +531,11 @@ For registered files, the value returned is one of: 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 @@ status of this file." 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)) -- 2.11.4.GIT