branch: elpa/mastodon
commit 901da7f72221be31109cd4c47a31fe4314c6a6f2
Author: marty hiatt <martianhia...@riseup.net>
Commit: marty hiatt <martianhia...@riseup.net>
with-mastodon-buffer : switch buffer after body
---
lisp/mastodon-tl.el | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el
index c330dbdae1..3611d1c63e 100644
--- a/lisp/mastodon-tl.el
+++ b/lisp/mastodon-tl.el
@@ -325,10 +325,11 @@ than `pop-to-buffer'."
(erase-buffer)
(funcall ,mode-fun)
(remove-overlays) ; video overlays
+ ,@body
+ ;; return result of switching buffer:
(if ,other-window
(switch-to-buffer-other-window ,buffer)
- (pop-to-buffer ,buffer '(display-buffer-same-window)))
- ,@body)))
+ (pop-to-buffer ,buffer '(display-buffer-same-window))))))
(defmacro mastodon-tl--do-if-item (&rest body)
"Execute BODY if we have an item at point."
