gwh/slackbuilds
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Made commits asynchronous, in case there is a long-running pre-commit hook.

Browse source 
* magit.el (magit-run*): Send input to asynchronous processes.
(magit-run-async-with-input): New.
(magit-log-edit-commit): Use it.
This commit is contained in:
Marius Vollmer 2009-02-15 00:50:54 +02:00
parent 7725bfa2b8
commit 8b4614b52a
1 changed files with 10 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
magit.el
View file

@ -865,6 +865,12 @@ Many Magit faces inherit from this one by default."
(apply 'start-process magit-git-executable buf cmd args))
(set-process-sentinel magit-process 'magit-process-sentinel)
(set-process-filter magit-process 'magit-process-filter)
(when input
(with-current-buffer input
(process-send-region magit-process
(point-min) (point-max)))
(process-send-eof magit-process)
(sit-for 0.1 t))
(setq successp t))
(input
(with-current-buffer input
@ -934,6 +940,9 @@ Many Magit faces inherit from this one by default."
(defun magit-run-async (cmd &rest args)
(magit-run* (cons cmd args) nil nil nil t))
(defun magit-run-async-with-input (input cmd &rest args)
(magit-run* (cons cmd args) nil nil nil t input))
(defun magit-display-process ()
(interactive)
(display-buffer "*magit-process*"))
@ -2105,7 +2114,7 @@ Prefix arg means justify as well."
commit-buf
magit-git-executable "tag" tag "-a" "-F" "-"))
(t
(apply #'magit-run-with-input commit-buf
(apply #'magit-run-async-with-input commit-buf
magit-git-executable "commit" "-F" "-"
(append (if (not (or amend (magit-anything-staged-p)))
'("--all") '())