alx/ueforth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Make Ctrl-P work in addition to Ctrl-S in visual editor.

Browse Source
This commit is contained in:
Brad Nelson
2024-02-24 12:34:12 -08:00
parent 854b3b5d74
commit 65eb318f2c
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
common/visual.fs
View File

@ -132,7 +132,10 @@ start-size value capacity
dup [char] D [char] @ - = if delete exit then dup [char] D [char] @ - = if delete exit then
dup [char] H [char] @ - = over 127 = or if drop backspace exit then dup [char] H [char] @ - = over 127 = or if drop backspace exit then
dup [char] L [char] @ - = if drop update exit then dup [char] L [char] @ - = if drop update exit then
dup [char] S [char] @ - = if drop save update exit then ( Support either Ctrl-S or Ctrl-P )
dup [char] S [char] @ - =
over [char] P [char] @ - = or
if drop save update ." saved" exit then
dup [char] X [char] @ - = if drop quit-edit then dup [char] X [char] @ - = if drop quit-edit then
dup [char] Q [char] @ - = if drop quit-edit then dup [char] Q [char] @ - = if drop quit-edit then
dup 13 = if drop nl insert exit then dup 13 = if drop nl insert exit then