From 423f379920f731f501bb7d523ab65a07dcee3bbf Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 30 Oct 2008 21:43:16 +0000 Subject: [PATCH] fixed up some problems the keybinding rearrangement caused svn: r12184 original commit: f5364c4f46df1a9ef4f709fada7fe3bdad6fb267 --- collects/framework/private/keymap.ss | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/collects/framework/private/keymap.ss b/collects/framework/private/keymap.ss index 24be819c..6f71bb87 100644 --- a/collects/framework/private/keymap.ss +++ b/collects/framework/private/keymap.ss @@ -1142,6 +1142,7 @@ (map "m:s:right" "select-to-end-of-line") (map "s:end" "select-to-end-of-line") (map "s:c:e" "select-to-end-of-line") + (map "s:d:right" "select-to-end-of-line") (map "c:a" "beginning-of-line") (map "d:left" "beginning-of-line") @@ -1150,7 +1151,8 @@ (map "m:s:left" "select-to-beginning-of-line") (map "s:home" "select-to-beginning-of-line") (map "s:c:a" "select-to-beginning-of-line") - + (map "s:d:left" "select-to-beginning-of-line") + (map "c:f" "forward-character") (map "right" "forward-character") (map "s:c:f" "forward-select") @@ -1162,18 +1164,14 @@ (map "s:left" "backward-select") (map-meta "f" "forward-word") - (map "a:right" "forward-word") (map "c:right" "forward-word") (map-meta "s:f" "forward-select-word") - (map "a:s:right" "forward-select-word") (map "c:s:right" "forward-select-word") (map-meta "b" "backward-word") - (map "a:left" "backward-word") (map "c:left" "backward-word") (map-meta "s:b" "backward-select-word") - (map "a:s:left" "backward-select-word") (map "c:s:left" "backward-select-word") (map-meta "<" "beginning-of-file")