diff options
| author | mousebot <mousebot@riseup.net> | 2021-12-17 18:24:06 +0100 |
|---|---|---|
| committer | mousebot <mousebot@riseup.net> | 2021-12-17 18:24:06 +0100 |
| commit | b693dc24e6bbabab2cbdea0cf19542d130973b02 (patch) | |
| tree | 5d583bf6016c7e7fb73256aaffc6231364ac2928 /lisp | |
| parent | c1aa61bb361cca5d107896a83b1b729315c4d79a (diff) | |
mapcar* -> cl-mapcar in -tl.el
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/mastodon-tl.el | 5 |
1 files changed, 2 insertions, 3 deletions
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) |