From d7009f45d8f4a5bb98790664290e8ef535dd74f0 Mon Sep 17 00:00:00 2001 From: Dan Nicolaescu Date: Mon, 23 Jul 2007 20:56:13 +0000 Subject: [PATCH] (vc-git-unregister): New function. --- lisp/ChangeLog | 3 ++- lisp/vc-git.el | 6 +++++- 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 - * 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" "--"))) -- 2.39.5