From f53847ef151bf841a2cbdaad556b334f3bba2986 Mon Sep 17 00:00:00 2001 From: marty hiatt Date: Wed, 5 Apr 2023 11:31:11 +0200 Subject: view instance: only look for property-json in profile buf. prevents the loading of older toots if called on last toot in buffer. --- lisp/mastodon-views.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'lisp') diff --git a/lisp/mastodon-views.el b/lisp/mastodon-views.el index 9a25276..5576b14 100644 --- a/lisp/mastodon-views.el +++ b/lisp/mastodon-views.el @@ -747,10 +747,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 (cond (instance -- cgit v1.2.3