From 70fa3dffb7d81a06cf5bb1b060a5a206487f8924 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sat, 19 Feb 2005 17:28:32 +0000 Subject: [PATCH] . original commit: fd9922adbbc2dc72f936ddf8c0b8af45b9a94c00 --- collects/framework/private/keymap.ss | 48 +++++++++++++--------------- 1 file changed, 23 insertions(+), 25 deletions(-) diff --git a/collects/framework/private/keymap.ss b/collects/framework/private/keymap.ss index bbf81e1d..34634d60 100644 --- a/collects/framework/private/keymap.ss +++ b/collects/framework/private/keymap.ss @@ -1008,21 +1008,19 @@ (map "s:down" "select-down") (map "c:e" "end-of-line") - (map "d:RIGHT" "end-of-line") - (map "m:RIGHT" "end-of-line") - (map "END" "end-of-line") - (map "d:s:RIGHT" "select-to-end-of-line") - (map "m:s:RIGHT" "select-to-end-of-line") - (map "s:END" "select-to-end-of-line") + (map "d:right" "end-of-line") + (map "m:right" "end-of-line") + (map "end" "end-of-line") + (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 "c:a" "beginning-of-line") - (map "d:LEFT" "beginning-of-line") - (map "m:LEFT" "beginning-of-line") - (map "HOME" "beginning-of-line") - (map "d:s:LEFT" "select-to-beginning-of-line") - (map "m:s:LEFT" "select-to-beginning-of-line") - (map "s:HOME" "select-to-beginning-of-line") + (map "d:left" "beginning-of-line") + (map "m:left" "beginning-of-line") + (map "home" "beginning-of-line") + (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 "c:f" "forward-character") @@ -1036,40 +1034,40 @@ (map "s:left" "backward-select") (map-meta "f" "forward-word") - (map "a:RIGHT" "forward-word") - (map "c:RIGHT" "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 "a:s:right" "forward-select-word") + (map "c:s:right" "forward-select-word") (map-meta "b" "backward-word") - (map "a:LEFT" "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 "a:s:left" "backward-select-word") (map "c:s:left" "backward-select-word") (map-meta "<" "beginning-of-file") - (map "d:UP" "beginning-of-file") - (map "c:HOME" "beginning-of-file") + (map "d:up" "beginning-of-file") + (map "c:home" "beginning-of-file") (map "s:c:home" "select-to-beginning-of-file") (map "s:d:up" "select-to-beginning-of-file") (map-meta ">" "end-of-file") - (map "d:DOWN" "end-of-file") + (map "d:down" "end-of-file") (map "c:end" "end-of-file") (map "s:c:end" "select-to-end-of-file") (map "s:d:down" "select-to-end-of-file") (map "c:v" "next-page") - (map "a:DOWN" "next-page") + (map "a:down" "next-page") (map "pagedown" "next-page") - (map "c:DOWN" "next-page") + (map "c:down" "next-page") (map "s:c:v" "select-page-down") - (map "a:s:DOWN" "select-page-down") + (map "a:s:down" "select-page-down") (map "s:pagedown" "select-page-down") - (map "s:c:DOWN" "select-page-down") + (map "s:c:down" "select-page-down") (map-meta "v" "previous-page") (map "a:up" "previous-page")