diff options
author | Vitalie Spinu <spinuvit@gmail.com> | 2014-09-15 18:49:33 -0700 |
---|---|---|
committer | Vitalie Spinu <spinuvit@gmail.com> | 2014-09-15 18:51:48 -0700 |
commit | f5294ad40810819d519803d144ad020829960b54 (patch) | |
tree | 040295a5e2f09bde21c2fdd9f5107e4f4c06c258 | |
parent | 3b214ff0ff939a37137e2cfe9bbdd868eaa7e348 (diff) |
ensure `cider-interrupt` is executed in connection buffer
-rw-r--r-- | cider-client.el | 7 |
1 files changed, 4 insertions, 3 deletions
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." |