From 9c460224c5159a5dd9c3ada3ad5df265536292cd Mon Sep 17 00:00:00 2001 From: jao Date: Sat, 4 Dec 2021 18:09:44 +0000 Subject: Fix: better handling of recurring debugging entrances --- elisp/geiser-connection.el | 3 ++- elisp/geiser-repl.el | 5 ++--- 2 files changed, 4 insertions(+), 4 deletions(-) (limited to 'elisp') 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) -- cgit v1.2.3