From acde8c11694298a734da97be490856c025a96db8 Mon Sep 17 00:00:00 2001 From: marty hiatt Date: Sat, 6 May 2023 15:30:53 +0200 Subject: move with-masto-buffer to -tl.el --- lisp/mastodon.el | 17 ----------------- 1 file changed, 17 deletions(-) (limited to 'lisp/mastodon.el') 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." -- cgit v1.2.3