Stacken/c64-livecoding
6
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
John Lorentzson 2025-07-31 14:39:49 +02:00
parent fec79106d2
commit d7643b63c8
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
editor/editor.lisp
View file

@ -398,7 +398,7 @@ serial connection the editor normally runs under.")
(scroll-screen-up) (scroll-screen-up)
(set-scrolling-region) (set-scrolling-region)
(unless (null (bottom-line view)) (unless (null (bottom-line view))
(redisplay-view-from-line view (bottom-line view)))) (redisplay-line (bottom-line view))))
(t (t
(get-line-into-view left-line view) (get-line-into-view left-line view)
(redisplay-view-from-line (current-view *editor*) left-line)))) (redisplay-view-from-line (current-view *editor*) left-line))))