aboutsummaryrefslogtreecommitdiff
path: root/lisp/mastodon.el
diff options
context:
space:
mode:
authormarty hiatt <martianhiatus [a t] riseup [d o t] net>2023-05-06 15:30:53 +0200
committermarty hiatt <martianhiatus [a t] riseup [d o t] net>2023-05-06 15:46:29 +0200
commitacde8c11694298a734da97be490856c025a96db8 (patch)
tree69de637a9cbc5b1554b7d7782c3d84bcb330b421 /lisp/mastodon.el
parent4a4eaa48557c50c393af2a0b499023fad4474a24 (diff)
move with-masto-buffer to -tl.el
Diffstat (limited to 'lisp/mastodon.el')
-rw-r--r--lisp/mastodon.el17
1 files changed, 0 insertions, 17 deletions
diff --git a/lisp/mastodon.el b/lisp/mastodon.el
index 1fcb234..e181786 100644
--- a/lisp/mastodon.el
+++ b/lisp/mastodon.el
@@ -256,23 +256,6 @@ mastodon.el needs to be re-loaded for this to be correctly set.")
"Face used for reply text in toot compose buffer.
See `mastodon-toot-display-orig-in-reply-buffer'.")
-(defmacro with-mastodon-buffer (buffer mode-fun other-window &rest body)
- "Evaluate BODY in a new or existing buffer called BUFFER.
-MODE-FUN is called to set the major mode.
-OTHER-WINDOW means call `switch-to-buffer-other-window' rather
-than `switch-to-buffer'."
- (declare (debug t)
- (indent defun))
- `(with-current-buffer (get-buffer-create ,buffer)
- (let ((inhibit-read-only t))
- (erase-buffer)
- (if ,other-window
- (switch-to-buffer-other-window ,buffer)
- (switch-to-buffer ,buffer))
- (funcall ,mode-fun)
- ,@body)))
-
-
;;;###autoload
(defun mastodon ()
"Connect Mastodon client to `mastodon-instance-url' instance."