diff options
| author | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-10-12 19:25:58 +0200 |
|---|---|---|
| committer | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-10-12 19:25:58 +0200 |
| commit | 75f07afa41a75bd94d4867350b0e425bf3b2e978 (patch) | |
| tree | 39273a2236eac776f4e1573be7441ee82d19f7d7 /lisp | |
| parent | 9d2a85b36d8d32a0ac5dcecc7cfd1223bf908056 (diff) | |
sub command keys for profile / search msg
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/mastodon-profile.el | 8 | ||||
| -rw-r--r-- | 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'." |