aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authormarty hiatt <martianhiatus [a t] riseup [d o t] net>2023-05-09 20:21:56 +0200
committermarty hiatt <martianhiatus [a t] riseup [d o t] net>2023-05-09 20:21:56 +0200
commitb302dafd3a116b7f26326dd13247f131b728f132 (patch)
tree40b2251ab591e030abcf5b430eedab61d5f2c497
parent641e0ca808edd6584d12dfbc1f53fc992efd7a19 (diff)
adjust call of insert-filter-string
-rw-r--r--lisp/mastodon-views.el10
1 files changed, 3 insertions, 7 deletions
diff --git a/lisp/mastodon-views.el b/lisp/mastodon-views.el
index 41f68b8..c86884f 100644
--- a/lisp/mastodon-views.el
+++ b/lisp/mastodon-views.el
@@ -595,10 +595,7 @@ JSON is what is returned by by the server."
(defun mastodon-views--insert-filter-string-set (json)
"Insert a filter string plus a blank line.
JSON is the filters data."
- (mapc (lambda (x)
- (mastodon-views--insert-filter-string x)
- (insert "\n\n"))
- json))
+ (mapc #'mastodon-views--insert-filter-string json))
(defun mastodon-views--insert-filter-string (filter)
"Insert a single FILTER."
@@ -611,9 +608,8 @@ JSON is the filters data."
(propertize filter-string
'toot-id id ;for goto-next-filter compat
'phrase phrase
- ;;'help-echo "n/p to go to next/prev filter, c to create new filter, d to delete filter at point."
- ;;'keymap mastodon-views--view-filters-keymap
- 'byline t)))) ;for goto-next-filter compat
+ 'byline t) ;for goto-next-filter compat
+ "\n\n")))
(defun mastodon-views--create-filter ()
"Create a filter for a word.