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

framework: fix meta keybindings setup

Browse Source 
Don't add "~c:" to a keybinding that has "c:".

original commit: c8de8d3ae8e0aa7fc280fed8262ecf1dfa73926b
This commit is contained in:
Matthew Flatt 2013-06-22 05:46:35 -06:00
parent fff2256bb9
commit c112ceeca7
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -321,7 +321,9 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(define (make-meta-prefix-list key)
(list (string-append "~c:m:" key)
(list (if (regexp-match #rx"(?:^|:)c:" key)
(string-append "m:" key)
(string-append "~c:m:" key))
(string-append "ESC;" key)))
(define send-map-function-meta