emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/webpaste e04d885 114/298: Add (prog1 nil ...) form to avoi


From: ELPA Syncer
Subject: [nongnu] elpa/webpaste e04d885 114/298: Add (prog1 nil ...) form to avoid having the nil hanging at the end
Date: Thu, 9 Dec 2021 18:59:56 -0500 (EST)

branch: elpa/webpaste
commit e04d885b0bdacc3d525f42ec82fe81ee3419fdd2
Author: Elis Axelsson <elis.axelsson@gmail.com>
Commit: Elis Axelsson <elis.axelsson@gmail.com>

    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))))))))
 
 
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]