diff options
| author | jao <jao@gnu.org> | 2026-07-18 00:45:34 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2026-07-18 00:45:34 +0100 |
| commit | a362ba4ab844e696d0c65fb012ce155457b38ecb (patch) | |
| tree | b3af445c8bb0d8199fbef23804cfa017bc90e0dc | |
| parent | 727347e968fe2e05ffd33992792acf036edef1cd (diff) | |
| download | geiser-a362ba4ab844e696d0c65fb012ce155457b38ecb.tar.gz geiser-a362ba4ab844e696d0c65fb012ce155457b38ecb.tar.bz2 | |
wee refactoring
| -rw-r--r-- | elisp/geiser-repl.el | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el index 1d130e5..6fa1484 100644 --- a/elisp/geiser-repl.el +++ b/elisp/geiser-repl.el @@ -586,13 +586,12 @@ to standard output face." geiser-repl--last-output-end))) (defun geiser-repl--matches-prompt-p (txt) - (cond - ((not (stringp txt)) nil) - ((string-empty-p txt) nil) - (t (or (let ((prompt1 (geiser-con--connection-prompt geiser-repl--connection))) - (and prompt1 (string-match-p prompt1 txt))) - (let ((prompt2 (geiser-con--connection-debug-prompt geiser-repl--connection))) - (and prompt2 (string-match-p prompt2 txt))))))) + (and (stringp txt) + (not (string-empty-p txt)) + (or (let ((p (geiser-con--connection-prompt geiser-repl--connection))) + (and p (string-match-p p txt))) + (let ((p (geiser-con--connection-debug-prompt geiser-repl--connection))) + (and p (string-match-p p txt)))))) (defun geiser-repl--output-filter (txt) (when (geiser-repl--find-output-region) (geiser-repl--treat-output-region)) |