# HG changeset patch
# User Dan Nicolaescu <dann@ics.uci.edu>
# Date 1185224173 0
# Node ID cbb38ceb3177a8502604d8c376d472c3fad6a4f4
# Parent  54e3ba3cb7d39569f8fdb7af1b39129f3acb8d1d
(vc-git-unregister): New function.

diff -r 54e3ba3cb7d3 -r cbb38ceb3177 lisp/ChangeLog
--- a/lisp/ChangeLog	Mon Jul 23 20:55:43 2007 +0000
+++ b/lisp/ChangeLog	Mon Jul 23 20:56:13 2007 +0000
@@ -1,6 +1,7 @@
 2007-07-23  Alexandre Julliard <julliard@winehq.org>
 
-	* vc-git.el (vc-git-delete-file, vc-git-rename-file): New functions.
+	* vc-git.el (vc-git-delete-file, vc-git-rename-file)
+	(vc-git-unregister): New functions.
 	(vc-git-find-version): Use the result of ls-files as a parameter
 	for cat-file
 
diff -r 54e3ba3cb7d3 -r cbb38ceb3177 lisp/vc-git.el
--- a/lisp/vc-git.el	Mon Jul 23 20:55:43 2007 +0000
+++ b/lisp/vc-git.el	Mon Jul 23 20:56:13 2007 +0000
@@ -66,7 +66,7 @@
 ;; - responsible-p (file)			   OK
 ;; - could-register (file)			   NEEDED
 ;; - receive-file (file rev)			   ??
-;; - unregister (file)				   NEEDED
+;; - unregister (file)				   OK
 ;; * checkin (files rev comment)		   OK
 ;; * find-version (file rev buffer)		   OK
 ;; * checkout (file &optional editable rev)	   OK
@@ -231,6 +231,10 @@
 
 (defalias 'vc-git-responsible-p 'vc-git-root)
 
+(defun vc-git-unregister (file)
+  (vc-git-command nil 0 file "rm" "-f" "--cached" "--"))
+  
+
 (defun vc-git-checkin (files rev comment)
   (let ((coding-system-for-write git-commits-coding-system))
     (vc-git-command nil 0 files "commit" "-m" comment "--only" "--")))