mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

Remove dead code.

Browse Source
This commit is contained in:
Eric S. Raymond 2008-05-11 18:15:59 +00:00
parent 08a1ccb0d8
commit a970a27e03
2 changed files with 7 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -1,3 +1,7 @@
2008-05-11 Eric S. Raymond <esr@snark.thyrsus.com>
* vc-hooks.el (vc-recompute-state): Removed (dead code).
2008-05-10 Dan Nicolaescu <dann@ics.uci.edu>
* vc-dispatcher.el (ewoc): Require.

13
lisp/vc-hooks.el
View File

@ -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))