From 8bd0574d5ea1ea516a401e4f039321982b5187ed Mon Sep 17 00:00:00 2001
From: Devine Lu Linvega <aliceffekt@gmail.com>
Date: Tue, 28 May 2024 19:09:23 -0700
Subject: [PATCH] Reduce redraws on selection

---
 gui/notepad/src/notepad.tal | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/gui/notepad/src/notepad.tal b/gui/notepad/src/notepad.tal
index de59772..6a83aed 100644
--- 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* -- )