diff options
| author | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-05-16 09:49:53 +0200 |
|---|---|---|
| committer | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-05-16 09:49:53 +0200 |
| commit | 5a1f2d19de73fa233187b705e4fe72f31db194ff (patch) | |
| tree | 2c0d5465a9ae6bb69c2311edda848b81fa33a4d9 | |
| parent | f342a7f7308c75213a0f54af949995cc99a04963 (diff) | |
refactoring in profile--update-note-count
| -rw-r--r-- | lisp/mastodon-profile.el | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/lisp/mastodon-profile.el b/lisp/mastodon-profile.el index 0c6e3b2..b4684da 100644 --- a/lisp/mastodon-profile.el +++ b/lisp/mastodon-profile.el @@ -269,13 +269,12 @@ NO-REBLOGS means do not display boosts in statuses." (header-region (mastodon-tl--find-property-range 'note-header (point-min))) (count-region (mastodon-tl--find-property-range 'note-counter - (point-min)))) + (point-min))) + (count (number-to-string (mastodon-toot--count-toot-chars + (buffer-substring-no-properties + (cdr header-region) (point-max)))))) (add-text-properties (car count-region) (cdr count-region) - (list 'display - (number-to-string - (mastodon-toot--count-toot-chars - (buffer-substring-no-properties - (cdr header-region) (point-max)))))))) + (list 'display count)))) (defun mastodon-profile--update-profile-note-cancel () "Cancel updating user profile and kill buffer and window." |