[elpa] externals/tmr dea4bde428 1/5: tmr: Add tmr-removed-finished

[ELPA Syncer]

branch: externals/tmr
commit dea4bde42800bb330ae8f8cb4206f4a3c1cdefe8
Author: Damien Cassou <damien@cassou.me>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    tmr: Add tmr-removed-finished
---
 tmr.el | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/tmr.el b/tmr.el
index 5a54438146..29fe000e20 100644
--- a/tmr.el
+++ b/tmr.el
@@ -193,6 +193,7 @@ Populated by `tmr' and then operated on by `tmr-cancel'.")
 
 (declare-function cl-find "cl-seq" (cl-item cl-seq &rest cl-keys))
 (declare-function cl-delete "cl-seq" (cl-item cl-seq &rest cl-keys))
+(declare-function cl-delete-if "cl-seq" (cl-pred cl-list &rest cl-keys))
 (declare-function cl-remove-if "cl-seq" (cl-pred cl-list &rest cl-keys))
 
 (defun tmr--active-timers ()
@@ -222,6 +223,11 @@ With optional NO-HOOKS refrain from calling
     (unless no-hooks
       (run-hook-with-args 'tmr-timer-cancelled-functions timer))))
 
+(defun tmr-remove-finished ()
+  "Remove all finished timers."
+  (interactive)
+  (setq tmr--timers (cl-delete-if #'tmr--timer-donep tmr--timers)))
+
 (defun tmr--read-timer (&optional active description)
   "Let the user choose a timer among all timers.
 Return the selected timer.  If there is a single timer, use that.