[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master c8bf09e: * lisp/mail/hashcash.el: Get rid of backqu
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] master c8bf09e: * lisp/mail/hashcash.el: Get rid of backquoted lambdas |
Date: |
Tue, 12 Mar 2019 16:35:34 -0400 (EDT) |
branch: master
commit c8bf09ed0b3ab0ef3c22c3dcfa9e18f44cb3be1b
Author: Christopher Wellons <address@hidden>
Commit: Stefan Monnier <address@hidden>
* 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.
---
lisp/mail/hashcash.el | 7 +++----
1 file changed, 3 insertions(+), 4 deletions(-)
diff --git a/lisp/mail/hashcash.el b/lisp/mail/hashcash.el
index 59200ea..519c6d9 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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master c8bf09e: * lisp/mail/hashcash.el: Get rid of backquoted lambdas,
Stefan Monnier <=