remove unused code

5 files changed, 5 insertions, 13 deletions

diff --git a/lisp/mastodon-notifications.el b/lisp/mastodon-notifications.el
index bb9637c..22228f2 100644
--- a/lisp/mastodon-notifications.el
+++ b/lisp/mastodon-notifications.el
@@ -46,7 +46,6 @@
 (autoload 'mastodon-tl--find-property-range "mastodon-tl")
 (autoload 'mastodon-tl--has-spoiler "mastodon-tl")
 (autoload 'mastodon-tl--init "mastodon-tl")
-(autoload 'mastodon-tl--init-sync "mastodon-tl")
 (autoload 'mastodon-tl--insert-status "mastodon-tl")
 (autoload 'mastodon-tl--property "mastodon-tl")
 (autoload 'mastodon-tl--reload-timeline-or-profile "mastodon-tl")
diff --git a/lisp/mastodon-profile.el b/lisp/mastodon-profile.el
index 380c82f..175af06 100644
--- a/lisp/mastodon-profile.el
+++ b/lisp/mastodon-profile.el
@@ -68,7 +68,6 @@
 (autoload 'mastodon-tl--goto-next-toot "mastodon-tl.el")
 (autoload 'mastodon-tl--goto-prev-item "mastodon-tl")
 (autoload 'mastodon-tl--init "mastodon-tl.el")
-(autoload 'mastodon-tl--init-sync "mastodon-tl")
 (autoload 'mastodon-tl--interactive-user-handles-get "mastodon-tl")
 (autoload 'mastodon-tl--map-alist "mastodon-tl")
 (autoload 'mastodon-tl--profile-buffer-p "mastodon tl")
@@ -84,11 +83,9 @@
 (autoload 'mastodon-toot--count-toot-chars "mastodon-toot")
 (autoload 'mastodon-toot--get-max-toot-chars "mastodon-toot")
 (autoload 'mastodon-views--add-account-to-list "mastodon-views")
+(autoload 'mastodon-tl--map-alist-vals-to-alist "mastodon-tl")
 
-(defvar mastodon-instance-url)
-(defvar mastodon-tl--buffer-spec)
 (defvar mastodon-tl--update-point)
-(defvar mastodon-mode-map)
 (defvar mastodon-toot--max-toot-chars)
 (defvar mastodon-toot--visibility)
 (defvar mastodon-toot--content-nsfw)
@@ -350,6 +347,7 @@ This is done after changing the setting on the server."
   (setq mastodon-profile-account-settings
         (plist-put mastodon-profile-account-settings pref val)))
 
+;; used in toot.el
 (defun mastodon-profile--fetch-server-account-settings-maybe ()
   "Fetch account settings from the server.
 Only do so if `mastodon-profile-account-settings' is nil."
@@ -491,6 +489,7 @@ Returns the results as an alist."
   "Limit string X to 255 chars max."
   (if (> (length x) 255) (substring x 0 255) x))
 
+;; used in tl.el
 (defun mastodon-profile--get-preferences-pref (pref)
   "Fetch PREF from the endpoint \"/preferences\".
 This endpoint only holds a few preferences. For others, see
diff --git a/lisp/mastodon-search.el b/lisp/mastodon-search.el
index 3f76162..eba7292 100644
--- a/lisp/mastodon-search.el
+++ b/lisp/mastodon-search.el
@@ -45,8 +45,6 @@
 (defvar mastodon-toot--completion-style-for-mentions)
 (defvar mastodon-instance-url)
 (defvar mastodon-tl--link-keymap)
-(defvar mastodon-http--timeout)
-(defvar mastodon-toot--enable-completion-for-mentions)
 
 ;; functions for completion of mentions in mastodon-toot
 
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el
index dc538a9..0448fb3 100644
--- a/lisp/mastodon-tl.el
+++ b/lisp/mastodon-tl.el
@@ -1949,11 +1949,6 @@ ARGS is an alist of any parameters to send with the request."
 
 ;; FOLLOW TAGS
 
-(defun mastodon-tl--get-tag-json (tag)
-  "Return JSON data about TAG."
-  (let ((url (mastodon-http--api (format "tags/%s" tag))))
-    (mastodon-http--get-json url)))
-
 (defun mastodon-tl--follow-tag (&optional tag)
   "Prompt for a tag and follow it.
 If TAG provided, follow it."
diff --git a/lisp/mastodon-views.el b/lisp/mastodon-views.el
index 9274f45..54469e1 100644
--- a/lisp/mastodon-views.el
+++ b/lisp/mastodon-views.el
@@ -38,7 +38,6 @@
 (require 'cl-lib)
 (require 'mastodon-http)
 
-(defvar mastodon-profile--account)
 (defvar mastodon-mode-map)
 
 (autoload 'mastodon-mode "mastodon")
@@ -64,6 +63,8 @@
 (autoload 'mastodon-toot--set-toot-properties "mastodon-toot")
 (autoload 'mastodon-search--propertize-user "mastodon-search")
 (autoload 'mastodon-search--insert-users-propertized "mastodon-search")
+(autoload 'mastodon-tl--map-alist "mastodon-tl")
+(autoload 'mastodon-tl--map-alist-vals-to-alist "mastodon-tl")
 
 
 ;;; KEYMAPS