Mercurial > emacs
changeset 82068:cbb38ceb3177
(vc-git-unregister): New function.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Mon, 23 Jul 2007 20:56:13 +0000 |
| parents | 54e3ba3cb7d3 |
| children | ed4cade83fcc |
| files | lisp/ChangeLog lisp/vc-git.el |
| diffstat | 2 files changed, 7 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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
--- 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" "--")))