From d7643b63c80daf6ae29ee74484d79e5d2aada825 Mon Sep 17 00:00:00 2001
From: John Lorentzson <john_lorentzson@yahoo.com>
Date: Thu, 31 Jul 2025 14:39:49 +0200
Subject: [PATCH] Make MERGE-LINES actually use the scrolling work it set up

---
 editor/editor.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/editor/editor.lisp b/editor/editor.lisp
index be53032..6503fb8 100644
--- a/editor/editor.lisp
+++ b/editor/editor.lisp
@@ -398,7 +398,7 @@ serial connection the editor normally runs under.")
                     (scroll-screen-up)
                     (set-scrolling-region)
                     (unless (null (bottom-line view))
-                      (redisplay-view-from-line view (bottom-line view))))
+                      (redisplay-line (bottom-line view))))
                    (t
                     (get-line-into-view left-line view)
                     (redisplay-view-from-line (current-view *editor*) left-line))))