diff options
| author | jao <jao@gnu.org> | 2021-12-04 18:09:44 +0000 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2021-12-04 18:09:44 +0000 |
| commit | 9c460224c5159a5dd9c3ada3ad5df265536292cd (patch) | |
| tree | c6af8e2a67b4f9787d379783fa1b668bb85759d3 /elisp/geiser-connection.el | |
| parent | 045b61b8681222456b8df6d4d153907a6879eca9 (diff) | |
| download | geiser-9c460224c5159a5dd9c3ada3ad5df265536292cd.tar.gz geiser-9c460224c5159a5dd9c3ada3ad5df265536292cd.tar.bz2 | |
Fix: better handling of recurring debugging entrances
Diffstat (limited to 'elisp/geiser-connection.el')
| -rw-r--r-- | elisp/geiser-connection.el | 3 |
1 files changed, 2 insertions, 1 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 |