comparison lisp/vc-git.el @ 82066:f599171df164

(vc-git-delete-file, vc-git-rename-file): New functions. (vc-git-find-version): Use the result of ls-files as a parameter for cat-file

82065:e191c96a308d

;;; vc-git.el --- VC backend for the git version control system

;; Copyright (C) 2006, 2007 Free Software Foundation, Inc.

;; Author: Alexandre Julliard
;; Keywords: tools

;; This file is part of GNU Emacs.

;; GNU Emacs is free software; you can redistribute it and/or modify

;; - repository-hostname (dirname)		   ??
;; - previous-version (file rev)		   ??
;; - next-version (file rev)			   ??
;; - check-headers ()				   ??
;; - clear-headers ()				   ??
;; - delete-file (file)				   COMMENTED OUT, VERIFY IF CORRECT
;; - rename-file (old new)			   COMMENTED OUT, VERIFY IF CORRECT
;; - find-file-hook ()				   PROBABLY NOT NEEDED
;; - find-file-not-found-hook ()                   PROBABLY NOT NEEDED

(eval-when-compile (require 'cl) (require 'vc))

  (let ((coding-system-for-write git-commits-coding-system))
    (vc-git-command nil 0 files "commit" "-m" comment "--only" "--")))

(defun vc-git-find-version (file rev buffer)
  (let ((coding-system-for-read 'binary)
        (coding-system-for-write 'binary))
    (vc-git-command 
     buffer 0 
     (concat (if rev rev "HEAD") ":" file) "cat-file" "blob")))

(defun vc-git-checkout (file &optional editable rev)
  (vc-git-command nil0 file "checkout" (or rev "HEAD")))

(defun vc-git-revert (file &optional contents-done)

	     (zerop (forward-line -1))
	     (buffer-substring-no-properties
	      (point)
	      (progn (forward-line 1) (1- (point))))))))))

;; XXX verify this is correct
;; (defun vc-git-delete-file (file)
;;   (condition-case ()
;;       (delete-file file)
;;     (file-error nil))
;;   (vc-git-command nil 0 file "update-index" "--remove"))

;; XXX verify this is correct
;; (defun vc-git-rename-file (old new)
;;   (vc-git-command nil 0 new old "mv"))


;; Internal commands

(defun vc-git-root (file)

82066:f599171df164

;;; vc-git.el --- VC backend for the git version control system

;; Copyright (C) 2006, 2007 Free Software Foundation, Inc.

;; Author: Alexandre Julliard <[e-mail]>
;; Keywords: tools

;; This file is part of GNU Emacs.

;; GNU Emacs is free software; you can redistribute it and/or modify

;; - repository-hostname (dirname)		   ??
;; - previous-version (file rev)		   ??
;; - next-version (file rev)			   ??
;; - check-headers ()				   ??
;; - clear-headers ()				   ??
;; - delete-file (file)				   OK
;; - rename-file (old new)			   OK
;; - find-file-hook ()				   PROBABLY NOT NEEDED
;; - find-file-not-found-hook ()                   PROBABLY NOT NEEDED

(eval-when-compile (require 'cl) (require 'vc))

  (let ((coding-system-for-write git-commits-coding-system))
    (vc-git-command nil 0 files "commit" "-m" comment "--only" "--")))

(defun vc-git-find-version (file rev buffer)
  (let ((coding-system-for-read 'binary)
        (coding-system-for-write 'binary)
	(fullname (substring
		   (vc-git--run-command-string 
		    file "ls-files" "-z" "--full-name" "--")
		   0 -1)))
    (vc-git-command 
     buffer 0 
     (concat (if rev rev "HEAD") ":" fullname) "cat-file" "blob")))

(defun vc-git-checkout (file &optional editable rev)
  (vc-git-command nil0 file "checkout" (or rev "HEAD")))

(defun vc-git-revert (file &optional contents-done)

	     (zerop (forward-line -1))
	     (buffer-substring-no-properties
	      (point)
	      (progn (forward-line 1) (1- (point))))))))))

(defun vc-git-delete-file (file)
  (vc-git-command nil 0 file "rm" "-f" "--"))

(defun vc-git-rename-file (old new)
  (vc-git-command nil 0 (list old new) "mv" "-f" "--"))


;; Internal commands

(defun vc-git-root (file)