[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/tmr dea4bde428 1/5: tmr: Add tmr-removed-finished
From: |
ELPA Syncer |
Subject: |
[elpa] externals/tmr dea4bde428 1/5: tmr: Add tmr-removed-finished |
Date: |
Tue, 17 May 2022 04:57:56 -0400 (EDT) |
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.