From 58ba586834fdf77a58ba61f3dd2f893c86bb94e9 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 6 Nov 2014 09:18:01 -0600 Subject: [PATCH] fix control-paren-keys keybindings for altgr keys original commit: ec6bb1b8c032dedbd65a8a82972bc4c3c0ef0bd5 --- pkgs/gui-pkgs/gui-lib/framework/private/racket.rkt | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/pkgs/gui-pkgs/gui-lib/framework/private/racket.rkt b/pkgs/gui-pkgs/gui-lib/framework/private/racket.rkt index 85a8498f..38662f20 100644 --- a/pkgs/gui-pkgs/gui-lib/framework/private/racket.rkt +++ b/pkgs/gui-pkgs/gui-lib/framework/private/racket.rkt @@ -1497,10 +1497,10 @@ (send e insert closer (+ start 1) (+ start 1))) (send e end-edit-sequence))) (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:)" #\))) + (add/map-non-clever "non-clever-open-square-bracket" "~g:c:[" #\[ #\]) + (add/map-non-clever "non-clever-close-square-bracket" "~g:c:]" #\]) + (add/map-non-clever "non-clever-close-curley-bracket" "~g:c:}" #\}) + (add/map-non-clever "non-clever-close-round-paren" "~g:c:)" #\))) (send keymap add-function "balance-parens" (λ (edit event)