diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2015-09-10 02:08:11 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2015-09-10 02:08:11 +0200 |
| commit | 34102210e188716a0047edd7c87fdee652301f2c (patch) | |
| tree | 9911f95584cc84a366580a76aca6b23fa405a5bd | |
| parent | ded125032b9e84d942a818b47383674e60e37a00 (diff) | |
| download | geiser-chez-34102210e188716a0047edd7c87fdee652301f2c.tar.gz geiser-chez-34102210e188716a0047edd7c87fdee652301f2c.tar.bz2 | |
Moving implementation loading to geiser-repl (#82)
That way we avoid circularities in the load graph, always a good thing.
| -rw-r--r-- | elisp/geiser-impl.el | 5 | ||||
| -rw-r--r-- | elisp/geiser-repl.el | 7 |
2 files changed, 6 insertions, 6 deletions
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) |