add just one more 'word' test, extract steps to delete from search list into a reusable function (don't need to memorise the steps), and fix bug in cursor.sml where we were looking at tl without calculating correct strIdx

2024-11-23 05:16:37 +00:00
parent 4a09a5716d
commit 0bfe549e04
3 changed files with 30 additions and 9 deletions
--- a/fcore/cursor.sml
+++ b/fcore/cursor.sml
@@ -1732,7 +1732,8 @@ struct
              (* strIdx is in tl *)
              (case tl of
                tlhd :: tltl =>
-                  helpIsNextChrEndOfLine (strIdx, tlhd, tltl)
+                  helpIsNextChrEndOfLine 
+                    (strIdx - String.size hd, tlhd, tltl)
              | [] =>
                  (* strIdx is at end of lineGap
                   * which also means at end of line *)