branch: elpa/cider
commit 09a426ac673fd53fd814d18b277e1c50984b2a7e
Author: vemv <v...@users.noreply.github.com>
Commit: GitHub <nore...@github.com>
Don't pass a nil callback when calling `cider/get-state` (#3439)
---
cider-repl.el | 6 +++++-
nrepl-client.el | 2 +-
2 files changed, 6 insertions(+), 2 deletions(-)
diff --git a/cider-repl.el b/cider-repl.el
index 6728538645..bdbef1684d 100644
--- a/cider-repl.el
+++ b/cider-repl.el
@@ -990,7 +990,11 @@ nREPL ops, it may be convenient to prevent inserting a
prompt.")
"Invokes `cider/get-state' when it's possible to do so."
(when-let ((conn (cider-current-repl 'cljs)))
(when (nrepl-op-supported-p "cider/get-state" conn)
- (nrepl-send-request '("op" "cider/get-state") nil conn))))
+ (nrepl-send-request '("op" "cider/get-state")
+ (lambda (_response)
+ ;; No action is necessary: this request results in
`cider-repl--state-handler` being called.
+ )
+ conn))))
(defun cider--maybe-get-state-for-shadow-cljs (buffer &optional err)
"Refresh the changed namespaces metadata given BUFFER and ERR (stderr
string).
diff --git a/nrepl-client.el b/nrepl-client.el
index cd0f3ee373..1649da6f68 100644
--- a/nrepl-client.el
+++ b/nrepl-client.el
@@ -480,7 +480,7 @@ older requests with \"done\" status."
(gethash id nrepl-completed-requests))))
(if callback
(funcall callback response)
- (error "[nREPL] No response handler with id %s found" id)))))
+ (error "[nREPL] No response handler with id %s found for %s" id
(buffer-name))))))
(defun nrepl-client-sentinel (process message)
"Handle sentinel events from PROCESS.
