humza/sml-projects
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Humza Shahid
2024-11-24 20:32:47 +00:00
parent 98f8313141
commit eb3eb6c41f
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
fcore/cursor.sml
View File

@@ -1156,7 +1156,7 @@ struct
let let
val chr = String.sub (str, strPos) val chr = String.sub (str, strPos)
in in
if Char.isSpace chr then if chr = #" " then
helpFirstNonSpaceChr helpFirstNonSpaceChr
(strPos + 1, str, absIdx + 1, stl, ltl) (strPos + 1, str, absIdx + 1, stl, ltl)
else else