From 2d6f41685be7591137a47f22937969cc2b607c9a Mon Sep 17 00:00:00 2001 From: jao Date: Tue, 30 Nov 2021 02:02:01 +0000 Subject: Better handling of REPL's output regions FSVO better, but at least the code is cleaner and prompts regexps more accurate. --- elisp/geiser-connection.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'elisp/geiser-connection.el') 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 -- cgit v1.2.3