Fix bug: ctrl+a and ctrl+e now update maxCursorX

smj-edison · smj-edison · commit a1e6cb3a3222 · 2025-06-25T14:30:15.000-07:00
diff --git a/virtual-programs/editor-utils.folk b/virtual-programs/editor-utils.folk
@@ -111,11 +111,13 @@ namespace eval ::editor {
       Control_a {
         lassign [cursorToXy $code $cursor] cursorX cursorY
         set newX 0
+        set maxCursorX $newX
         set cursor [xyToCursor $code $newX $cursorY]
       }
       Control_e {
         lassign [cursorToXy $code $cursor] cursorX cursorY
         set newX [getLineLength $code $cursor]
+        set maxCursorX $newX
         set cursor [xyToCursor $code $newX $cursorY]
       }
     }

Original file line number	Diff line number	Diff line change
`@@ -111,11 +111,13 @@ namespace eval ::editor {`
`111`	`111`	`Control_a {`
`112`	`112`	`lassign [cursorToXy $code $cursor] cursorX cursorY`
`113`	`113`	`set newX 0`
	`114`	`+ set maxCursorX $newX`
`114`	`115`	`set cursor [xyToCursor $code $newX $cursorY]`
`115`	`116`	`}`
`116`	`117`	`Control_e {`
`117`	`118`	`lassign [cursorToXy $code $cursor] cursorX cursorY`
`118`	`119`	`set newX [getLineLength $code $cursor]`
	`120`	`+ set maxCursorX $newX`
`119`	`121`	`set cursor [xyToCursor $code $newX $cursorY]`
`120`	`122`	`}`
`121`	`123`	`}`