From b302dafd3a116b7f26326dd13247f131b728f132 Mon Sep 17 00:00:00 2001 From: marty hiatt Date: Tue, 9 May 2023 20:21:56 +0200 Subject: adjust call of insert-filter-string --- lisp/mastodon-views.el | 10 +++------- 1 file changed, 3 insertions(+), 7 deletions(-) (limited to 'lisp') 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. -- cgit v1.2.3