branch: elpa/request
commit 6019c4db8084ca7734b5f3b1262407a4a4f398ff
Author: Ryan Faulhaber <r...@sent.as>
Commit: Ryan Faulhaber <r...@sent.as>
adds support for curl "<"
---
request.el | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/request.el b/request.el
index c36b3fcbd2..71318b150b 100644
--- a/request.el
+++ b/request.el
@@ -898,22 +898,22 @@ BUG: Simultaneous requests are a known cause of
cookie-jar corruption."
for (name . item) in files
collect "--form"
collect
- (apply #'format "%s=@%s;filename=%s%s"
+ (apply #'format "%s=%s%s;filename=%s%s"
(cond ((stringp item)
- (list name item (file-name-nondirectory item) ""))
+ (list name "@" item (file-name-nondirectory item)
""))
((bufferp item)
(if stdin-p
(error (concat "request--curl-command-args: "
"only one buffer or data entry
permitted"))
(setq stdin-p t))
- (list name "-" (buffer-name item) ""))
+ (list name "@" "-" (buffer-name item) ""))
((listp item)
(unless (plist-get (cdr item) :file)
(if stdin-p
(error (concat "request--curl-command-args: "
"only one buffer or data entry
permitted"))
(setq stdin-p t)))
- (list name (or (plist-get (cdr item) :file) "-")
(car item)
+ (list name (if (plist-get (cdr item) :use-contents)
"<" "@") (or (plist-get (cdr item) :file) "-") (car item)
(if (plist-get (cdr item) :mime-type)
(format ";type=%s" (plist-get (cdr item)
:mime-type))
"")))
