[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/request 996a87d 5/5: Cannot post multiple dynamic files an
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/request 996a87d 5/5: Cannot post multiple dynamic files anymore |
Date: |
Fri, 12 Feb 2021 00:57:09 -0500 (EST) |
branch: elpa/request
commit 996a87dd8bcbf8728ac849cdb29f3379f63069d9
Author: dickmao <none>
Commit: dickmao <none>
Cannot post multiple dynamic files anymore
Just multiple static ones.
---
.github/workflows/test.yml | 3 ++-
README.rst | 3 +--
request.el | 3 +--
3 files changed, 4 insertions(+), 5 deletions(-)
diff --git a/.github/workflows/test.yml b/.github/workflows/test.yml
index 62e2690..51d38f9 100644
--- a/.github/workflows/test.yml
+++ b/.github/workflows/test.yml
@@ -4,10 +4,11 @@ on:
pull_request:
paths-ignore:
- '**.md'
- - '**.markdown'
+ - '**.rst'
push:
paths-ignore:
- '**.md'
+ - '**.rst'
branches-ignore:
- 'master'
- 'main'
diff --git a/README.rst b/README.rst
index eddf4fb..28e2b7d 100644
--- a/README.rst
+++ b/README.rst
@@ -91,8 +91,7 @@ POST file (**WARNING**: it will send the contents of the
current buffer!):
(request
"http://httpbin.org/post"
:type "POST"
- :files `(("current buffer" . ,(current-buffer))
- ("data" . ("data.csv" :data "1,2,3\n4,5,6\n")))
+ :files `(("current buffer" . ,(current-buffer)))
:parser 'json-read
:success (cl-function
(lambda (&key data &allow-other-keys)
diff --git a/request.el b/request.el
index 25b8008..dfb8bce 100644
--- a/request.el
+++ b/request.el
@@ -993,7 +993,6 @@ removed from the buffer before it is shown to the parser
function.
(buffer (generate-new-buffer " *request curl*"))
(command (apply #'request--curl-command url settings))
(proc (apply #'start-process "request curl" buffer command))
- (scommand (mapconcat 'identity command " "))
(file-items (mapcar #'cdr files))
(file-buffer (or (cl-some (lambda (item)
(when (bufferp item) item))
@@ -1008,7 +1007,7 @@ removed from the buffer before it is shown to the parser
function.
file-items)))
(request--install-timeout timeout response)
(request-log 'debug "request--curl: %s"
- (request--curl-occlude-secret scommand))
+ (request--curl-occlude-secret (mapconcat 'identity command "
")))
(setf (request-response--buffer response) buffer)
(process-put proc :request-response response)
(set-process-coding-system proc 'no-conversion 'no-conversion)