From e04d885b0bdacc3d525f42ec82fe81ee3419fdd2 Mon Sep 17 00:00:00 2001
From: Elis Axelsson <elis.axelsson@gmail.com>
Date: Sat, 22 Apr 2017 20:18:12 +0200
Subject: [PATCH] Add (prog1 nil ...) form to avoid having the nil hanging at
 the end

---
 webpaste.el | 32 ++++++++++++++++----------------
 1 file changed, 16 insertions(+), 16 deletions(-)

diff --git a/webpaste.el b/webpaste.el
index b5f2ce3..d2d929f 100644
--- a/webpaste.el
+++ b/webpaste.el
@@ -92,22 +92,22 @@ Usage:
   (lambda (text)
     "Paste TEXT to provider"
 
-    ;; Local variable post-data
-    (cl-pushnew (cons post-field text) post-data)
-
-    ;; Do request
-    (request uri
-             :type type
-             :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)
-                            (unless no-failover
-                              (webpaste-paste-text text)))))
-    nil))
+    (prog1 nil
+      ;; Local variable post-data
+      (cl-pushnew (cons post-field text) post-data)
+
+      ;; Do request
+      (request uri
+               :type type
+               :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)
+                              (unless no-failover
+                                (webpaste-paste-text text))))))))