From a789a6c3132d096ac41094a81c3a2638b7a1b6fd Mon Sep 17 00:00:00 2001 From: jao Date: Sat, 18 Dec 2021 01:41:35 +0000 Subject: Allowing debuggers to use Dbg buffer for output --- elisp/geiser-repl.el | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) (limited to 'elisp/geiser-repl.el') diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el index e86691e..58fa810 100644 --- a/elisp/geiser-repl.el +++ b/elisp/geiser-repl.el @@ -562,15 +562,13 @@ will be set up using `geiser-connect-local' when a REPL is started.") (defun geiser-repl--connection-buffer (addr) (when addr (get-buffer-create (format " %s <%s>" (buffer-name) addr)))) -(defun geiser-repl--connection-setup (impl address prompt-rx deb-prompt-rx) +(defun geiser-repl--connection-setup (impl address prompt deb-prompt) (let* ((addr (unless address (geiser-repl--connection-address impl))) (buff (or (geiser-repl--connection-buffer addr) (current-buffer)))) (when addr (setq geiser-repl--connection-buffer buff) (geiser-repl--comint-local-connect buff addr)) - (geiser-con--make-connection (get-buffer-process buff) - prompt-rx - deb-prompt-rx))) + (geiser-con--make-connection (get-buffer-process buff) prompt deb-prompt))) (defun geiser-repl--comint-local-connect (buff address) "Connect over a Unix-domain socket." -- cgit v1.2.3