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

remove paren flash

Browse Source 
original commit: 94d3126dc4b7c316c2aa0c94a8de3b1fb9d4b57f
This commit is contained in:
Matthew Flatt 2003-12-17 16:34:01 +00:00
parent 3897bb532b
commit 1cd682eeaf
1 changed files with 0 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -287,13 +287,6 @@
#f
bottom-pos)))
#t)]
[flash-paren-match
(lambda (edit event)
(send edit on-default-char event)
(let ([pos (send edit backward-match (send edit get-start-position) 0)])
(when pos
(send edit flash-on pos (+ 1 pos))))
#t)]
[make-insert-brace-pair
(lambda (open-brace close-brace)
@ -907,8 +900,6 @@
(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 "{" "}"))
@ -975,10 +966,6 @@
(map "c:x;c:g" "ring-bell")
(map "c:c;c:g" "ring-bell")
(map ")" "flash-paren-match")
(map "]" "flash-paren-match")
(map "}" "flash-paren-match")
(map-meta "(" "insert-()-pair")
(map-meta "[" "insert-[]-pair")
(map-meta "{" "insert-{}-pair")