diff options
| author | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-05-09 20:21:56 +0200 |
|---|---|---|
| committer | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-05-09 20:21:56 +0200 |
| commit | b302dafd3a116b7f26326dd13247f131b728f132 (patch) | |
| tree | 40b2251ab591e030abcf5b430eedab61d5f2c497 /lisp | |
| parent | 641e0ca808edd6584d12dfbc1f53fc992efd7a19 (diff) | |
adjust call of insert-filter-string
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/mastodon-views.el | 10 |
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. |