Refactored away add-to-list in favor of cl-pushnew in two more places

master
Elis Axelsson 10 years ago
parent 272757b043
commit 015bb9de15
  1. 8
      webpaste.el

@ -65,9 +65,9 @@ each run.")
(lambda (text)
"Paste TEXT to http://ix.io/."
(let ((post-data '()))
;; Construct post data
(add-to-list 'post-data (cons "f:1" text))
(let ((post-data))
;; Add TEXT to POST-DATA
(cl-pushnew (cons "f:1" text) post-data)
;; Use request.el to do request to ix.io to submit data
(request "http://ix.io/"
@ -93,7 +93,7 @@ each run.")
("expiry_days" . "1"))))
;; Add TEXT as content
(add-to-list 'post-data (cons "content" text))
(cl-pushnew (cons "content" text) post-data)
;; Use request.el to do request to dpaste.com to submit data
(request "http://dpaste.com/api/v2/"

Loading…
Cancel
Save