From 75f07afa41a75bd94d4867350b0e425bf3b2e978 Mon Sep 17 00:00:00 2001
From: marty hiatt <martianhiatus [a t] riseup [d o t] net>
Date: Thu, 12 Oct 2023 19:25:58 +0200
Subject: sub command keys for profile / search msg

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

diff --git a/lisp/mastodon-profile.el b/lisp/mastodon-profile.el
index 56a7b49..6d5d92d 100644
--- a/lisp/mastodon-profile.el
+++ b/lisp/mastodon-profile.el
@@ -662,7 +662,10 @@ HEADERS means also fetch link headers for pagination."
             (setq mastodon-tl--update-point (point))) ; updates after pinned toots
           (funcall update-function json)))
       (goto-char (point-min))
-      (message "`C-c' `C-c' to cycle profile views."))))
+      (message
+       (substitute-command-keys
+        ;; "\\[mastodon-profile--account-view-cycle]" ; not always bound?
+        "\\`C-c C-c' to cycle profile views: toots, followers, following.")))))
 
 (defun mastodon-profile--format-joined-date-string (joined)
   "Format a human-readable Joined string from timestamp JOINED.
@@ -708,8 +711,7 @@ IMG-TYPE is the JSON key from the account data."
       (if account
           (progn
             (message "Loading profile of user %s..." user-handle)
-            (mastodon-profile--make-author-buffer account)
-            (message "'C-c C-c' to cycle profile views: toots, followers, following"))
+            (mastodon-profile--make-author-buffer account))
         (message "Cannot find a user with handle %S" user-handle)))))
 
 (defun mastodon-profile--my-profile ()
diff --git a/lisp/mastodon-search.el b/lisp/mastodon-search.el
index cedb22a..40cf15a 100644
--- a/lisp/mastodon-search.el
+++ b/lisp/mastodon-search.el
@@ -192,7 +192,9 @@ ACCOUNT-ID means limit search to that account."
         (mastodon-search--format-heading "STATUSES")
         (mapc #'mastodon-tl--toot statuses)) ;toots-list-json))
       (goto-char (point-min))
-      (message "`C-c' `C-c' to cycle result types."))))
+      (message
+       (substitute-command-keys
+        "\\[mastodon-search--query-cycle] to cycle result types.")))))
 
 (defun mastodon-search--buf-type ()
   "Return search buffer type, a member of `mastodon-search-types'."
-- 
cgit v1.2.3