tools/lookup: declare gnutls-algorithm-priority early

Otherwise, gnutls-algorithm-priority won't be in scope for
`dash-docs-read-json-from-url`.
This commit is contained in:
Henrik Lissner 2019-05-15 23:59:03 -04:00
parent bc501ef28e
commit 4002313e79
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

View file

@ -138,6 +138,9 @@ this list.")
dash-docs-min-length 2 dash-docs-min-length 2
dash-docs-browser-func #'eww) dash-docs-browser-func #'eww)
;; Before `gnutls' is loaded, `gnutls-algorithm-priority' is treated as a
;; lexical variable, which breaks `+lookup*fix-gnutls-error'
(defvar gnutls-algorithm-priority)
(defun +lookup*fix-gnutls-error (orig-fn url) (defun +lookup*fix-gnutls-error (orig-fn url)
"Fixes integer-or-marker-p errors emitted from Emacs' url library, "Fixes integer-or-marker-p errors emitted from Emacs' url library,
particularly, the `url-retrieve-synchronously' call in particularly, the `url-retrieve-synchronously' call in