emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/tmr e1a62e3185 2/4: Prefer seq


From: ELPA Syncer
Subject: [elpa] externals/tmr e1a62e3185 2/4: Prefer seq
Date: Tue, 28 Jun 2022 04:58:03 -0400 (EDT)

branch: externals/tmr
commit e1a62e318587ee25fa3df745e567f10628222ea6
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Protesilaos Stavrou <info@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)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]