From eb3eb6c41feb9f82722bc31bde1607247aa15dd3 Mon Sep 17 00:00:00 2001
From: Humza Shahid <humzasaur@gmail.com>
Date: Sun, 24 Nov 2024 20:32:47 +0000
Subject: [PATCH] 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

---
 fcore/cursor.sml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/fcore/cursor.sml b/fcore/cursor.sml
index 3cc3bbc..071ddc3 100644
--- 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