suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

another little change to [ stuff -- added control-[ control-) control-} and control-] to override drscheme's cleverness

Browse Source 
svn: r2666
This commit is contained in:
Robby Findler 2006-04-12 19:53:19 +00:00
parent 0002ea598b
commit 4ee3f7e7b1
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
collects/framework/private/scheme.ss
View File

@ -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)