Mercurial > emacs

comparison lisp/vc-git.el @ 82068:cbb38ceb3177

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vc-git-unregister): New function.
author Dan Nicolaescu <dann@ics.uci.edu>
date Mon, 23 Jul 2007 20:56:13 +0000
parents f599171df164
children 535e5fa4eca9
comparison
equal deleted inserted replaced
82067:54e3ba3cb7d3 82068:cbb38ceb3177
64 ;; * register (files &optional rev comment) OK 64 ;; * register (files &optional rev comment) OK
65 ;; - init-version (file) ?? 65 ;; - init-version (file) ??
66 ;; - responsible-p (file) OK 66 ;; - responsible-p (file) OK
67 ;; - could-register (file) NEEDED 67 ;; - could-register (file) NEEDED
68 ;; - receive-file (file rev) ?? 68 ;; - receive-file (file rev) ??
69 ;; - unregister (file) NEEDED 69 ;; - unregister (file) OK
70 ;; * checkin (files rev comment) OK 70 ;; * checkin (files rev comment) OK
71 ;; * find-version (file rev buffer) OK 71 ;; * find-version (file rev buffer) OK
72 ;; * checkout (file &optional editable rev) OK 72 ;; * checkout (file &optional editable rev) OK
73 ;; * revert (file &optional contents-done) OK 73 ;; * revert (file &optional contents-done) OK
74 ;; - rollback (files) ?? PROBABLY NOT NEEDED 74 ;; - rollback (files) ?? PROBABLY NOT NEEDED
229 "Register FILE into the git version-control system." 229 "Register FILE into the git version-control system."
230 (vc-git-command nil 0 files "update-index" "--add" "--")) 230 (vc-git-command nil 0 files "update-index" "--add" "--"))
231 231
232 (defalias 'vc-git-responsible-p 'vc-git-root) 232 (defalias 'vc-git-responsible-p 'vc-git-root)
233 233
234 (defun vc-git-unregister (file)
235 (vc-git-command nil 0 file "rm" "-f" "--cached" "--"))
236
237
234 (defun vc-git-checkin (files rev comment) 238 (defun vc-git-checkin (files rev comment)
235 (let ((coding-system-for-write git-commits-coding-system)) 239 (let ((coding-system-for-write git-commits-coding-system))
236 (vc-git-command nil 0 files "commit" "-m" comment "--only" "--"))) 240 (vc-git-command nil 0 files "commit" "-m" comment "--only" "--")))
237 241
238 (defun vc-git-find-version (file rev buffer) 242 (defun vc-git-find-version (file rev buffer)