amend problem with TextWindow.getStartLineBefore, where we were not following rule mentioned in previous commits to not count (graphical-chr -> \n) as line break

fcore/app-update.sml

@@ -262,34 +262,34 @@ struct
          let
           (* delete char at cursor and then decrement cursorIdx by 1
            * if cursorIdx is not 0 *)
-           val newBuffer = LineGap.delete (cursorIdx, 1, buffer)
+           val buffer = LineGap.delete (cursorIdx, 1, buffer)
            val cursorIdx = 
-             if Cursor.isPrevChrStartOfLine (newBuffer, cursorIdx)
+             if Cursor.isPrevChrStartOfLine (buffer, cursorIdx)
              orelse cursorIdx = 0 then
                cursorIdx
              else cursorIdx - 1
 
-           val newBuffer = LineGap.goToLine (startLine, newBuffer)
+           val buffer = LineGap.goToLine (startLine, buffer)
            val newApp = AppWith.bufferAndCursorIdx
-             (app, newBuffer, cursorIdx, NORMAL_MODE "", startLine)
+             (app, buffer, cursorIdx, NORMAL_MODE "", startLine)
 
            val drawMsg = 
              TextBuilder.build
-               (startLine, cursorIdx, newBuffer, windowWidth, windowHeight)
+               (startLine, cursorIdx, buffer, windowWidth, windowHeight)
          in
            (newApp, drawMsg)
          end
       else
         let
-          val newBuffer = LineGap.delete (cursorIdx, 1, buffer)
+          val buffer = LineGap.delete (cursorIdx, 1, buffer)
 
-          val newBuffer = LineGap.goToLine (startLine, newBuffer)
+          val buffer = LineGap.goToLine (startLine, buffer)
           val newApp = AppWith.bufferAndCursorIdx
-            (app, newBuffer, cursorIdx, NORMAL_MODE "", startLine)
+            (app, buffer, cursorIdx, NORMAL_MODE "", startLine)
 
           val drawMsg = 
             TextBuilder.build
-              (startLine, cursorIdx, newBuffer, windowWidth, windowHeight)
+              (startLine, cursorIdx, buffer, windowWidth, windowHeight)
       in
         (newApp, drawMsg)
       end

fcore/text-window.sml

@@ -19,24 +19,25 @@ struct
             (String.size hd - 1, hd, lineNum, absIdx, cursorIdx, tl)
       | [] =>
           0
+    else
+      if absIdx <= cursorIdx then
+        lineNum
       else
         let
           val chr = String.sub (shd, sIdx)
         in
           if chr = #"\n" then
-          if absIdx <> cursorIdx then
+            if isPrevChrLn (shd, sIdx, stl) then
+              (* \n -> \n *)
               getStartLineBefore
                 (sIdx - 1, shd, lineNum - 1, absIdx - 1, cursorIdx, stl)
             else
-            (* we have found cursor, and it is at \n *)
+              (* graphical-chr -> \n *)
-            lineNum - 1
-        else
-          if absIdx <> cursorIdx then
               getStartLineBefore
                 (sIdx - 1, shd, lineNum, absIdx - 1, cursorIdx, stl)
           else
-            (* we have found cursor; return line *)
+            getStartLineBefore
-            lineNum - 1
+              (sIdx - 1, shd, lineNum, absIdx - 1, cursorIdx, stl)
       end
 
   fun getStartLineAfter