From 6071202dfec784d53e5e9a6946e9ee06be8e34c6 Mon Sep 17 00:00:00 2001 From: jao Date: Sun, 10 May 2026 00:18:46 +0200 Subject: entering debug mode should also unfreeze the repl this should fix issue #105 --- elisp/geiser-repl.el | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) (limited to 'elisp/geiser-repl.el') 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))) -- cgit v1.2.3