branch: elpa/mastodon
commit 55a5993b600be576ee38d7cc3e975bdc7aaa11a1
Author: marty hiatt <[email protected]>
Commit: marty hiatt <[email protected]>
text props for displaynames in handle completion. #733.
---
lisp/mastodon-tl.el | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el
index 6edbc6e143..5f621edb39 100644
--- a/lisp/mastodon-tl.el
+++ b/lisp/mastodon-tl.el
@@ -3109,8 +3109,10 @@ Annotate the candidates with display name or user name."
(alist-get 'account data))))))
(when user
(concat " "
- (or (alist-get 'display_name user)
- (alist-get 'username user)))))))))
+ (propertize
+ (or (alist-get 'display_name user)
+ (alist-get 'username user))
+ 'face 'mastodon-display-name-face))))))))
(completing-read prompt user-handles nil 'confirm)))
(defun mastodon-tl--user-handles-get (action)
