aboutsummaryrefslogtreecommitdiff
path: root/lisp/mastodon-tl.el
diff options
context:
space:
mode:
authorAlexander Griffith <griffitaj@gmail.com>2017-05-02 22:46:06 -0400
committerJohnson Denen <johnson.denen@gmail.com>2017-05-05 13:01:59 -0400
commita3aabb8356da11e5ae56215cd4e704b1f8397175 (patch)
treee8e23db056a761eda823806f0ce26e9d2f7b1d33 /lisp/mastodon-tl.el
parentbfbeaccb0ad949beb2d0e40d77f9aaa39ef0b4e3 (diff)
removed fonting from shr-render-region call
Diffstat (limited to 'lisp/mastodon-tl.el')
-rw-r--r--lisp/mastodon-tl.el5
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el
index bfb185a..3a41143 100644
--- a/lisp/mastodon-tl.el
+++ b/lisp/mastodon-tl.el
@@ -160,7 +160,9 @@ also render the html"
(with-temp-buffer
(insert (decode-coding-string string 'utf-8))
(when render
- (shr-render-region (point-min) (point-max)))
+ (progn
+ (customize-set-value 'shr-use-fonts nil)
+ (shr-render-region (point-min) (point-max))))
(buffer-string))
'face face))
@@ -193,6 +195,7 @@ also render the html"
(let ((content (mastodon-tl--field 'content toot)))
(propertize (with-temp-buffer
(insert (decode-coding-string content 'utf-8))
+ (customize-set-value 'shr-use-fonts nil)
(shr-render-region (point-min) (point-max))
(buffer-string))
'face 'default)))