branch: externals/tmr
commit dea4bde42800bb330ae8f8cb4206f4a3c1cdefe8
Author: Damien Cassou <dam...@cassou.me>
Commit: Protesilaos Stavrou <i...@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.
