branch: externals/osm
commit 5961dc715c508c99eb74a0c44d6f8122b56857b9
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
Fix #52
---
osm.el | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/osm.el b/osm.el
index 082604b0c9..83889753d4 100644
--- a/osm.el
+++ b/osm.el
@@ -60,7 +60,7 @@
:prefix "osm-")
(defcustom osm-curl-options
- " --disable --user-agent emacs-osm/1.0 --fail --location --silent --max-time
30"
+ "--user-agent emacs-osm/1.0 --fail --location --silent --max-time 30"
"Curl command line options."
:type 'string)
@@ -603,7 +603,7 @@ Local per buffer since the overlays depend on the zoom
level.")
(cl-callf2 delq job osm--download-queue)))
(cl-callf (lambda (s) (mod (1+ s) subs))
(alist-get osm-server osm--download-subdomain 0))
- (cons `("curl" "--write-out" "%{http_code} %{filename_effective}\n"
+ (cons `("curl" "--disable" "--write-out" "%{http_code}
%{filename_effective}\n"
,@(split-string-and-unquote osm-curl-options) ,@(nreverse args))
jobs)))
@@ -1646,7 +1646,7 @@ When called interactively, call the function `osm-home'."
(with-temp-buffer
(let* ((default-process-coding-system '(utf-8-unix . utf-8-unix))
(status (apply #'call-process "curl" nil (current-buffer) nil
- `(,@(split-string-and-unquote osm-curl-options)
,url))))
+ `("--disable" ,@(split-string-and-unquote
osm-curl-options) ,url))))
(unless (eq status 0)
(error "Fetching %s exited with status %s" url status)))
(goto-char (point-min))
@@ -1658,7 +1658,7 @@ When called interactively, call the function `osm-home'."
(with-temp-buffer
(let* ((default-process-coding-system '(utf-8-unix . utf-8-unix))
(status (apply #'call-process "curl" nil (current-buffer) nil
- `(,@(split-string-and-unquote osm-curl-options)
+ `("--disable" ,@(split-string-and-unquote
osm-curl-options)
"-I" ,url))))
(unless (eq status 0)
(error "Fetching %s exited with status %s" url status)))
