From: John Benediktsson <mrjbq7@gmail.com>
Date: Sat, 6 Jun 2020 23:19:50 +0000 (-0700)
Subject: Revert "ui.gadgets.editors: make Ctrl-A select-all if at column 0."
X-Git-Tag: 0.99~3193
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=5c04baf75797f94e695cb45d5677b69aaf3473f4

Revert "ui.gadgets.editors: make Ctrl-A select-all if at column 0."

This reverts commit 9287b05d57ee40c4e41f7c9c52a4c8f7ac25d6bc.
---

diff --git a/basis/ui/gadgets/editors/editors.factor b/basis/ui/gadgets/editors/editors.factor
index fa6ecaace7..44b8382886 100644
--- a/basis/ui/gadgets/editors/editors.factor
+++ b/basis/ui/gadgets/editors/editors.factor
@@ -434,8 +434,6 @@ editor "editing" f {
     { T{ key-down f { C+ } "BACKSPACE" } delete-previous-word }
     { T{ key-down f { A+ } "DELETE" } delete-to-end-of-line }
     { T{ key-down f { A+ } "BACKSPACE" } delete-to-start-of-line }
-    { T{ key-down f { C+ } "u" } delete-to-start-of-line }
-    { T{ key-down f { C+ } "k" } delete-to-end-of-line }
 } define-command-map
 
 : com-paste ( editor -- ) clipboard get paste-clipboard ;
@@ -474,12 +472,6 @@ editor "clipboard" f {
 
 : start-of-line ( editor -- ) one-line-elt editor-prev ;
 
-DEFER: select-all
-
-: start-of-line/select-all ( editor -- )
-    dup editor-caret second 0 =
-    [ select-all ] [ start-of-line ] if ;
-
 : end-of-line ( editor -- ) one-line-elt editor-next ;
 
 editor "caret-motion" f {
@@ -492,8 +484,6 @@ editor "caret-motion" f {
     { T{ key-down f { C+ } "RIGHT" } next-word }
     { T{ key-down f f "HOME" } start-of-line }
     { T{ key-down f f "END" } end-of-line }
-    { T{ key-down f { C+ } "a" } start-of-line/select-all }
-    { T{ key-down f { C+ } "e" } end-of-line }
     { T{ key-down f { C+ } "HOME" } start-of-document }
     { T{ key-down f { C+ } "END" } end-of-document }
 } define-command-map
@@ -553,6 +543,10 @@ 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 -- )