branch: elpa/emacsql
commit e6ce8ded45e93fad40332c9b6f6288bfea60d709
Author: Jonas Bernoulli <[email protected]>
Commit: Jonas Bernoulli <[email protected]>
Require url when running emacsql-sqlite-download
Also suppress a byte-compile warning.
---
emacsql-sqlite.el | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/emacsql-sqlite.el b/emacsql-sqlite.el
index ab81150ff9..2abf63bd3d 100644
--- a/emacsql-sqlite.el
+++ b/emacsql-sqlite.el
@@ -174,7 +174,7 @@ If called with non-nil ASYNC the return value is
meaningless."
(defun emacsql-sqlite-download (url filename)
"Downlod URL to FILENAME, clobbering returning nil on failure.
This works like `url-copy-file' but actually checks for errors."
- (cl-declare (special url-http-end-of-headers))
+ (require 'url)
(let ((buffer (url-retrieve-synchronously url)))
(when buffer
(with-current-buffer buffer
@@ -182,7 +182,8 @@ This works like `url-copy-file' but actually checks for
errors."
(when (and (>= 200 response) (< response 300))
(mkdir (file-name-directory filename) t)
(let ((buffer-file-coding-system 'no-conversion))
- (write-region (1+ url-http-end-of-headers) (point-max) filename)
+ (write-region (1+ (with-no-warnings url-http-end-of-headers))
+ (point-max) filename)
:success)))))))
(defun emacsql-sqlite-mark-exec (file)
