From 3bbe6f4abc6c1dd8f414e48af5b6ce344bce34db Mon Sep 17 00:00:00 2001
From: =?utf8?q?Jo=C3=A3o=20T=C3=A1vora?= <joaotavora@gmail.com>
Date: Sat, 29 Jul 2023 11:08:51 +0100
Subject: [PATCH] Jsonrpc: fix default value of success-fn (bug#64919)

* lisp/jsonrpc.el (jsonrpc--async-request-1): Fix default value of
success-fn.
---
 lisp/jsonrpc.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/jsonrpc.el b/lisp/jsonrpc.el
index ccf0f966574..c8b287a7e94 100644
--- a/lisp/jsonrpc.el
+++ b/lisp/jsonrpc.el
@@ -698,7 +698,7 @@ TIMEOUT is nil)."
                              :params params)
     (puthash id
              (list (or success-fn
-                       (jsonrpc-lambda (&rest _ignored)
+                       (lambda (&rest _ignored)
                          (jsonrpc--debug
                           connection (list :message "success ignored"
                                            :id id))))
-- 
2.39.2