diff options
| author | Holger Durer <hdurer@google.com> | 2018-03-02 17:34:03 +0000 |
|---|---|---|
| committer | Holger Durer <hdurer@google.com> | 2018-03-02 17:34:03 +0000 |
| commit | 62b9098a207c9b84e84a56c84ac173b7490c4765 (patch) | |
| tree | 26baf81b9e7b505de9e2c5ae0e3da5348b31bdc6 | |
| parent | 114c611f88e1a0188cb6541e9a185dbdc03ebf3a (diff) | |
Stop url.el from spamming the user with "Connecting host: ..." messages in the minibuffer.
These happen during async loads, i.e. when the user might be doing something else completely.
Especially with auto-update that are coming this is becoming annoying.
| -rw-r--r-- | lisp/mastodon-media.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/mastodon-media.el b/lisp/mastodon-media.el index f010fee..fa5b8c3 100644 --- a/lisp/mastodon-media.el +++ b/lisp/mastodon-media.el @@ -32,6 +32,8 @@ ;; required by the server and client. ;;; Code: +(defvar url-show-status) + (defgroup mastodon-media nil "Inline Mastadon media." :prefix "mastodon-media-" @@ -172,7 +174,9 @@ MEDIA-TYPE is a symbol and either 'avatar or 'media-link." ((eq media-type 'media-link) `(:max-height ,mastodon-media--preview-max-height)))))) (let ((buffer (current-buffer)) - (marker (copy-marker start))) + (marker (copy-marker start)) + ;; Keep url.el from spamming us with messages about connecting to hosts: + (url-show-status nil)) (condition-case nil ;; catch any errors in url-retrieve so as to not abort ;; whatever called us |