Fix automatic Git push when used with debouncing.
This commit is contained in:
parent
fa8865bf49
commit
e533166a22
1 changed files with 10 additions and 3 deletions
|
@ -143,7 +143,11 @@ Default to FILENAME."
|
|||
|
||||
This doesn't check or ask for a remote, so the correct remote
|
||||
should already have been set up."
|
||||
(with-current-buffer buffer
|
||||
;; gac-push is currently only called from gac--after-save, where it is wrapped
|
||||
;; in with-current-buffer, which should already take care of
|
||||
;; default-directory. The explicit binding here is defensive, in case gac-push
|
||||
;; starts being used elsewhere.
|
||||
(let ((default-directory (file-name-directory (buffer-file-name buffer))))
|
||||
(let ((proc (start-process "git" "*git-auto-push*" "git" "push")))
|
||||
(set-process-sentinel proc 'gac-process-sentinel)
|
||||
(set-process-filter proc 'gac-process-filter))))
|
||||
|
@ -164,8 +168,11 @@ should already have been set up."
|
|||
(unwind-protect
|
||||
(when (buffer-live-p buffer)
|
||||
(gac-commit buffer)
|
||||
(when gac-automatically-push-p
|
||||
(gac-push buffer)))
|
||||
(with-current-buffer buffer
|
||||
;; with-current-buffer required here because gac-automatically-push-p
|
||||
;; is buffer-local
|
||||
(when gac-automatically-push-p
|
||||
(gac-push buffer))))
|
||||
(remhash buffer gac--debounce-timers)))
|
||||
|
||||
(defun gac-kill-buffer-hook ()
|
||||
|
|
Loading…
Reference in a new issue