Reduce redraws on selection

2024-05-28 19:09:23 -07:00 · 2024-05-28 19:09:23 -07:00 · 8bd0574d5e
parent d9ba2b6379
commit 8bd0574d5e
1 changed files with 2 additions and 1 deletions
--- a/gui/notepad/src/notepad.tal
+++ b/gui/notepad/src/notepad.tal
@ -171,7 +171,8 @@
 	!select

@<select-to> ( addr* -- )
-	clamp-selection .selection/b STZ2
+	clamp-selection DUP2 .selection/b LDZ2 NEQ2 ?{ POP2 JMP2r }
+	.selection/b STZ2
 	!select

@<select-word> ( addr* -- )