(vc-git-unregister): New function.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 09572aa1cd5fe4f8c08ca96b206a003320400b0f..7e3b2f3cbf3a252bd6fe49f1a00541d70767f7dd 100644 (file)
--- 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 d65d8428e6165972da351643b1d3e815360bfd69..de6be9af7336ec8af3dd87de243236a267599769 100644 (file)
--- 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" "--")))