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

...

Browse Source 
original commit: f4f839335e9414a71e12e99cc7529165d4aad908
This commit is contained in:
John Clements 2002-12-03 21:50:12 +00:00
parent 69035da91b
commit 6b2a1ae2ce
1 changed files with 18 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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