diff options
author | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-04-28 17:06:53 +0200 |
---|---|---|
committer | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-04-28 17:06:53 +0200 |
commit | b4f463aaed526f637f9bd5d6aa494b9f195272c5 (patch) | |
tree | 0354b08ecc5d21b409c989ebb5893f80d647509f /lisp | |
parent | 00cb199457d2bd83ed16b296d5c858b291b900c3 (diff) |
no quasi-quotes for let-alist dots
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/mastodon-tl.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el index 7b979d1..4082905 100644 --- a/lisp/mastodon-tl.el +++ b/lisp/mastodon-tl.el @@ -2206,9 +2206,10 @@ report the account for spam." (defvar crm-separator) (defun mastodon-tl--map-rules-alist (rules) + "Return an alist of the text and id fields of RULES." (mapcar (lambda (x) (let-alist x - `(,.text . ,.id))) + (cons .text .id))) rules)) (defun mastodon-tl--read-rules-ids () |