From 830a0036f43341b2c5e1451ef1d7ed09b70768ec Mon Sep 17 00:00:00 2001 From: jao Date: Thu, 23 Jun 2011 00:32:27 +0200 Subject: Avoid (read) breakage (fixes #33090) Autodoc was firing while the REPL was waiting for input of a (read) call, causing all kinds of misbehaviour. We now inhibit autodoc on sending a form for evaluation and re-inhibit it once a prompt is read back again. --- elisp/geiser-repl.el | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) (limited to 'elisp/geiser-repl.el') diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el index 74a1207..5027c28 100644 --- a/elisp/geiser-repl.el +++ b/elisp/geiser-repl.el @@ -253,8 +253,10 @@ module command as a string") (geiser-repl--host) (geiser-repl--port))))) -(defun geiser-repl--update-debugging (txt) - (geiser-con--connection-update-debugging geiser-repl--connection txt)) +(defun geiser-repl--output-filter (txt) + (geiser-con--connection-update-debugging geiser-repl--connection txt) + (when (geiser-con--connection-eot-p geiser-repl--connection txt) + (geiser-autodoc--disinhibit-autodoc))) (defun geiser-repl--start-repl (impl address) (message "Starting Geiser REPL for %s ..." impl) @@ -281,7 +283,7 @@ module command as a string") (geiser-repl--autodoc-mode 1) (geiser-company--setup geiser-repl-company-p) (add-hook 'comint-output-filter-functions - 'geiser-repl--update-debugging + 'geiser-repl--output-filter nil t) (message "%s up and running!" (geiser-repl--repl-name impl)))) @@ -334,7 +336,8 @@ module command as a string") (setq geiser-eval--default-connection-function 'geiser-repl--connection) (defun geiser-repl--prepare-send () - (geiser-con--connection-deactivate geiser-repl--connection)) + (geiser-con--connection-deactivate geiser-repl--connection) + (geiser-autodoc--inhibit-autodoc)) (defun geiser-repl--send (cmd) (when (and cmd (eq major-mode 'geiser-repl-mode)) -- cgit v1.2.3