branch: elpa/vc-fossil
commit c1585fcb08a4233a92d87fda9c9c2ab0edb98ff7
Author: fifr <fifr>
Commit: fifr <fifr>
Remove `vc-fossil-after-dir-status`.
---
vc/el/vc-fossil.el | 14 --------------
1 file changed, 14 deletions(-)
diff --git a/vc/el/vc-fossil.el b/vc/el/vc-fossil.el
index 0958c80..f53d5e6 100644
--- a/vc/el/vc-fossil.el
+++ b/vc/el/vc-fossil.el
@@ -143,20 +143,6 @@
(push (list file (vc-fossil-state-code status-word)) result)))))
(funcall update-function result nil)))
-(defun vc-fossil-after-dir-status (callback)
- "Function to call after the status process has finished"
- (let ((result '()))
- (goto-char (point-min))
- (while (not (eobp))
- (let ((line (buffer-substring-no-properties (point) (line-end-position)))
- (status-word '()))
- (message line)
- (let* ((state (vc-fossil-state-code (car (split-string line))))
- (file (expand-file-name (substring line (+ (length status-word)
1)))))
- (setq result (cons (list file state) result))))
- (forward-line))
- (funcall callback result t)))
-
(defun vc-fossil-checkout-model (files) 'implicit)
(defun vc-fossil-dir-extra-headers (dir)
