From 8c3d7147da1ffa024fce782ad071628d2d932ca0 Mon Sep 17 00:00:00 2001 From: Dan Nicolaescu Date: Mon, 7 Jul 2008 16:35:48 +0000 Subject: [PATCH] (vc-git--ls-files-state): Remove unused function. --- lisp/ChangeLog | 2 ++ lisp/vc-git.el | 14 -------------- 2 files changed, 2 insertions(+), 14 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 165e92246d3..3cda36fecba 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,7 @@ 2008-07-07 Dan Nicolaescu + * 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 diff --git a/lisp/vc-git.el b/lisp/vc-git.el index 079ff5abd47..9f18418425e 100644 --- a/lisp/vc-git.el +++ b/lisp/vc-git.el @@ -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 -- 2.39.2