Miroirs/slackbuilds
1
0
Fork 0
mirror of https://codeberg.org/gwh/slackbuilds.git synced 2024-11-16 19:51:19 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

(changes)

Browse source
This commit is contained in:
Marius Vollmer 2008-08-04 04:10:48 +03:00
parent 57f4825f04
commit e8973f0438
1 changed files with 10 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
git-status.el
View file

@ -236,13 +236,20 @@
;;; Staging ;;; Staging
(defun gits-write-hunk-patch (info file)
(write-region (elt info 1) (elt info 2) file)
(write-region (elt info 3) (elt info 4) file t))
(defun gits-add-thing-at-point () (defun gits-add-thing-at-point ()
(interactive) (interactive)
(let ((info (get-char-property (point) 'gits-info))) (let ((info (get-char-property (point) 'gits-info)))
(if info (if info
(case (car info) (case (car info)
((other-file) ((other-file)
(gits-run "git" "add" (cadr info))))))) (gits-run "git" "add" (cadr info)))
((hunk)
(gits-write-hunk-patch info ".git/gits-tmp")
(gits-run "git" "apply" "--cached" ".git/gits-tmp"))))))
(defun gits-ignore-thing-at-point () (defun gits-ignore-thing-at-point ()
(interactive) (interactive)
@ -336,3 +343,5 @@
(defun git-stage-all () (defun git-stage-all ()
(interactive) (interactive)
(gits-run "git-add" "-u" ".")) (gits-run "git-add" "-u" "."))
;;; Foo