timeout: Change debounce timer logic

timeout.el (timeout--debounce-advice): Instead of cancelling the
timer when debouncing, update its remaining time in place with
`timer-set-time'.  This tip was provided by Ihor Radchenko.

1 files changed, 12 insertions, 12 deletions

diff --git a/timeout.el b/timeout.el
index 160b40b..e940e29 100644
--- a/timeout.el
+++ b/timeout.el
@@ -67,18 +67,18 @@ This is intended for use as function advice."
         (delay (or delay 0.50)))
     (lambda (orig-fn &rest args)
       "Debounce calls to this function."
-      (when (timerp debounce-timer)
-        (cancel-timer debounce-timer))
-      (prog1 default
-        (setq debounce-timer
-              (run-with-idle-timer
-               delay nil
-               (lambda (buf)
-                 (cancel-timer debounce-timer)
-                 (setq debounce-timer nil)
-                 (with-current-buffer buf
-                   (setq result (apply orig-fn args))))
-               (current-buffer)))))))
+      (if (timerp debounce-timer)
+          (timer-set-idle-time debounce-timer delay)
+        (prog1 default
+          (setq debounce-timer
+                (run-with-idle-timer
+                 delay nil
+                 (lambda (buf)
+                   (cancel-timer debounce-timer)
+                   (setq debounce-timer nil)
+                   (with-current-buffer buf
+                     (setq result (apply orig-fn args))))
+                 (current-buffer))))))))
 
 ;;;###autoload
 (defun timeout-debounce! (func &optional delay default)