aboutsummaryrefslogtreecommitdiff
path: root/lisp/mastodon-profile.el
diff options
context:
space:
mode:
authormarty hiatt <martianhiatus [a t] riseup [d o t] net>2023-05-16 09:49:53 +0200
committermarty hiatt <martianhiatus [a t] riseup [d o t] net>2023-05-16 09:49:53 +0200
commit5a1f2d19de73fa233187b705e4fe72f31db194ff (patch)
tree2c0d5465a9ae6bb69c2311edda848b81fa33a4d9 /lisp/mastodon-profile.el
parentf342a7f7308c75213a0f54af949995cc99a04963 (diff)
refactoring in profile--update-note-count
Diffstat (limited to 'lisp/mastodon-profile.el')
-rw-r--r--lisp/mastodon-profile.el11
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."