1 files changed, 29 insertions(+), 26 deletions(-)

M src/left.tal

@@ 85,7 85,7 @@ BRK
 		00 08 =erase "Erase $1
 		00 7f =delete "Delete $1
 		01 09 =edit-select-at "SelectWord $1
-		00 1b =reset-selection "SelectReset $1
+		00 1b =reset-all "SelectReset $1
 		01 "t =edit-trim "Trim $1
 	02 "Go $1
 		01 "/ =go-directory "Directory $1


@@ 433,9 433,36 @@ JMP2r
 
 !select-range
 
+@select-prev-marker ( -- )
+
+	.selection/from LDZ2 get-current-marker #01 SUB
+
+!select-marker
+
+@select-next-marker ( -- )
+
+	.selection/from LDZ2 get-current-marker INC
+
+@select-marker ( id -- )
+
+	get-marker
+		DUP2 ;search slen ADD2
+
+!select-range
+
+@reset-all ( -- )
+
+	#0000 .search STZ2
+
+@reset-selection ( -- )
+
+	.selection/from LDZ2
+
 @select-start ( addr* -- )
 
-	INC2k !select-range
+	INC2k
+
+!select-range
 
 @select-end ( addr* -- )
 


@@ 465,30 492,6 @@ JMP2r
 
 !update-nav
 
-@select-prev-marker ( -- )
-
-	.selection/from LDZ2 get-current-marker #01 SUB
-
-!select-marker
-
-@select-next-marker ( -- )
-
-	.selection/from LDZ2 get-current-marker INC
-
-@select-marker ( id -- )
-
-	get-marker
-		DUP2 ;search slen ADD2
-
-!select-range
-
-@reset-selection ( -- )
-
-	#0000 .search STZ2
-	.selection/from LDZ2
-
-!select-start
-
 @set-selection ( from* to* -- changed )
 
 	( from )