Make MERGE-LINES actually use the scrolling work it set up

This commit is contained in:
John Lorentzson 2025-07-31 14:39:49 +02:00
parent fec79106d2
commit d7643b63c8

View file

@ -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))))