branch: elpa/mastodon
commit f646c2d5128db8f64c580c9d1133c7e445840800
Author: Stefan Monnier <[email protected]>
Commit: Stefan Monnier <[email protected]>
Don't refer to obsolete font-lock face variables
* lisp/mastodon-profile.el (mastodon-profile--update-user-profile-note):
* lisp/mastodon-tl.el (mastodon-tl--byline, mastodon-tl--toot-stats):
* lisp/mastodon-toot.el (mastodon-toot--view-toot-edits):
* lisp/mastodon-views.el (mastodon-views--minor-view): Quote face names.
---
lisp/mastodon-profile.el | 4 ++--
lisp/mastodon-tl.el | 12 ++++++------
lisp/mastodon-toot.el | 4 ++--
lisp/mastodon-views.el | 2 +-
4 files changed, 11 insertions(+), 11 deletions(-)
diff --git a/lisp/mastodon-profile.el b/lisp/mastodon-profile.el
index 658c371cd3..0a3a236412 100644
--- a/lisp/mastodon-profile.el
+++ b/lisp/mastodon-profile.el
@@ -250,14 +250,14 @@ NO-REBLOGS means do not display boosts in statuses."
(mastodon-tl--set-buffer-spec (buffer-name buffer)
"accounts/verify_credentials" nil)
(setq-local header-line-format
(propertize msg-str
- 'face font-lock-comment-face))
+ 'face 'font-lock-comment-face))
(mastodon-profile-update-mode t)
(insert (propertize (concat (propertize "0"
'note-counter t
'display nil)
"/500 characters")
'read-only t
- 'face font-lock-comment-face
+ 'face 'font-lock-comment-face
'note-header t)
"\n")
(make-local-variable 'after-change-functions)
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el
index dadc7a87bb..9e86327c7c 100644
--- a/lisp/mastodon-tl.el
+++ b/lisp/mastodon-tl.el
@@ -677,7 +677,7 @@ this just means displaying toot client."
(propertize
(format-time-string mastodon-toot-timestamp-format
edited-parsed)
- 'face font-lock-comment-face
+ 'face 'font-lock-comment-face
'timestamp edited-parsed
'display (if mastodon-tl--enable-relative-timestamps
(mastodon-tl--relative-time-description
edited-parsed)
@@ -1371,19 +1371,19 @@ To disable showing the stats, customize
'favourited-p (eq 't .favourited)
'favourites-field t
'help-echo (format "%s favourites"
.favourites_count)
- 'face font-lock-comment-face)
- (propertize " | " 'face font-lock-comment-face)
+ 'face 'font-lock-comment-face)
+ (propertize " | " 'face 'font-lock-comment-face)
(propertize boosts
'boosted-p (eq 't .reblogged)
'boosts-field t
'help-echo (format "%s boosts" .reblogs_count)
- 'face font-lock-comment-face)
- (propertize " | " 'face font-lock-comment-face)
+ 'face 'font-lock-comment-face)
+ (propertize " | " 'face 'font-lock-comment-face)
(propertize replies
'replies-field t
'replies-count .replies_count
'help-echo (format "%s replies" .replies_count)
- 'face font-lock-comment-face)))
+ 'face 'font-lock-comment-face)))
(status
(concat
(propertize " "
diff --git a/lisp/mastodon-toot.el b/lisp/mastodon-toot.el
index f14aec39e5..8170110fc5 100644
--- a/lisp/mastodon-toot.el
+++ b/lisp/mastodon-toot.el
@@ -905,7 +905,7 @@ instance to edit a toot."
(insert (propertize (if (= count 1)
(format "%s [original]:\n" count)
(format "%s:\n" count))
- 'face font-lock-comment-face)
+ 'face 'font-lock-comment-face)
(mastodon-toot--insert-toot-iter x)
"\n")
(cl-incf count))
@@ -915,7 +915,7 @@ instance to edit a toot."
(format "Edits to toot by %s:"
(alist-get 'username
(alist-get 'account (car history))))
- 'face font-lock-comment-face))
+ 'face 'font-lock-comment-face))
(mastodon-tl--set-buffer-spec (buffer-name (current-buffer))
(format "statuses/%s/history" id)
nil))))
diff --git a/lisp/mastodon-views.el b/lisp/mastodon-views.el
index 00b9467f64..ad36664f3e 100644
--- a/lisp/mastodon-views.el
+++ b/lisp/mastodon-views.el
@@ -177,7 +177,7 @@ provides the JSON data."
(if (seq-empty-p data)
(insert (propertize
(format "Looks like you have no %s for now." view-name)
- 'face font-lock-comment-face
+ 'face 'font-lock-comment-face
'byline t
'toot-id "0")) ; so point can move here when no item
(funcall insert-fun data)
