From 1a1144f56306f8c12e25b0c91895e66efbd011f6 Mon Sep 17 00:00:00 2001
From: Elis Axelsson <elis.axelsson@gmail.com>
Date: Sat, 22 Apr 2017 12:09:02 +0200
Subject: [PATCH] Exposed sync parameter of request for debugging/test purposes

---
 webpaste.el | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/webpaste.el b/webpaste.el
index b2a4aff..0c7450b 100644
--- a/webpaste.el
+++ b/webpaste.el
@@ -66,6 +66,7 @@ each run.")
                                   (parser 'buffer-string)
                                   (post-data '())
                                   (no-failover nil)
+                                  (sync nil)
                                   post-field
                                   success)
   "Macro to create the lambda function for a provider.
@@ -84,6 +85,8 @@ Usage:
 :post-data   Default post fields sent to service. Defaults to nil.
 :post-field  Name of the field to insert the code into.
 :no-failover Set to t to not allow doing failovers, Defaults to nil.
+:sync        Set to t to wait until request is done.  Defaults to nil.
+             This should only be used for debugging purposes.
 :success     Callback sent to `request`, look up how to write these in the
              documentation for `request`"
   (lambda (text)
@@ -98,6 +101,7 @@ Usage:
              :data post-data
              :parser parser
              :success success
+             :sync sync
              :error
              (cl-function (lambda (&key error-thrown &allow-other-keys)
                             (message "Got error: %S" error-thrown)