branch: externals/tmr
commit e1a62e318587ee25fa3df745e567f10628222ea6
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Protesilaos Stavrou <i...@protesilaos.com>
Prefer seq
seq seems to be the recommended package these days. It is even autoloaded on
Emacs 29. However cl-lib is still very useful to load at compile time since
it
contains useful macros, cl-struct, cl-defun and cl-loop (for optimized
inlined
loops).
---
tmr.el | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/tmr.el b/tmr.el
index 051eff9712..b3ff0fafd5 100644
--- a/tmr.el
+++ b/tmr.el
@@ -36,7 +36,8 @@
;;; Code:
-(require 'cl-lib)
+(require 'seq)
+(eval-when-compile (require 'cl-lib))
(defgroup tmr ()
"TMR May Ring: set timers using a simple notation."
@@ -271,7 +272,7 @@ cancelling the original one."
(defun tmr-remove-finished ()
"Remove all finished timers."
(interactive)
- (setq tmr--timers (cl-delete-if #'tmr--timer-finishedp tmr--timers))
+ (setq tmr--timers (seq-remove #'tmr--timer-finishedp tmr--timers))
(run-hooks 'tmr--update-hook))
(defvar tmr--read-timer-hook nil
@@ -292,7 +293,7 @@ completion candidates."
(run-hook-with-args-until-success 'tmr--read-timer-hook)
(pcase
(if active
- (cl-remove-if #'tmr--timer-finishedp tmr--timers)
+ (seq-remove #'tmr--timer-finishedp tmr--timers)
tmr--timers)
('nil (user-error "No timers available"))
(`(,timer) timer)
