fix bug in '^' motion: only move cursor if (chr = /home/humza/Downloads/sml/shf/fcore/cursor.sml' '), not if Char.isSpace (which also returns true if chr is newline or tab) is true

2024-11-24 20:32:47 +00:00
parent 98f8313141
commit eb3eb6c41f
1 changed files with 1 additions and 1 deletions
--- a/fcore/cursor.sml
+++ b/fcore/cursor.sml
@@ -1156,7 +1156,7 @@ struct
        let
          val chr = String.sub (str, strPos)
        in
-          if Char.isSpace chr then
+          if chr = #" " then
            helpFirstNonSpaceChr 
              (strPos + 1, str, absIdx + 1, stl, ltl)
          else