diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2016-06-13 01:59:02 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2016-06-13 01:59:02 +0200 |
| commit | 620f0d039afb7450fb7b27ee953129f7597e61ea (patch) | |
| tree | 92449818422656b9a521c0682685372bf9fa1b91 /elisp/geiser-repl.el | |
| parent | a2da78d2d2383ce6a69b10dd2c8cb1e0fb6e7a15 (diff) | |
| download | geiser-guile-620f0d039afb7450fb7b27ee953129f7597e61ea.tar.gz geiser-guile-620f0d039afb7450fb7b27ee953129f7597e61ea.tar.bz2 | |
(end-of-line 0) > (forward-line -1) (end-of-line)
Diffstat (limited to 'elisp/geiser-repl.el')
| -rw-r--r-- | elisp/geiser-repl.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el index 2f8988d..bbf83fa 100644 --- a/elisp/geiser-repl.el +++ b/elisp/geiser-repl.el @@ -863,8 +863,7 @@ With a prefix argument, force exit by killing the scheme process." (defun geiser-repl-previous-prompt (n) (interactive "p") (when (> n 0) - (forward-line -1) - (end-of-line) + (end-of-line 0) (when (re-search-backward comint-prompt-regexp nil 'go n) (goto-char (match-end 0))))) |