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

removed a: as a meta-key mapping for os x

Browse Source 
svn: r4844
This commit is contained in:
Robby Findler 2006-11-13 23:17:13 +00:00
parent f1710324e3
commit 41cac266d6
1 changed files with 2 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -265,13 +265,8 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(define (make-meta-prefix-list key)
(let ([defaults
(list (string-append "m:" key)
(string-append "ESC;" key))])
(if (eq? (system-type) 'macosx)
(cons (string-append "a:" key)
defaults)
defaults)))
(list (string-append "m:" key)
(string-append "ESC;" key)))
(define send-map-function-meta
(λ (keymap key func)