diff options
| author | jao <jao@gnu.org> | 2026-05-10 00:18:46 +0200 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2026-05-10 00:18:46 +0200 |
| commit | 6071202dfec784d53e5e9a6946e9ee06be8e34c6 (patch) | |
| tree | 0e09db39b8dd421edfe1e0cea939b8aed17bfecc /elisp/geiser-repl.el | |
| parent | 06c3db4a053331e3d1fb8642a49c7a9b810cf5cb (diff) | |
| download | geiser-6071202dfec784d53e5e9a6946e9ee06be8e34c6.tar.gz geiser-6071202dfec784d53e5e9a6946e9ee06be8e34c6.tar.bz2 | |
entering debug mode should also unfreeze the repl
this should fix issue #105
Diffstat (limited to 'elisp/geiser-repl.el')
| -rw-r--r-- | elisp/geiser-repl.el | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el index ce638cb..c43b9b2 100644 --- a/elisp/geiser-repl.el +++ b/elisp/geiser-repl.el @@ -585,13 +585,20 @@ to standard output face." (geiser--font-lock-ensure geiser-repl--last-output-start geiser-repl--last-output-end))) +(defun geiser-repl--matches-prompt-p (txt) + (or (string-match-p + (geiser-con--connection-prompt geiser-repl--connection) + txt) + (string-match-p + (geiser-con--connection-debug-prompt geiser-repl--connection) + txt))) + (defun geiser-repl--output-filter (txt) (when (geiser-repl--find-output-region) (geiser-repl--treat-output-region)) (geiser-con--connection-update-debugging geiser-repl--connection txt) (geiser-image--replace-images geiser-repl-inline-images-p geiser-repl-auto-display-images-p) - (when (string-match-p (geiser-con--connection-prompt geiser-repl--connection) - txt) + (when (geiser-repl--matches-prompt-p txt) (geiser-con--connection-activate geiser-repl--connection) (geiser-autodoc--disinhibit-autodoc))) |