procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/mail/hashcash.el (hashcash-insert-payment-async): Fix last change

Browse source
This commit is contained in:
Stefan Monnier 2019-03-13 14:25:28 -04:00
parent 5feaf906e1
commit fd71d626dc
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/mail/hashcash.el
View file

@ -243,8 +243,9 @@ 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)))))
(let ((buf (current-buffer)))
(lambda (process payment)
(hashcash-insert-payment-async-2 buf process payment))))))
(defun hashcash-insert-payment-async-2 (buffer process pay)
(when (buffer-live-p buffer)