From 8a6302ea46e742ef746612e8456b065e6faafe87 Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Mon, 13 Jun 2016 01:59:02 +0200
Subject: (end-of-line 0) > (forward-line -1) (end-of-line)

---
 elisp/geiser-repl.el | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'elisp/geiser-repl.el')

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)))))
 
-- 
cgit v1.2.3