[Emacs-diffs] Changes to emacs/lisp/vc-git.el,v

[Dan Nicolaescu]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Dan Nicolaescu <dann>   08/07/07 16:35:50

Index: vc-git.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/vc-git.el,v
retrieving revision 1.68
retrieving revision 1.69
diff -u -b -r1.68 -r1.69
--- vc-git.el   5 Jul 2008 18:42:07 -0000       1.68
+++ vc-git.el   7 Jul 2008 16:35:48 -0000       1.69
@@ -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