From 4ee3f7e7b1b07ed00e9da2cc1effa9a3a0aeda72 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Wed, 12 Apr 2006 19:53:19 +0000 Subject: [PATCH] another little change to [ stuff -- added control-[ control-) control-} and control-] to override drscheme's cleverness svn: r2666 --- collects/framework/private/scheme.ss | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) diff --git a/collects/framework/private/scheme.ss b/collects/framework/private/scheme.ss index 9a789aa9bb..2710b3a0b8 100644 --- a/collects/framework/private/scheme.ss +++ b/collects/framework/private/scheme.ss @@ -1122,7 +1122,18 @@ (add-edit-function "uncomment" (λ (x) (send x uncomment-selection))) (add-edit-function "rewrite-square-paren" - (λ (x) (send x rewrite-square-paren)))) + (λ (x) (send x rewrite-square-paren))) + + (let ([add/map-non-clever + (λ (name keystroke char) + (add-edit-function + name + (λ (e) (send e insert char (send e get-start-position) (send e get-end-position)))) + (send keymap map-function keystroke name))]) + (add/map-non-clever "non-clever-open-square-bracket" "c:[" #\[) + (add/map-non-clever "non-clever-close-square-bracket" "c:]" #\]) + (add/map-non-clever "non-clever-close-curley-bracket" "c:}" #\}) + (add/map-non-clever "non-clever-close-round-paren" "c:)" #\)))) (send keymap add-function "balance-parens" (λ (edit event)