diff options
| author | jao <jao@gnu.org> | 2021-12-18 01:41:35 +0000 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2021-12-18 21:06:45 +0000 |
| commit | a789a6c3132d096ac41094a81c3a2638b7a1b6fd (patch) | |
| tree | 83dcf9f5fc6aa84d72777d195bc4002e62b99ebd /elisp/geiser-repl.el | |
| parent | d857699d8cf2a4cdddf1dde58cb3f433d285d97e (diff) | |
| download | geiser-a789a6c3132d096ac41094a81c3a2638b7a1b6fd.tar.gz geiser-a789a6c3132d096ac41094a81c3a2638b7a1b6fd.tar.bz2 | |
Allowing debuggers to use Dbg buffer for output
Diffstat (limited to 'elisp/geiser-repl.el')
| -rw-r--r-- | elisp/geiser-repl.el | 6 |
1 files changed, 2 insertions, 4 deletions
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." |