From 7643ce1197703f6a7cd333674aa52ad9195d07a6 Mon Sep 17 00:00:00 2001 From: John Clements Date: Fri, 13 Aug 2010 10:54:30 -0400 Subject: [PATCH] best guess on what keystrokes will trigger insert-()-pair under windows & unix. original commit: 215c8dc96070890e81193393b2e78265bd1691a6 --- collects/tests/framework/keys.rkt | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/collects/tests/framework/keys.rkt b/collects/tests/framework/keys.rkt index 95253d76..6ba89dec 100644 --- a/collects/tests/framework/keys.rkt +++ b/collects/tests/framework/keys.rkt @@ -192,13 +192,17 @@ (make-buff-spec "bc" 0 0) (list '((#\c control) (#\o control)))) ;; insert-()-pair : - (make-key-spec/allplatforms + (make-key-spec (make-buff-spec "abc" 0 0) (make-buff-spec "()abc" 1 1) + (list '((escape) (#\())) + (list '((#\( meta))) (list '((escape) (#\()))) - (make-key-spec/allplatforms + (make-key-spec (make-buff-spec "abc" 0 2) (make-buff-spec "(ab)c" 1 1) + (list '((escape) (#\())) + (list '((#\( meta))) (list '((escape) (#\()))) ;; toggle-square-round-parens : ; () -> []