From 4adc67c59dedcea89116aae0e054ea1212dcca7a Mon Sep 17 00:00:00 2001 From: =?utf8?q?Jo=C3=A3o=20T=C3=A1vora?= Date: Thu, 21 Dec 2023 09:08:13 -0600 Subject: [PATCH] Jsonrpc: fix destructuring bug * lisp/jsonrpc.el (jsonrpc--process-sentinel): Fix destructuring bug. (Version): Bump to 1.0.22 --- lisp/jsonrpc.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/jsonrpc.el b/lisp/jsonrpc.el index 737351e5d7a..8b34728fb95 100644 --- a/lisp/jsonrpc.el +++ b/lisp/jsonrpc.el @@ -4,7 +4,7 @@ ;; Author: João Távora ;; Keywords: processes, languages, extensions -;; Version: 1.0.21 +;; Version: 1.0.22 ;; Package-Requires: ((emacs "25.2")) ;; This is a GNU ELPA :core package. Avoid functionality that is not @@ -585,7 +585,7 @@ With optional CLEANUP, kill any associated buffers." (let ((inhibit-read-only t)) (insert "\n----------b---y---e---b---y---e----------\n"))) ;; Cancel outstanding timers - (mapc (lambda (_id _success _error timer) + (mapc (jsonrpc-lambda (_id _success _error timer) (when timer (cancel-timer timer))) (jsonrpc--request-continuations connection)) (maphash (lambda (_ triplet) @@ -595,7 +595,7 @@ With optional CLEANUP, kill any associated buffers." (process-put proc 'jsonrpc-sentinel-cleanup-started t) (unwind-protect ;; Call all outstanding error handlers - (mapc (lambda (_id _success error _timer) + (mapc (jsonrpc-lambda (_id _success error _timer) (funcall error '(:code -1 :message "Server died"))) (jsonrpc--request-continuations connection)) (jsonrpc--message "Server exited with status %s" (process-exit-status proc)) -- 2.39.5