diff options
| author | Christopher Wellons <wellons@nullprogram.com> | 2019-03-12 16:35:28 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2019-03-12 16:35:28 -0400 |
| commit | c8bf09ed0b3ab0ef3c22c3dcfa9e18f44cb3be1b (patch) | |
| tree | 5a712aeb1dd9bbdf41f4afe7aebcfc2ed6452447 | |
| parent | 3ec05e1c3b4c46cf48e7039175d96596dd4b94be (diff) | |
| download | emacs-c8bf09ed0b3ab0ef3c22c3dcfa9e18f44cb3be1b.tar.gz emacs-c8bf09ed0b3ab0ef3c22c3dcfa9e18f44cb3be1b.tar.bz2 emacs-c8bf09ed0b3ab0ef3c22c3dcfa9e18f44cb3be1b.zip | |
* lisp/mail/hashcash.el: Get rid of backquoted lambdas
Copyright-paperwork-exempt: yes
(hashcash-generate-payment-async): η-reduce.
(hashcash-insert-payment-async): Use proper closure.
| -rw-r--r-- | lisp/mail/hashcash.el | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/lisp/mail/hashcash.el b/lisp/mail/hashcash.el index 59200eaab88..519c6d94e1b 100644 --- a/lisp/mail/hashcash.el +++ b/lisp/mail/hashcash.el @@ -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) |