Mercurial > emacs

changeset 96540:f534da0cc0ea

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vc-git--ls-files-state): Remove unused function.
author Dan Nicolaescu <dann@ics.uci.edu>
date Mon, 07 Jul 2008 16:35:48 +0000
parents d9bc43f652b0
children d39625535543
files lisp/ChangeLog lisp/vc-git.el
diffstat 2 files changed, 2 insertions(+), 14 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Mon Jul 07 16:34:14 2008 +0000
+++ b/lisp/ChangeLog	Mon Jul 07 16:35:48 2008 +0000
@@ -1,5 +1,7 @@
 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>
--- a/lisp/vc-git.el	Mon Jul 07 16:34:14 2008 +0000
+++ b/lisp/vc-git.el	Mon Jul 07 16:35:48 2008 +0000
@@ -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