[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))))))))
- [nongnu] elpa/webpaste f206653 074/298: Merge branch 'alphapapa-without-eval', (continued)
- [nongnu] elpa/webpaste f206653 074/298: Merge branch 'alphapapa-without-eval', ELPA Syncer, 2021/12/09
- [nongnu] elpa/webpaste 87cee69 081/298: Added test for failover to the second provider and not random, ELPA Syncer, 2021/12/09
- [nongnu] elpa/webpaste dcc26da 084/298: Update melpa image links, ELPA Syncer, 2021/12/09
- [nongnu] elpa/webpaste 6655ecc 085/298: Rename make compile to make build because it's easier to remember, ELPA Syncer, 2021/12/09
- [nongnu] elpa/webpaste 346b5bc 087/298: Rename tests to be prefixed, ELPA Syncer, 2021/12/09
- [nongnu] elpa/webpaste 3389b4a 089/298: Do not provide test-helper feature, ELPA Syncer, 2021/12/09
- [nongnu] elpa/webpaste 7db5673 093/298: Added more emacs versions for tests, ELPA Syncer, 2021/12/09
- [nongnu] elpa/webpaste 382e01d 105/298: Added page breaks to files, ELPA Syncer, 2021/12/09
- [nongnu] elpa/webpaste b7acc4e 100/298: Added test for returning of URL's, ELPA Syncer, 2021/12/09
- [nongnu] elpa/webpaste 8027e6e 106/298: Run tests on emacs 25.2 since it's been released, ELPA Syncer, 2021/12/09
- [nongnu] elpa/webpaste e04d885 114/298: Add (prog1 nil ...) form to avoid having the nil hanging at the end,
ELPA Syncer <=
- [nongnu] elpa/webpaste 124ef8b 119/298: Drop usage of concat when returning link to users message field, ELPA Syncer, 2021/12/09
- [nongnu] elpa/webpaste 69166a3 121/298: Moved error-handling of failed requests out so providers must specify it, ELPA Syncer, 2021/12/09
- [nongnu] elpa/webpaste 69f9452 122/298: Bump version for minor release, ELPA Syncer, 2021/12/09
- [nongnu] elpa/webpaste 8905a52 125/298: Re-arrange arguments to webpaste-provider and update docs, ELPA Syncer, 2021/12/09
- [nongnu] elpa/webpaste 72ba31e 127/298: Bump version for new release, ELPA Syncer, 2021/12/09
- [nongnu] elpa/webpaste 7d03ed3 137/298: Removed unused variables defined in function declaration, ELPA Syncer, 2021/12/09
- [nongnu] elpa/webpaste 07a85e9 142/298: Added pre-calculated alist of languages for providers, ELPA Syncer, 2021/12/09
- [nongnu] elpa/webpaste 7b84568 155/298: Avoid setq's in favor of let, ELPA Syncer, 2021/12/09
- [nongnu] elpa/webpaste 0c0e88a 079/298: Added basic structure of tests file, ELPA Syncer, 2021/12/09
- [nongnu] elpa/webpaste 95289e5 082/298: Added .travis.yml config file, ELPA Syncer, 2021/12/09