[nongnu] elpa/subed 4d2c26d 163/389: Add subed-srt--regenerate-ids-soon-timer

[ELPA Syncer]

branch: elpa/subed
commit 4d2c26da9c89b138cf16ba9b1524fc4d655ddc95
Author: Random User <rndusr@posteo.de>
Commit: Random User <rndusr@posteo.de>

    Add subed-srt--regenerate-ids-soon-timer
---
 subed/subed-srt.el | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/subed/subed-srt.el b/subed/subed-srt.el
index 50d54b2..2f69b3b 100644
--- a/subed/subed-srt.el
+++ b/subed/subed-srt.el
@@ -494,6 +494,20 @@ each subtitle."
                 (insert id-str)))
             (setq id (1+ id))))))))
 
+(defvar-local subed-srt--regenerate-ids-soon-timer nil)
+(defun subed-srt--regenerate-ids-soon ()
+  "Run `subed-srt--regenerate-ids' in 100ms unless this function
+is called again within the next 100ms, in which case the
+previously scheduled call is canceled and another call is
+scheduled in 100ms."
+  (interactive)
+  (when subed-srt--regenerate-ids-soon-timer
+    (cancel-timer subed-srt--regenerate-ids-soon-timer))
+  (setq subed-srt--regenerate-ids-soon-timer
+        (run-at-time 0.1 nil (lambda ()
+                               (setq subed-srt--regenerate-ids-soon-timer nil)
+                               (subed-srt--regenerate-ids)))))
+
 (defun subed-srt--sanitize ()
   "Remove surplus newlines and whitespace."
   (interactive)