1 files changed, 16 insertions(+), 16 deletions(-)

M src/left.tal

@@ 799,7 799,9 @@ JMP2
 @draw-token ( str* -- str* )
 
 	;walk-color JSR2 STH
-	;walk-ul JSR2 ;draw-ufx/ul STA
+	( detect underline )
+	LDAk ;runes ;cfnd JSR2 .textarea/highlight LDZ #00 EQU AND
+		;draw-ufx/ul STA
 	&w
 		,&is-selected JSR STH
 		LDAk STH2kr #0d ROT ROT [ JMP SWP POP ] ;draw-ufx JSR2 POPr


@@ 820,21 822,6 @@ JMP2r
 
 JMP2r
 
-@walk-ul ( addr* -- addr* bool )
-
-	.textarea/highlight LDZ ,&skip JCN
-	,walk-color/c LDR ,&skip JCN
-	LDAk LIT ", EQU ,&pass JCN
-	LDAk LIT ". EQU ,&pass JCN
-	LDAk LIT "- EQU ,&pass JCN
-	LDAk LIT "; EQU ,&pass JCN
-	LDAk LIT "= EQU ,&pass JCN
-	&skip
-	#00
-
-JMP2r
-	&pass #01 JMP2r
-
 @walk-color ( addr* -- addr* color )
 
 	.textarea/highlight LDZ ,&skip JCN


@@ 1231,4 1218,17 @@ JMP2r
 	&bs NIP #00 SWP ;spop JSR2 #00 JMP2r
 	&del NIP #00 SWP ;sclr JSR2 #00 JMP2r
 
+@cfnd ( c str* -- bool )
+
+	ROT ,&c STR
+	&w
+		LDAk [ LIT &c $1 ] EQU ,&t JCN
+		INC2 LDAk ,&w JCN
+	POP2 #00
+
+JMP2r
+	&t POP2 #01 JMP2r
+
+@runes ",.-;= $1
+
 ~src/manifest.tal