-- | Mark the current point in the undo list as a saved state.
markSavedB :: UTCTime -> BufferM ()
markSavedB t = do undosA %= setSavedFilePointU
                  assign lastSyncTimeA t
markSavedB :: UTCTime -> BufferM ()
markSavedB t = do undosA %= setSavedFilePointU
                  assign lastSyncTimeA t
markSavedB t = do undosA %= setSavedFilePointU
                  assign lastSyncTimeA t