From 582ad7c4e1ca14f163c0aca1443277fd7610c1f5 Mon Sep 17 00:00:00 2001
From: neauoire <aliceffekt@gmail.com>
Date: Thu, 8 Dec 2022 18:28:15 -0800
Subject: [PATCH] Fixed follow cursor issue

---
 src/dexe.tal | 20 +-------------------
 1 file changed, 1 insertion(+), 19 deletions(-)

diff --git a/src/dexe.tal b/src/dexe.tal
index 4e0299d..bf69d90 100644
--- a/src/dexe.tal
+++ b/src/dexe.tal
@@ -103,7 +103,7 @@
 BRK
 
 @manifest
-	05 "File $1
+	05 "Dexe $1
 		01 "n =file-new "New $1
 		01 "r =file-rename "Rename $1
 		01 "o =file-open "Open $1
@@ -454,7 +454,6 @@ JMP2
 	( valid )
 	DUP2k .selection/from STZ2 .selection/to STZ2
 	#00 .selection/nibble STZ
-	;follow-selection JSR2
 	;redraw JSR2
 	&skip
 	POP2
@@ -471,27 +470,10 @@ JMP2r
 	.selection/to LDZ2 .selection/from LDZ2 GTH2 ,&not-before JCN
 		.selection/from LDZ2 .selection/to STZ2
 		&not-before
-	;follow-selection JSR2
 	;redraw ( .. )
 
 JMP2
 
-@follow-selection ( -- )
-
-	.selection/from LDZ2 ;data .selection/scroll LDZ2 #30 SFT2 ADD2 LTH2 ,&up JCN
-	.selection/to LDZ2 ;data [ .frame/rows LDZ2 #30 SFT2 #0001 SUB2 ] ADD2 .selection/scroll LDZ2 #30 SFT2 ADD2 GTH2 ,&down JCN
-	JMP2r
-
-	&up
-		.selection/from LDZ2 #0001 SUB2 
-			;data SUB2 #03 SFT2 ;set-scroll JMP2
-
-	&down
-		.selection/to LDZ2 [ .frame/rows LDZ2 #30 SFT2 ] SUB2 #0008 ADD2 
-			;data SUB2 #03 SFT2 ;set-scroll ( .. )
-
-JMP2
-
 @set-scroll ( scroll* -- )
 
 	DUP2 #40 SFT2 ;data ADD2 .selection/key STZ2
-- 
2.38.5