[nongnu] elpa/slime e6a71c725c 09/44: slime-repl: reset the output column on new evaluation.

[ELPA Syncer]

branch: elpa/slime
commit e6a71c725c8e13d7d4c40e6a6fa7b696575a8d01
Author: Stas Boukarev <stassats@gmail.com>
Commit: Stas Boukarev <stassats@gmail.com>

    slime-repl: reset the output column on new evaluation.
    Independently from the lisp side.
    
    Reported by kuberlog.
---
 contrib/slime-repl.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/contrib/slime-repl.el b/contrib/slime-repl.el
index d0d48831a9..3bd5c08628 100644
--- a/contrib/slime-repl.el
+++ b/contrib/slime-repl.el
@@ -766,7 +766,10 @@ If NEWLINE is true then add a newline at the end of the 
input."
     (slime-repl-add-to-input-history
      (buffer-substring slime-repl-input-start-mark end))
     (when newline
-      (insert "\n")
+      ;; Reset the output columns independently in case they are out of sync.
+      (terpri (current-buffer) t)
+      (let ((slime-write-string-function (lambda (&rest args) (declare (ignore 
args)))))
+        (slime-eval '(cl:fresh-line (swank::connection.user-output 
swank::*emacs-connection*))))
       (slime-repl-show-maximum-output))
     (let ((inhibit-modification-hooks t))
       (add-text-properties slime-repl-input-start-mark