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

bugfix

Browse Source 
svn: r7010
This commit is contained in:
Robby Findler 2007-08-03 07:15:04 +00:00
parent db9963ed69
commit 1af006c246
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -130,8 +130,8 @@
(unless (hash-table-get table keyname (λ () #f)) (unless (hash-table-get table keyname (λ () #f))
(cond (cond
[(and (eq? (system-type) 'windows) [(and (eq? (system-type) 'windows)
(or (regexp-match #rx"a:c" keyname) (or (regexp-match #rx"a:c" (format "~a" keyname))
(regexp-match #rx"c:m" keyname))) (regexp-match #rx"c:m" (format "~a" keyname))))
(void) ;; don't show these keybindigns -- they don't work (void) ;; don't show these keybindigns -- they don't work
] ]
[else [else