diff options
author | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-04-05 11:31:11 +0200 |
---|---|---|
committer | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-04-05 11:31:53 +0200 |
commit | ccf2d8d5cdf1655888292c2ce7dd45c86de4e805 (patch) | |
tree | bcb9edd3e64a39bbe0efb10dfdc7b468473a71bb | |
parent | 91c8612beaa73367f08245fbe54d85c3db8c13cc (diff) |
view instance: only look for property-json in profile buf.
prevents the loading of older toots if called on last toot in buffer.
-rw-r--r-- | lisp/mastodon-views.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lisp/mastodon-views.el b/lisp/mastodon-views.el index e3fa280..38344b3 100644 --- a/lisp/mastodon-views.el +++ b/lisp/mastodon-views.el @@ -769,10 +769,14 @@ INSTANCE is an instance domain name." ;; be looking at toots/boosts/users in a profile buffer. ;; profile-json works as a defacto test for if point is on the ;; profile details at the top of a profile buffer. - (url (if (mastodon-tl--property 'profile-json) + (url (if (and (mastodon-tl--profile-buffer-p) + ;; only call this in profile buffers: + (mastodon-tl--property 'profile-json)) (alist-get 'url toot) ; profile description (alist-get 'url account))) - (username (if (mastodon-tl--property 'profile-json) + (username (if (and (mastodon-tl--profile-buffer-p) + ;; only call this in profile buffers: + (mastodon-tl--property 'profile-json)) (alist-get 'username toot) ;; profile (alist-get 'username account))) (instance (mastodon-views--get-instance-url url username instance)) |