branch: elpa/geiser
commit e9743982bac463c992440787e2c9e0b187f38892
Author: jao <[email protected]>
Commit: jao <[email protected]>
a better refactoring
---
elisp/geiser-repl.el | 13 ++++++++-----
1 file changed, 8 insertions(+), 5 deletions(-)
diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el
index 6fa1484c71..08941baeeb 100644
--- a/elisp/geiser-repl.el
+++ b/elisp/geiser-repl.el
@@ -585,13 +585,16 @@ to standard output face."
(geiser--font-lock-ensure geiser-repl--last-output-start
geiser-repl--last-output-end)))
+(defun geiser-repl--prompt-rx ()
+ (or (geiser-con--connection-prompt geiser-repl--connection) "\\b\\B"))
+
+(defun geiser-repl--debug-prompt-rx ()
+ (or (geiser-con--connection-debug-prompt geiser-repl--connection) "\\b\\B"))
+
(defun geiser-repl--matches-prompt-p (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))))))
+ (or (string-match-p (geiser-repl--prompt-rx) txt)
+ (string-match-p (geiser-repl--debug-prompt-rx) txt))))
(defun geiser-repl--output-filter (txt)
(when (geiser-repl--find-output-region) (geiser-repl--treat-output-region))
