diff options
| author | Valentin Herrmann <me@valentin-herrmann.de> | 2023-11-11 12:49:02 +0100 |
|---|---|---|
| committer | Valentin Herrmann <me@valentin-herrmann.de> | 2023-11-11 12:49:02 +0100 |
| commit | 49d12a14482ce9a193c049a5ccdd2fed90b0bdbe (patch) | |
| tree | f9b884e1f68518fa4524f726af3df41c7faba55a | |
| parent | 172376d5cea32925d87f3f7b745c125038135e69 (diff) | |
| download | geiser-49d12a14482ce9a193c049a5ccdd2fed90b0bdbe.tar.gz geiser-49d12a14482ce9a193c049a5ccdd2fed90b0bdbe.tar.bz2 | |
fix: repl: Make whitespace case more precise
| -rw-r--r-- | elisp/geiser-repl.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el index dfdc26b..dbf767a 100644 --- a/elisp/geiser-repl.el +++ b/elisp/geiser-repl.el @@ -934,7 +934,8 @@ paredit." (compilation-forget-errors)) (geiser-repl--prepare-send) (comint-send-input) - (when (string-match "^\\s-*$" intxt) + ;; match if `intxt' is lines of whitespace + (when (string-match "\\`\\(\\s-\\|\n\\)*\\'" intxt) (comint-send-string proc (geiser-eval--scheme-str '(:ge no-values))) (comint-send-string proc "\n"))))) |