From 2ad964bac68adc29ee71f5f9c4d0793f9ac9e6ff Mon Sep 17 00:00:00 2001
From: marty hiatt <martianhiatus [a t] riseup [d o t] net>
Date: Mon, 20 Mar 2023 22:00:13 +0100
Subject: rename view-follow-suggestions

---
 lisp/mastodon-views.el | 4 ++--
 lisp/mastodon.el       | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

(limited to 'lisp')

diff --git a/lisp/mastodon-views.el b/lisp/mastodon-views.el
index e8c5cd0..5cfbe41 100644
--- a/lisp/mastodon-views.el
+++ b/lisp/mastodon-views.el
@@ -101,7 +101,7 @@
 (defvar mastodon-views--follow-suggestions-map
   (let ((map
          (copy-keymap mastodon-views-map)))
-    (define-key map (kbd "g") 'mastodon-views--get-follow-suggestions)
+    (define-key map (kbd "g") 'mastodon-views--view-follow-suggestions)
     (keymap-canonicalize map))
   "Keymap for viewing follow suggestions.")
 
@@ -676,7 +676,7 @@ Prompt for a context, must be a list containting at least one of \"home\",
 
 ;;; FOLLOW SUGGESTIONS
 
-(defun mastodon-views--get-follow-suggestions ()
+(defun mastodon-views--view-follow-suggestions ()
   "Display a buffer of suggested accounts to follow."
   (interactive)
   (mastodon-tl--init-sync "follow-suggestions"
diff --git a/lisp/mastodon.el b/lisp/mastodon.el
index 075aa6a..731aba2 100644
--- a/lisp/mastodon.el
+++ b/lisp/mastodon.el
@@ -89,7 +89,7 @@
 (when (require 'lingva nil :no-error)
   (autoload 'mastodon-toot--translate-toot-text "mastodon-toot"))
 (autoload 'mastodon-toot--view-toot-history "mastodon-tl")
-(autoload 'mastodon-views--get-follow-suggestions "mastodon-views")
+(autoload 'mastodon-views--view-follow-suggestions "mastodon-views")
 (autoload 'mastodon-views--view-filters "mastodon-views")
 (autoload 'mastodon-views--view-follow-requests "mastodon-views")
 (autoload 'mastodon-views--view-instance-description "mastodon-views")
@@ -197,7 +197,7 @@ Use. e.g. \"%c\" for your locale's date and time format."
     (define-key map (kbd "v") #'mastodon-tl--poll-vote)
     (define-key map (kbd "K") #'mastodon-profile--view-bookmarks)
     (define-key map (kbd "I") #'mastodon-views--view-filters)
-    (define-key map (kbd "G") #'mastodon-views--get-follow-suggestions)
+    (define-key map (kbd "G") #'mastodon-views--view-follow-suggestions)
     (define-key map (kbd "X") #'mastodon-views--view-lists)
     (define-key map (kbd "@") #'mastodon-notifications--get-mentions)
     (define-key map (kbd "e") #'mastodon-toot--edit-toot-at-point)
-- 
cgit v1.2.3