diff options
| -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) |