(vc-git-unregister): New function.

2 files changed, 7 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 09572aa1cd5..7e3b2f3cbf3 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/vc-git.el b/lisp/vc-git.el
index d65d8428e61..de6be9af733 100644
--- a/lisp/vc-git.el
+++ b/lisp/vc-git.el
@@ -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" "--")))