From a13a7d8f8e45f26e15d9509f5549c1decc9398ce Mon Sep 17 00:00:00 2001 From: marty hiatt Date: Fri, 26 May 2023 11:27:33 +0200 Subject: tiny cleanup of view-instance-description (uncallable code) --- lisp/mastodon-views.el | 12 ++---------- 1 file changed, 2 insertions(+), 10 deletions(-) (limited to 'lisp/mastodon-views.el') diff --git a/lisp/mastodon-views.el b/lisp/mastodon-views.el index 7d5ac1e..9809365 100644 --- a/lisp/mastodon-views.el +++ b/lisp/mastodon-views.el @@ -724,10 +724,7 @@ INSTANCE is an instance domain name." (interactive) (if user (let ((response (mastodon-http--get-json - (mastodon-http--api "instance") - nil ; params - nil ; silent - :vector))) + (mastodon-http--api "instance") nil nil :vector))) (mastodon-views--instance-response-fun response brief instance)) (mastodon-tl--do-if-toot (let* ((toot (if (mastodon-tl--profile-buffer-p) @@ -755,12 +752,7 @@ INSTANCE is an instance domain name." (alist-get 'username account))) (instance (mastodon-views--get-instance-url url username instance)) (response (mastodon-http--get-json - (if user - (mastodon-http--api "instance") - (concat instance "/api/v1/instance")) - nil ; params - nil ; silent - :vector))) + (concat instance "/api/v1/instance") nil nil :vector))) (mastodon-views--instance-response-fun response brief instance))))) (defun mastodon-views--instance-response-fun (response brief instance) -- cgit v1.2.3