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 /cider-client.el | |
| parent | 3b214ff0ff939a37137e2cfe9bbdd868eaa7e348 (diff) | |
ensure `cider-interrupt` is executed in connection buffer
Diffstat (limited to 'cider-client.el')
| -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." |