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

fix bad edit in a8473ec1aaa2b623b3ce622e4775ceddfbaecf07

Browse Source 
original commit: 314eee08046700e4748f393faaffc55654f1fd14
This commit is contained in:
Robby Findler 2013-06-22 18:32:18 -05:00
parent 999ccfb215
commit e18a1de431
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pkgs/gui-pkgs/gui-lib/framework/private/keymap.rkt
View File

@ -1351,7 +1351,7 @@
(λ (kmap) (λ (kmap)
(let* ([map (λ (key func) (let* ([map (λ (key func)
(send kmap map-function key func))] (send kmap map-function key func))]
[map-meta (λ (key func mask-control?) [map-meta (λ (key func)
(send-map-function-meta kmap key func (send-map-function-meta kmap key func
(regexp-match has-control-regexp key)))] (regexp-match has-control-regexp key)))]
[add (λ (name func) [add (λ (name func)