6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2025-02-15 13:33:41 +00:00
Code Issues Projects Releases Wiki Activity

simplify indent/undent code

Browse Source
This commit is contained in:
David Schmenk 2019-12-17 08:11:07 -08:00
parent f937e8265e
commit 3ce76f7308
1 changed files with 11 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
src/toolsrc/ed.pla
View File

@ -1438,30 +1438,24 @@ def editmode#0
is keytab
if flags & insmode
indentsel
else
undentsel
fin
if not (flags & selection)
cursoff
if not ^(txtlinbuf=>[cursrow])
curshpos((curscol + 2) & $FE)
if not ^(txtlinbuf=>[cursrow])
curshpos((curscol + 2) & $FE)
else
autoindent(txtlinbuf=>[cursrow])
fin
fin
curson
break
fin
break
is keydetab
is keydetab
undentsel
if not (flags & selection)
cursoff
if not ^(txtlinbuf=>[cursrow])
curshpos((curscol - 2) & $FFFE)
else
autoindent(txtlinbuf=>[cursrow])
fin
curson
cursoff
if not ^(txtlinbuf=>[cursrow])
curshpos((curscol - 2) & $FFFE)
else
autoindent(txtlinbuf=>[cursrow])
fin
curson
break
is keyctrly
flags = flags ^ insmode