~rabbits/left

95e09545fbfc0f4afd56e58dd033e3aae1f25a79 — Devine Lu Linvega a month ago 531dafc
Trim space/tab combinations
1 files changed, 6 insertions(+), 4 deletions(-)

M src/left.tal
M src/left.tal => src/left.tal +6 -4
@@ 16,7 16,7 @@
	@cursor
		&x $2 &y $2
	@textarea
		&highlight $1 &lines $2 &length $2 
		&highlight $1 &lines $2 &length $2
	@scrollbar
		&height $2
	@scroll


@@ 367,7 367,7 @@ JMP2r

BRK

( 
(
@|actions )

@scroll-to ( line* -- )


@@ 1212,8 1212,10 @@ JMP2r
	( remove trailing whitespace )
	get-eof ;text
	&l
		LDA2k #200a NEQ2 ?&no-space DUP2 trim &no-space
		LDA2k #090a NEQ2 ?&no-tab DUP2 trim &no-tab
		LDA2k #0920 NEQ2 ?&no-ts INC2k trim &no-ts
		LDA2k #2009 NEQ2 ?&no-st DUP2 trim &no-st
		LDA2k #200a NEQ2 ?&no-s DUP2 trim &no-s
		LDA2k #090a NEQ2 ?&no-t DUP2 trim &no-t
		INC2 GTH2k ?&l
	POP2 POP2
	reset-selection