From 0afa65610f8f4cda5a7bfc212705a720190ce1a2 Mon Sep 17 00:00:00 2001 From: marty hiatt Date: Tue, 14 Mar 2023 22:34:11 +0100 Subject: with-current-buffer for use-local-map calls --- lisp/mastodon-profile.el | 5 +++-- 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. -- cgit v1.2.3