summaryrefslogtreecommitdiff
path: root/elisp
diff options
context:
space:
mode:
Diffstat (limited to 'elisp')
-rw-r--r--elisp/geiser-connection.el3
-rw-r--r--elisp/geiser-repl.el5
2 files changed, 4 insertions, 4 deletions
diff --git a/elisp/geiser-connection.el b/elisp/geiser-connection.el
index 1068330..d9ffc15 100644
--- a/elisp/geiser-connection.el
+++ b/elisp/geiser-connection.el
@@ -200,7 +200,8 @@
(defun geiser-con--req-form (req answer)
(let ((con (geiser-con--request-connection req)))
- (if (geiser-con--has-entered-debugger con answer)
+ (if (or (geiser-con--connection-is-debugging con)
+ (geiser-con--has-entered-debugger con answer))
`((error (key . geiser-debugger))
(output . ,answer))
(condition-case err
diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el
index 814c501..bb827a5 100644
--- a/elisp/geiser-repl.el
+++ b/elisp/geiser-repl.el
@@ -762,9 +762,8 @@ If SAVE-HISTORY is non-nil, save CMD in the REPL history."
(intxt (and pmark (buffer-substring pmark (point))))
(eob (point-max)))
(when intxt
- (and geiser-repl-forget-old-errors-p
- (not (geiser-repl--is-debugging))
- (compilation-forget-errors))
+ (when geiser-repl-forget-old-errors-p
+ (compilation-forget-errors))
(geiser-repl--prepare-send)
(comint-send-input)
(when (string-match "^\\s-*$" intxt)