From: João Távora <joaotavora@gmail.com>
Date: Sat, 29 Jul 2023 10:08:51 +0000 (+0100)
Subject: Jsonrpc: fix default value of success-fn (bug#64919)
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3bbe6f4abc6c1dd8f414e48af5b6ce344bce34db;p=emacs.git

Jsonrpc: fix default value of success-fn (bug#64919)

* lisp/jsonrpc.el (jsonrpc--async-request-1): Fix default value of
success-fn.
---

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))))