diff options
| author | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-03-14 22:34:11 +0100 |
|---|---|---|
| committer | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-03-14 22:34:11 +0100 |
| commit | 0afa65610f8f4cda5a7bfc212705a720190ce1a2 (patch) | |
| tree | 3b8c4ebc87dd5d31f423492db99bb34bbc41a2a0 | |
| parent | 924483d186f99b986dee8ee95db03c063f396759 (diff) | |
with-current-buffer for use-local-map calls
| -rw-r--r-- | lisp/mastodon-profile.el | 5 | ||||
| -rw-r--r-- | lisp/mastodon-tl.el | 9 |
2 files changed, 9 insertions, 5 deletions
diff --git a/lisp/mastodon-profile.el b/lisp/mastodon-profile.el index 6af9a94..090f685 100644 --- a/lisp/mastodon-profile.el +++ b/lisp/mastodon-profile.el @@ -238,8 +238,9 @@ NO-REBLOGS means do not display boosts in statuses." (mastodon-tl--init-sync "follow-requests" "follow_requests" 'mastodon-profile--insert-follow-requests) - (use-local-map mastodon-profile--view-follow-requests-keymap) - (mastodon-tl--goto-first-item)) + (mastodon-tl--goto-first-item) + (with-current-buffer "*mastodon-follow-requests*" + (use-local-map mastodon-profile--view-follow-requests-keymap))) (defun mastodon-profile--insert-follow-requests (json) "Insert the user's current follow requests. diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el index c969853..0309634 100644 --- a/lisp/mastodon-tl.el +++ b/lisp/mastodon-tl.el @@ -1900,7 +1900,8 @@ If ID is provided, delete that list." (mastodon-tl--init-sync "lists" "lists" 'mastodon-tl--insert-lists) - (use-local-map mastodon-tl--view-lists-keymap)) + (with-current-buffer "*mastodon-lists*" + (use-local-map mastodon-tl--view-lists-keymap))) (defun mastodon-tl--insert-lists (_json) "Insert the user's lists from JSON." @@ -2191,7 +2192,8 @@ Prompt for a context, must be a list containting at least one of \"home\", (mastodon-tl--init-sync "filters" "filters" 'mastodon-tl--insert-filters) - (use-local-map mastodon-tl--view-filters-keymap)) + (with-current-buffer "*mastodon-filters*" + (use-local-map mastodon-tl--view-filters-keymap))) (defun mastodon-tl--insert-filters (json) "Insert the user's current filters. @@ -2253,7 +2255,8 @@ JSON is what is returned by by the server." (mastodon-tl--init-sync "follow-suggestions" "suggestions" 'mastodon-tl--insert-follow-suggestions) - (use-local-map mastodon-tl--follow-suggestions-map)) + (with-current-buffer "*mastodon-follow-suggestions*" + (use-local-map mastodon-tl--follow-suggestions-map))) (defun mastodon-tl--insert-follow-suggestions (response) "Insert follow suggestions into buffer. |