fix bad edit in a8473ec1aa

This commit is contained in:
Robby Findler 2013-06-22 18:32:18 -05:00
parent d91b5198ab
commit 314eee0804

View File

@ -1351,7 +1351,7 @@
(λ (kmap)
(let* ([map (λ (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
(regexp-match has-control-regexp key)))]
[add (λ (name func)