diff options
| author | alexjgriffith <griffitaj @gmail.com> | 2017-05-05 12:04:12 -0400 |
|---|---|---|
| committer | Johnson Denen <johnson.denen@gmail.com> | 2017-05-05 13:01:59 -0400 |
| commit | df0341b167ba2de92dd26ef9e687026db33f524e (patch) | |
| tree | 8c8256a718d163dacd23f244bdc6d58085f50d8e | |
| parent | a3aabb8356da11e5ae56215cd4e704b1f8397175 (diff) | |
#114 Swapped customize-set-value to let
| -rw-r--r-- | lisp/mastodon-tl.el | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el index 3a41143..c109df5 100644 --- a/lisp/mastodon-tl.el +++ b/lisp/mastodon-tl.el @@ -160,8 +160,7 @@ also render the html" (with-temp-buffer (insert (decode-coding-string string 'utf-8)) (when render - (progn - (customize-set-value 'shr-use-fonts nil) + (let ((shr-use-fonts nil)) (shr-render-region (point-min) (point-max)))) (buffer-string)) 'face face)) @@ -195,8 +194,8 @@ 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)) + (let ((shr-use-fonts nil)) + (shr-render-region (point-min) (point-max))) (buffer-string)) 'face 'default))) |