Skip printing .mp3

gui/m291/src/m291.tal

@@ -882,18 +882,13 @@
 	[ LIT2 15 -Screen/auto ] DEO
 	.Screen/width DEI2 #0018 SUB2 ,&bound STR2
 	&>w ( -- )
+		LDAk [ LIT ". ] NEQ ?{ INC2k ;dict/mp3-ext scmp3 ?&end }
 		LDAk <draw-glyph>
 		( | trim )
 		.Screen/x DEI2 [ LIT2 &bound $2 ] LTH2 ?{
 			POP2 [ LIT ". ] <draw-glyph>
 			[ LIT ". ] !<draw-glyph> }
-		next-glyph LDAk ?&>w
-	POP2 JMP2r
-
-@next-glyph ( addr* -- addr* )
-	INC2 LDAk
-	( utf8 ) #06 SFT #02 EQU ?next-glyph
-	JMP2r
+		next-glyph LDAk ?&>w &end POP2 JMP2r
 
 @<draw-glyph> ( char -- )
 	DUP #7f LTH ?{
@@ -907,6 +902,11 @@
 	.Screen/x DEO2
 	JMP2r
 
+@next-glyph ( addr* -- addr* )
+	INC2 LDAk
+	( utf8 ) #06 SFT #02 EQU ?next-glyph
+	JMP2r
+
 @<update-cursor> ( color addr* -- )
 	;fill-icn .Screen/addr DEO2
 	#40 <draw-cursor>