Skip to content

Commit ab782ba

Browse files
committed
Quit stacktrace window on interactive evaluation
1 parent d7546f6 commit ab782ba

File tree

1 file changed

+4
-0
lines changed

1 file changed

+4
-0
lines changed

cider-interaction.el

Lines changed: 4 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1228,6 +1228,8 @@ function is the main entry point in CIDER's interactive evaluation API. All
12281228
other interactive eval functions should rely on this function. If CALLBACK
12291229
is nil use `cider-interactive-eval-handler'."
12301230
(cider--clear-compilation-highlights)
1231+
(-when-let (error-win (get-buffer-window cider-error-buffer))
1232+
(quit-window nil error-win))
12311233
(let ((filename (or (buffer-file-name)
12321234
(buffer-name))))
12331235
(cider-request:load-file
@@ -1743,6 +1745,8 @@ strings, include private vars, and be case sensitive."
17431745
(file-name-nondirectory
17441746
(buffer-file-name))))))
17451747
(cider--clear-compilation-highlights)
1748+
(-when-let (error-win (get-buffer-window cider-error-buffer))
1749+
(quit-window nil error-win))
17461750
(cider-request:load-file (cider-file-string filename)
17471751
(funcall cider-to-nrepl-filename-function (cider--server-filename filename))
17481752
(file-name-nondirectory filename))

0 commit comments

Comments
 (0)