From f5294ad40810819d519803d144ad020829960b54 Mon Sep 17 00:00:00 2001 From: Vitalie Spinu Date: Mon, 15 Sep 2014 18:49:33 -0700 Subject: ensure `cider-interrupt` is executed in connection buffer --- cider-client.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'cider-client.el') diff --git a/cider-client.el b/cider-client.el index da2e9d43..146c0f62 100644 --- a/cider-client.el +++ b/cider-client.el @@ -152,9 +152,10 @@ loaded." (defun cider-interrupt () "Interrupt any pending evaluations." (interactive) - (let ((pending-request-ids (cider-util--hash-keys nrepl-pending-requests))) - (dolist (request-id pending-request-ids) - (nrepl-request:interrupt request-id (cider-interrupt-handler (current-buffer)))))) + (with-current-buffer (nrepl-current-connection-buffer) + (let ((pending-request-ids (cider-util--hash-keys nrepl-pending-requests))) + (dolist (request-id pending-request-ids) + (nrepl-request:interrupt request-id (cider-interrupt-handler (current-buffer))))))) (defun cider-current-repl-buffer () "The current REPL buffer." -- cgit v1.2.3