-- | Forces an extra newline into the region (if one exists)
modifyExtendedLRegion :: Region -> (R.YiString -> R.YiString) -> BufferM ()
modifyExtendedLRegion region transform = do
    reg <- unitWiseRegion Line region
    modifyRegionB transform (fixR reg)
  where fixR reg = mkRegion (regionStart reg) $ regionEnd reg + 1
modifyExtendedLRegion :: Region -> (R.YiString -> R.YiString) -> BufferM ()
modifyExtendedLRegion region transform = do
    reg <- unitWiseRegion Line region
    modifyRegionB transform (fixR reg)
  where fixR reg = mkRegion (regionStart reg) $ regionEnd reg + 1
modifyExtendedLRegion region transform = do
    reg <- unitWiseRegion Line region
    modifyRegionB transform (fixR reg)
  where fixR reg = mkRegion (regionStart reg) $ regionEnd reg + 1