Make MERGE-LINES actually use the scrolling work it set up
This commit is contained in:
parent
fec79106d2
commit
d7643b63c8
1 changed files with 1 additions and 1 deletions
|
@ -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))))
|
||||
|
|
Loading…
Add table
Reference in a new issue