branch: externals/aggressive-indent
commit f611f3114b55e92a03e978cd0721b21e58523f48
Author: Jian Wang <leuve...@gmail.com>
Commit: Jian Wang <leuve...@gmail.com>
Cancel the timer when buffer is killed
---
aggressive-indent.el | 12 ++++++++++--
1 file changed, 10 insertions(+), 2 deletions(-)
diff --git a/aggressive-indent.el b/aggressive-indent.el
index c467db8..43a0578 100644
--- a/aggressive-indent.el
+++ b/aggressive-indent.el
@@ -480,6 +480,12 @@ If BODY finishes, `while-no-input' returns whatever value
BODY produced."
(setq aggressive-indent--idle-timer
(run-with-idle-timer aggressive-indent-sit-for-time t
#'aggressive-indent--indent-if-changed))))
+(defun aggressive-indent--on-buffer-kill ()
+ "Cancel the timer before buffer is killed"
+ (when (timerp aggressive-indent--idle-timer)
+ (cancel-timer aggressive-indent--idle-timer)
+ (setq aggressive-indent--idle-timer nil)))
+
;;; Minor modes
;;;###autoload
(define-minor-mode aggressive-indent-mode
@@ -509,14 +515,16 @@ If BODY finishes, `while-no-input' returns whatever value
BODY produced."
(aggressive-indent--local-electric t))
(add-hook 'after-change-functions
#'aggressive-indent--keep-track-of-changes nil 'local)
(add-hook 'after-revert-hook #'aggressive-indent--clear-change-list
nil 'local)
- (add-hook 'before-save-hook
#'aggressive-indent--proccess-changed-list-and-indent nil 'local))
+ (add-hook 'before-save-hook
#'aggressive-indent--proccess-changed-list-and-indent nil 'local)
+ (add-hook 'kill-buffer-hook #'aggressive-indent--on-buffer-kill nil
'local))
;; Clean the hooks
(when (timerp aggressive-indent--idle-timer)
(cancel-timer aggressive-indent--idle-timer))
(remove-hook 'after-change-functions
#'aggressive-indent--keep-track-of-changes 'local)
(remove-hook 'after-revert-hook #'aggressive-indent--clear-change-list
'local)
(remove-hook 'before-save-hook
#'aggressive-indent--proccess-changed-list-and-indent 'local)
- (remove-hook 'post-command-hook #'aggressive-indent--softly-indent-defun
'local)))
+ (remove-hook 'post-command-hook #'aggressive-indent--softly-indent-defun
'local)
+ (remove-hook 'kill-buffer-hook #'aggressive-indent--on-buffer-kill
'local)))
(defun aggressive-indent--local-electric (on)
"Turn variable `electric-indent-mode' on or off locally, as per boolean ON."
