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

added control-j

Browse Source 
svn: r10608
This commit is contained in:
Robby Findler 2008-07-05 01:52:15 +00:00
parent 601a590aa5
commit 8acf5f7bed
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -948,6 +948,11 @@
(send text lock #t)
#t)]
[newline
(λ (text event)
(send text insert "\n")
#t)]
[TeX-compress
(let* ([biggest (apply max (map (λ (x) (string-length (car x))) tex-shortcut-table))])
(λ (text event)
@ -985,7 +990,7 @@
(string->list (string-append greek-letters Greek-letters)))
(add "TeX compress" TeX-compress)
(add "newline" newline)
(add "down-into-embedded-editor" down-into-embedded-editor)
(add "up-out-of-embedded-editor" up-out-of-embedded-editor)
(add "forward-to-next-embedded-editor" forward-to-next-embedded-editor)
@ -1082,6 +1087,8 @@
(map "~m:c:\\" "TeX compress")
(map "~c:m:\\" "TeX compress")
(map "c:j" "newline")
(map-meta "c:down" "down-into-embedded-editor")
(map "a:c:down" "down-into-embedded-editor")
(map-meta "c:up" "up-out-of-embedded-editor")