From 6b2a1ae2ce7a821b07853ef35b21e634b99958ee Mon Sep 17 00:00:00 2001 From: John Clements Date: Tue, 3 Dec 2002 21:50:12 +0000 Subject: [PATCH] ... original commit: f4f839335e9414a71e12e99cc7529165d4aad908 --- collects/framework/private/keymap.ss | 19 ++++++++++++++++++- 1 file changed, 18 insertions(+), 1 deletion(-) diff --git a/collects/framework/private/keymap.ss b/collects/framework/private/keymap.ss index 3ed4ac89..720ae36e 100644 --- a/collects/framework/private/keymap.ss +++ b/collects/framework/private/keymap.ss @@ -267,6 +267,13 @@ (when pos (send edit flash-on pos (+ 1 pos)))) #t)] + + [make-insert-brace-pair + (lambda (brace-pair-str) ; this string must be two characters long! + (lambda (edit event) + (send edit insert brace-pair-str) + (send edit set-position (max 0 (- (send edit get-start-position) 1)))))] + [collapse-variable-space ;; As per emacs: collapse tabs & spaces around the point, ;; perhaps leaving a single space. @@ -858,7 +865,12 @@ (add "ring-bell" ring-bell) (add "flash-paren-match" flash-paren-match) - + + (add "insert-()-pair" (make-insert-brace-pair "()")) + (add "insert-[]-pair" (make-insert-brace-pair "[]")) + (add "insert-{}-pair" (make-insert-brace-pair "{}")) + (add "insert-\"\"-pair" (make-insert-brace-pair "\"\"")) + (add "toggle-anchor" toggle-anchor) (add "center-view-on-line" center-view-on-line) (add "collapse-space" collapse-space) @@ -922,6 +934,11 @@ (map "]" "flash-paren-match") (map "}" "flash-paren-match") (map "\"" "flash-paren-match") + + (map-meta "(" "insert-()-pair") + (map-meta "[" "insert-[]-pair") + (map-meta "{" "insert-{}-pair") + (map-meta "\"" "insert-\"\"-pair") (map "c:p" "previous-line") (map "up" "previous-line")