Commit 8c3d7147 authored by Dan Nicolaescu's avatar Dan Nicolaescu
Browse files

(vc-git--ls-files-state): Remove unused function.

parent 701d018c
2008-07-07 Dan Nicolaescu <dann@ics.uci.edu>
* vc-git.el (vc-git--ls-files-state): Remove unused function.
* vc-bzr.el (vc-bzr-after-dir-status): Deal with execute bit changes.
2008-07-06 John Paul Wallington <jpw@pobox.com>
......
......@@ -55,7 +55,6 @@
;; * checkout-model (files) OK
;; - workfile-unchanged-p (file) OK
;; - mode-line-string (file) OK
;; - prettify-state-info (file) OK
;; STATE-CHANGING FUNCTIONS
;; * create-repo () OK
;; * register (files &optional rev comment) OK
......@@ -166,19 +165,6 @@
(vc-git--state-code (match-string 1 diff))
(if (vc-git--empty-db-p) 'added 'up-to-date)))))
(defun vc-git--ls-files-state (state &rest args)
"Set state to STATE on all files found with git-ls-files ARGS."
(with-temp-buffer
(apply 'vc-git-command (current-buffer) nil nil "ls-files" "-z" args)
(goto-char (point-min))
(let ((start (point)))
(while (search-forward "\0" nil t)
(let ((file (expand-file-name
(buffer-substring-no-properties start (1- (point))))))
(vc-file-setprop file 'vc-backend (if state 'Git 'none))
(vc-file-setprop file 'vc-state state))
(setq start (point))))))
(defun vc-git-working-revision (file)
"Git-specific version of `vc-working-revision'."
(let ((str (with-output-to-string
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment