From b693dc24e6bbabab2cbdea0cf19542d130973b02 Mon Sep 17 00:00:00 2001
From: mousebot <mousebot@riseup.net>
Date: Fri, 17 Dec 2021 18:24:06 +0100
Subject: mapcar* -> cl-mapcar in -tl.el

---
 lisp/mastodon-tl.el | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'lisp')

diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el
index 62550cd..fe8f7c8 100644
--- a/lisp/mastodon-tl.el
+++ b/lisp/mastodon-tl.el
@@ -33,6 +33,7 @@
 (require 'shr)
 (require 'thingatpt) ; for word-at-point
 (require 'time-date)
+(require 'cl-lib) ; for cl-mapcar
 
 (autoload 'mastodon-auth--get-account-name "mastodon-auth")
 (autoload 'mastodon-http--api "mastodon-http")
@@ -60,8 +61,6 @@
 (defvar mastodon-toot-timestamp-format)
 (defvar shr-use-fonts)  ;; declare it since Emacs24 didn't have this
 
-(declare-function mapcar* "cl-lib")
-
 (defgroup mastodon-tl nil
   "Timelines in Mastodon."
   :prefix "mastodon-tl-"
@@ -786,7 +785,7 @@ takes a single function. By default it is
            (options-numbers (mapcar (lambda(x)
                                       (number-to-string x))
                                     options-number-seq))
-           (options-alist (mapcar* 'cons options-numbers options-titles))
+           (options-alist (cl-mapcar 'cons options-numbers options-titles))
            ;; we display both option number and the option title
            ;; but also store both as cons cell as cdr, as we need it below
            (candidates (mapcar (lambda (cell)
-- 
cgit v1.2.3