From 34102210e188716a0047edd7c87fdee652301f2c Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Thu, 10 Sep 2015 02:08:11 +0200 Subject: Moving implementation loading to geiser-repl (#82) That way we avoid circularities in the load graph, always a good thing. --- elisp/geiser-impl.el | 5 ----- elisp/geiser-repl.el | 7 ++++++- 2 files changed, 6 insertions(+), 6 deletions(-) (limited to 'elisp') diff --git a/elisp/geiser-impl.el b/elisp/geiser-impl.el index ece22b5..aadfef7 100644 --- a/elisp/geiser-impl.el +++ b/elisp/geiser-impl.el @@ -339,8 +339,3 @@ buffer contains Scheme code of the given implementation.") (provide 'geiser-impl) - - -;;; Initialization: -;; After providing 'geiser-impl, so that impls can use us. -(mapc 'geiser-impl--load-impl geiser-active-implementations) diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el index 7518e0b..de57a60 100644 --- a/elisp/geiser-repl.el +++ b/elisp/geiser-repl.el @@ -290,7 +290,7 @@ module command as a string") (marker-position (cdr comint-last-prompt))) ((and (boundp 'comint-last-prompt-overlay) comint-last-prompt-overlay) (overlay-end comint-last-prompt-overlay)) - (t (save-excursion (geiser-repl--bol) (point))))) + (t (save-excursion (geiser-repl--bol) (+ 1 (point)))))) (defun geiser-repl--last-prompt-start () (cond ((and (boundp 'comint-last-prompt) (markerp (car comint-last-prompt))) @@ -854,3 +854,8 @@ With a prefix argument, force exit by killing the scheme process." (provide 'geiser-repl) + + +;;; Initialization: +;; After providing 'geiser-repl, so that impls can use us. +(mapc 'geiser-impl--load-impl geiser-active-implementations) -- cgit v1.2.3