diff options
| author | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2022-09-05 12:50:07 +0200 |
|---|---|---|
| committer | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2022-09-05 13:10:59 +0200 |
| commit | 87705c415d6ec3bbf2ed13b844d9c8d1400f1fa4 (patch) | |
| tree | eae3a9eac5b037249ad84590df07060f2060e95b /lisp/mastodon-profile.el | |
| parent | 3ea9d6882464debcb48048c1a1affcd64bc8b220 (diff) | |
use seq-empty-p and string-empty-p calls
Diffstat (limited to 'lisp/mastodon-profile.el')
| -rw-r--r-- | lisp/mastodon-profile.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/mastodon-profile.el b/lisp/mastodon-profile.el index 00ffedd..cf27732 100644 --- a/lisp/mastodon-profile.el +++ b/lisp/mastodon-profile.el @@ -201,7 +201,7 @@ JSON is the data returned by the server." (mastodon-tl--set-face "[a/r - accept/reject request at point\n n/p - go to next/prev request]\n\n" 'font-lock-comment-face)) - (if (equal json '[]) + (if (seq-empty-p json) (insert (propertize "Looks like you have no follow requests for now." 'face font-lock-comment-face @@ -538,7 +538,7 @@ Also insert their profile note. Used to view a user's followers and those they're following." ;;FIXME change the name of this fun now that we've edited what it does! (let ((inhibit-read-only t)) - (when (not (equal tootv '[])) + (unless (seq-empty-p tootv) (mapc (lambda (toot) (let ((start-pos (point))) (insert "\n" |