diff --git a/gui/notepad/src/notepad.tal b/gui/notepad/src/notepad.tal index f07ea7f..1d2d0a9 100644 --- a/gui/notepad/src/notepad.tal +++ b/gui/notepad/src/notepad.tal @@ -74,9 +74,9 @@ POP ( | key ) DUP #1b NEQ ?{ toggle-sketch POP BRK } - DUP #08 NEQ ?{ .selection/sketch LDZ ?{ erase } + DUP #08 NEQ ?{ .selection/sketch LDZ ?{ erase POP BRK } erase-sketch POP BRK } - DUP #7f NEQ ?{ .selection/sketch LDZ ?{ delete } + DUP #7f NEQ ?{ .selection/sketch LDZ ?{ delete POP BRK } erase-sketch POP BRK } DUP #09 LTH ?{ DUP insert } POP BRK