From: John Benediktsson <mrjbq7@gmail.com>
Date: Tue, 30 Mar 2021 19:24:06 +0000 (-0700)
Subject: ui.gadgets.editors: make readline only on mac for now.
X-Git-Tag: 0.99~2358
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=4b635b1072431a41840c1196fecd83e435f16d1d

ui.gadgets.editors: make readline only on mac for now.

It conflicts on both linux and windows with keybindings like Ctrl-A for
select-all.
---

diff --git a/basis/ui/gadgets/editors/editors.factor b/basis/ui/gadgets/editors/editors.factor
index 9bdc25b529..d777924b50 100644
--- a/basis/ui/gadgets/editors/editors.factor
+++ b/basis/ui/gadgets/editors/editors.factor
@@ -440,7 +440,6 @@ editor "editing" f {
 } os macosx? [ {
     { T{ key-down f { C+ } "DELETE" } delete-next-character }
     { T{ key-down f { C+ } "BACKSPACE" } delete-previous-character }
-} append ] when os unix? [ {
     ! { T{ key-down f { C+ } "t" } transpose-character }
     { T{ key-down f { C+ } "d" } delete-next-character }
     { T{ key-down f { C+ } "h" } delete-previous-character }
@@ -506,7 +505,6 @@ editor "caret-motion" f {
     ! { T{ key-down f { M+ } "DOWN" } end-of-paragraph }
     { T{ key-down f { M+ } "HOME" } start-of-document }
     { T{ key-down f { M+ } "END" } end-of-document }
-} append ] when os unix? [ {
     { T{ key-down f { C+ } "b" } previous-character }
     { T{ key-down f { C+ } "f" } next-character }
     { T{ key-down f { C+ } "a" } start-of-line }