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 | |
| parent | 045b61b8681222456b8df6d4d153907a6879eca9 (diff) | |
| download | geiser-9c460224c5159a5dd9c3ada3ad5df265536292cd.tar.gz geiser-9c460224c5159a5dd9c3ada3ad5df265536292cd.tar.bz2 | |
Fix: better handling of recurring debugging entrances
| -rw-r--r-- | elisp/geiser-connection.el | 3 | ||||
| -rw-r--r-- | elisp/geiser-repl.el | 5 |
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) |