[elpa] externals/mct 4ce1004b96 1/3: Remember and cancel the update timer

[ELPA Syncer]

branch: externals/mct
commit 4ce1004b966671e6ebd40ee2b109032214d1e0b0
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    Remember and cancel the update timer
    
    Otherwise we create many timers which are active at the same time.
---
 mct.el | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/mct.el b/mct.el
index b6ef2c9363..c88d1bacb3 100644
--- a/mct.el
+++ b/mct.el
@@ -280,11 +280,15 @@ Meant to be added to `after-change-functions'."
             (quit (abort-recursive-edit)))
         (minibuffer-hide-completions)))))
 
+(defvar mct--timer nil)
 (defun mct--live-completions-timer (&rest _)
   "Update Completions with `mct-live-update-delay'."
   (when-let* ((delay mct-live-update-delay)
               ((>= delay 0)))
-    (run-with-idle-timer delay nil #'mct--live-completions)))
+    (when mct--timer
+      (cancel-timer mct--timer)
+      (setq mct--timer nil))
+    (setq mct--timer (run-with-idle-timer delay nil #'mct--live-completions))))
 
 (defun mct--live-completions-visible-timer (&rest _)
   "Update visible Completions' buffer."