From e446f3428051efe6d53338cd9e931b8fd80c3061 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Sat, 6 Jun 2020 16:19:51 -0700 Subject: [PATCH] Revert "ui.gadgets.editors: adding Ctrl-u support." This reverts commit 046d128c979988af86808c65568a29a12d1f63d6. --- basis/ui/gadgets/editors/editors.factor | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/basis/ui/gadgets/editors/editors.factor b/basis/ui/gadgets/editors/editors.factor index 44b8382886..84a2be482d 100644 --- a/basis/ui/gadgets/editors/editors.factor +++ b/basis/ui/gadgets/editors/editors.factor @@ -543,10 +543,6 @@ editor "selection" f { { T{ key-down f { S+ } "END" } select-end-of-line } { T{ key-down f { S+ C+ } "HOME" } select-start-of-document } { T{ key-down f { S+ C+ } "END" } select-end-of-document } - { T{ key-down f { C+ } "u" } delete-to-start-of-line } - { T{ key-down f { C+ } "k" } delete-to-end-of-line } - { T{ key-down f { C+ } "a" } start-of-line } - { T{ key-down f { C+ } "e" } end-of-line } } define-command-map : editor-menu ( editor -- ) @@ -658,6 +654,9 @@ multiline-editor "multiline" f { { T{ key-down f { S+ } "RET" } insert-newline } { T{ key-down f f "ENTER" } insert-newline } { T{ key-down f { C+ } "j" } com-join-lines } + { T{ key-down f { C+ } "k" } delete-to-end-of-line } + { T{ key-down f { C+ } "a" } start-of-line } + { T{ key-down f { C+ } "e" } end-of-line } } define-command-map TUPLE: source-editor < multiline-editor ;