scrollToLineAboveWindowB :: BufferM ()
scrollToLineAboveWindowB = do
    downFromTosB 0
    replicateM_ 1 lineUp
    scrollCursorToBottomB

-- Scroll line below window to the top.
scrollToLineAboveWindowB :: BufferM ()
scrollToLineAboveWindowB = do
    downFromTosB 0
    replicateM_ 1 lineUp
    scrollCursorToBottomB

-- Scroll line below window to the top.
scrollToLineAboveWindowB = do
    downFromTosB 0
    replicateM_ 1 lineUp
    scrollCursorToBottomB

-- Scroll line below window to the top.