From: Christopher Wellons <wellons@nullprogram.com>
Date: Tue, 12 Mar 2019 20:35:28 +0000 (-0400)
Subject: * lisp/mail/hashcash.el: Get rid of backquoted lambdas
X-Git-Tag: emacs-27.0.90~3422
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c8bf09ed0b3ab0ef3c22c3dcfa9e18f44cb3be1b;p=emacs.git

* 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.
---

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)