about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorKartik K. Agaram <vc@akkartik.com>2015-08-15 05:55:42 -0700
committerKartik K. Agaram <vc@akkartik.com>2015-08-15 05:55:42 -0700
commitbca93275ca58cafc638615caa3652ee2185c29da (patch)
treec619ef79ff30abfbcb954bda9e8866d7573e2160
parent700100cad440604eff9dc36c017b097ebdd474a5 (diff)
downloadmu-bca93275ca58cafc638615caa3652ee2185c29da.tar.gz
2013
-rw-r--r--edit.mu11
1 files changed, 6 insertions, 5 deletions
diff --git a/edit.mu b/edit.mu
index 19935b95..d54d2cad 100644
--- a/edit.mu
+++ b/edit.mu
@@ -4127,7 +4127,7 @@ recipe render-all [
   #
   current-sandbox:address:editor-data <- get *env, current-sandbox:offset
   sandbox-in-focus?:boolean <- get *env, sandbox-in-focus?:offset
-  update-cursor screen, recipes, current-sandbox, sandbox-in-focus?
+  screen <- update-cursor screen, recipes, current-sandbox, sandbox-in-focus?
   #
   show-screen screen
   reply screen/same-as-ingredient:0
@@ -4206,6 +4206,7 @@ recipe update-cursor [
     cursor-column:number <- get *current-sandbox, cursor-column:offset
   }
   screen <- move-cursor screen, cursor-row, cursor-column
+  reply screen/same-as-ingredient:0
 ]
 
 # ctrl-n - switch focus
@@ -4216,7 +4217,7 @@ after +global-type [
     ctrl-n?:boolean <- equal *c, 14/ctrl-n
     break-unless ctrl-n?
     *sandbox-in-focus? <- not *sandbox-in-focus?
-    update-cursor screen, recipes, current-sandbox, *sandbox-in-focus?
+    screen <- update-cursor screen, recipes, current-sandbox, *sandbox-in-focus?
     loop +next-event:label
   }
 ]
@@ -4443,7 +4444,7 @@ after +global-keypress [
     run-sandboxes env, screen
     # F4 might update warnings and results on both sides
     screen <- render-all screen, env
-    update-cursor screen, recipes, current-sandbox, *sandbox-in-focus?
+    screen <- update-cursor screen, recipes, current-sandbox, *sandbox-in-focus?
     loop +next-event:label
   }
 ]
@@ -5042,7 +5043,7 @@ after +global-touch [
     current-sandbox <- insert-text current-sandbox, text
     hide-screen screen
     screen <- render-sandbox-side screen, env
-    update-cursor screen, recipes, current-sandbox, *sandbox-in-focus?
+    screen <- update-cursor screen, recipes, current-sandbox, *sandbox-in-focus?
     show-screen screen
     loop +next-event:label
   }
@@ -5158,7 +5159,7 @@ after +global-touch [
 #?     trace 10, [app], [delete clicked] #? 1
     hide-screen screen
     screen <- render-sandbox-side screen, env
-    update-cursor screen, recipes, current-sandbox, *sandbox-in-focus?
+    screen <- update-cursor screen, recipes, current-sandbox, *sandbox-in-focus?
     show-screen screen
     loop +next-event:label
   }