From: Dan Nicolaescu <dann@ics.uci.edu>
Date: Mon, 23 Jul 2007 20:56:13 +0000 (+0000)
Subject: (vc-git-unregister): New function.
X-Git-Tag: emacs-pretest-23.0.90~11763
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d7009f45d8f4a5bb98790664290e8ef535dd74f0;p=emacs.git

(vc-git-unregister): New function.
---

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" "--")))