From 2ea6d9d90e72e26e00ebe84785064f237dfaf0ee Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Sat, 13 Nov 2010 02:07:19 +0100 Subject: Superior schemes Inferior schemes weren't really a good idea, were they? With remote connections one can launch an external scheme to debug Geiser anyway. And everything is (ahem, will be) simpler when we add new implementations. --- elisp/geiser-guile.el | 17 +++-------------- 1 file changed, 3 insertions(+), 14 deletions(-) (limited to 'elisp/geiser-guile.el') diff --git a/elisp/geiser-guile.el b/elisp/geiser-guile.el index 687bf34..a53395d 100644 --- a/elisp/geiser-guile.el +++ b/elisp/geiser-guile.el @@ -262,18 +262,9 @@ it spawn a server thread." `((,geiser-guile--path-rx 1 compilation-error-face))) (when remote - (geiser-repl--send-silent (geiser-guile--load-path-string)) - (geiser-repl--send-silent ",use (geiser emacs)")) - (geiser-guile-update-warning-level) - ) - -(defun geiser-guile--init-server-command () - (comint-kill-region (point-min) (point-max)) - (setq comint-prompt-regexp "inferior-guile> ") - (comint-send-string nil ",option prompt \"inferior-guile> \"\n") - (comint-send-string nil ",use (geiser emacs)\n") - (geiser-inf--wait-for-prompt 10000) - ",geiser-start-server") + (geiser-repl--send-silent (geiser-guile--load-path-string))) + (geiser-repl--send-silent ",use (geiser emacs)") + (geiser-guile-update-warning-level)) ;;; Implementation definition: @@ -283,8 +274,6 @@ it spawn a server thread." (arglist geiser-guile--parameters) (repl-startup geiser-guile--startup) (prompt-regexp geiser-guile--prompt-regexp) - (inferior-prompt-regexp geiser-guile--prompt-regexp) - (init-server-command geiser-guile--init-server-command) (debugger-prompt-regexp geiser-guile--debugger-prompt-regexp) (enter-debugger geiser-guile--enter-debugger) (marshall-procedure geiser-guile--geiser-procedure) -- cgit v1.2.3