(notepad) Catch space left in note reliably

2023-04-27 11:29:11 -07:00 · 2023-04-27 11:29:11 -07:00 · baa9db4122
parent 8e68ba904a
commit baa9db4122
1 changed files with 2 additions and 3 deletions
--- a/gui/notepad/notepad.tal
+++ b/gui/notepad/notepad.tal
@ -163,10 +163,9 @@ BRK

@insert ( char -- )

-	( space ok ) 
-	#fff0 get-eof SUB2 ORA ?&valid
+	.selection/from LDZ2 scap get-page #1000 ADD2 LTH2 ?&has-space
 		POP JMP2r
-		&valid
+		&has-space

 	( convert linebreaks )
 	DUP #0d EQU #03 MUL SUB