From 72692050373b3bc7fee16307711dfc31236d5a0c Mon Sep 17 00:00:00 2001 From: Yoni Rabkin Date: Mon, 3 Aug 2020 21:59:58 -0400 Subject: * 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) -- cgit v1.2.3