martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

* lisp/mail/hashcash.el: Get rid of backquoted lambdas

Browse Source 
Copyright-paperwork-exempt: yes

(hashcash-generate-payment-async): η-reduce.
(hashcash-insert-payment-async): Use proper closure.
This commit is contained in:
Christopher Wellons
2019-03-12 16:35:28 -04:00
committed by Stefan Monnier
parent 3ec05e1c3b
commit c8bf09ed0b
1 changed files with 3 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/mail/hashcash.el
View File

@@ -182,8 +182,7 @@ Return immediately. Call CALLBACK with process and result when ready."
(setq hashcash-process-alist (cons
(cons process (current-buffer))
hashcash-process-alist))
(set-process-filter process `(lambda (process output)
(funcall ,callback process output))))
(set-process-filter process callback))
(funcall callback nil nil)))
(defun hashcash-check-payment (token str val)
@@ -244,8 +243,8 @@ Only start calculation. Results are inserted when ready."
(hashcash-generate-payment-async
(hashcash-payment-to arg)
(hashcash-payment-required arg)
`(lambda (process payment)
(hashcash-insert-payment-async-2 ,(current-buffer) process payment)))))
(lambda (process payment)
(hashcash-insert-payment-async-2 (current-buffer) process payment)))))
(defun hashcash-insert-payment-async-2 (buffer process pay)
(when (buffer-live-p buffer)