mirror of
https://github.com/pestctrl/emacs-config.git
synced 2026-02-16 16:24:18 +00:00
CAN I HAVE A MOMENT TO BREATH BEFORE YOU START ASKING ME QUESTIONS
This commit is contained in:
parent
6db9a9cc73
commit
011c4feaaa
2 changed files with 4 additions and 2 deletions
|
|
@ -157,7 +157,6 @@
|
|||
(timer-event-handler timer))
|
||||
(remhash k gac--debounce-timers)))
|
||||
|
||||
|
||||
(when (not noninteractive)
|
||||
(when my/puppet-p
|
||||
(add-to-list 'emacs-startup-hook
|
||||
|
|
|
|||
|
|
@ -69,6 +69,9 @@
|
|||
(setq gac-default-message
|
||||
#'gac-commit-message)
|
||||
|
||||
(defun my/gac--wait-for-idle (buffer)
|
||||
(run-with-idle-timer 5 nil #'gac--after-save buffer))
|
||||
|
||||
(defun my/gac--debounced-save ()
|
||||
(let* ((actual-buffer (current-buffer)))
|
||||
(when-let (current-timer (gethash actual-buffer gac--debounce-timers))
|
||||
|
|
@ -76,7 +79,7 @@
|
|||
(cancel-timer current-timer))
|
||||
(puthash actual-buffer
|
||||
(run-at-time gac-debounce-interval nil
|
||||
#'gac--after-save
|
||||
#'my/gac--wait-for-idle
|
||||
actual-buffer)
|
||||
gac--debounce-timers)))
|
||||
|
||||
|
|
|
|||
Loading…
Reference in a new issue