[elpa] externals/rt-liberation 7269205 07/68: * rt-liberation.el: remove cl and cl-lib requirement

[Yoni Rabkin]

branch: externals/rt-liberation
commit 72692050373b3bc7fee16307711dfc31236d5a0c
Author: Yoni Rabkin <yoni@rabkins.net>
Commit: Yoni Rabkin <yoni@rabkins.net>

    * rt-liberation.el: remove cl and cl-lib requirement
---
 rt-liberation.el | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/rt-liberation.el b/rt-liberation.el
index 9fba245..9dd4550 100644
--- a/rt-liberation.el
+++ b/rt-liberation.el
@@ -42,7 +42,7 @@
 
 (require 'browse-url)
 (require 'time-date)
-(require 'cl-lib)
+(require 'seq)
 
 (require 'rt-liberation-rest)
 
@@ -262,10 +262,11 @@ This variable is made buffer local for the ticket 
history")
 (defun rt-liber-reduce (op seq)
   "Reduce-OP with SEQ to a string of \"s0 op s1 op s2..\"."
   (if seq
-      (reduce
+      (seq-reduce
        #'(lambda (a b)
           (format "%s %s %s" a op b))
-       seq)
+       (cdr seq)
+       (car seq))
     ""))
 
 (defun rt-liber-make-interval (pred before after)
@@ -391,7 +392,7 @@ AFTER  date after predicate."
          (push (cons (match-string-no-properties 2)
                      (match-string-no-properties 3))
                ticketbase)))
-      (push (copy-seq ticketbase) ticketbase-list)
+      (push (copy-tree ticketbase) ticketbase-list)
       (setq ticketbase nil
            continue t))
     ticketbase-list))
@@ -916,7 +917,7 @@ If POINT is nil then called on (point)."
 
 (defun rt-liber-sort-ticket-list (ticket-list sort-f)
   "Return a copy of TICKET-LIST sorted by SORT-F."
-  (let ((seq (copy-seq ticket-list)))
+  (let ((seq (copy-tree ticket-list)))
     (sort seq sort-f)))
 
 (defun rt-liber-sort-by-owner (ticket-list)