diff options
| author | jao <jao@gnu.org> | 2021-11-30 02:02:01 +0000 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2021-11-30 02:02:01 +0000 |
| commit | 2d6f41685be7591137a47f22937969cc2b607c9a (patch) | |
| tree | ebe5b3de680c633e22f4abd1823b59ff2051dfad /elisp/geiser-connection.el | |
| parent | 61507dd264bec743cdc5843162ebc8779cf6d896 (diff) | |
| download | geiser-2d6f41685be7591137a47f22937969cc2b607c9a.tar.gz geiser-2d6f41685be7591137a47f22937969cc2b607c9a.tar.bz2 | |
Better handling of REPL's output regions
FSVO better, but at least the code is cleaner and prompts regexps more
accurate.
Diffstat (limited to 'elisp/geiser-connection.el')
| -rw-r--r-- | elisp/geiser-connection.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/elisp/geiser-connection.el b/elisp/geiser-connection.el index 9b98373..1068330 100644 --- a/elisp/geiser-connection.el +++ b/elisp/geiser-connection.el @@ -1,6 +1,6 @@ ;;; geiser-connection.el -- talking to a scheme process -;; Copyright (C) 2009, 2010, 2011, 2013 Jose Antonio Ortega Ruiz +;; Copyright (C) 2009, 2010, 2011, 2013, 2021 Jose Antonio Ortega Ruiz ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the Modified BSD License. You should @@ -92,11 +92,11 @@ (tq-queue-pop tq))))))) (defun geiser-con--combined-prompt (prompt debug) - (format "\\(%s%s\\)" prompt (if debug (format "\\|%s" debug) ""))) + (if debug (format "\\(%s\\)\\|\\(%s\\)" prompt debug) prompt)) (defun geiser-con--connection-eot-re (prompt debug) - (geiser-con--combined-prompt (format "\n%s" prompt) - (and debug (format "\n%s" debug)))) + (geiser-con--combined-prompt (format "\n\\(%s\\)" prompt) + (and debug (format "\n\\(%s\\)" debug)))) (defun geiser-con--make-connection (proc prompt debug-prompt) (list t |