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 | 542cf24d68a89a5d0929758d3f7bccf2ad03ed9f (patch) | |
| tree | 47616dae6f24b18f7afd38e50369b25df00ce8ac | |
| parent | 8c3753445ca6111bf25a616de6c7b8c5435c3caa (diff) | |
| download | geiser-542cf24d68a89a5d0929758d3f7bccf2ad03ed9f.tar.gz geiser-542cf24d68a89a5d0929758d3f7bccf2ad03ed9f.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) |