bugfix
svn: r7011 original commit: 81136382a0200191360e72c36d28499c42dfcfea
This commit is contained in:
parent
95524eb053
commit
a87d563e65
|
@ -130,8 +130,9 @@
|
|||
(unless (hash-table-get table keyname (λ () #f))
|
||||
(cond
|
||||
[(and (eq? (system-type) 'windows)
|
||||
(or (regexp-match #rx"a:c" (format "~a" keyname))
|
||||
(regexp-match #rx"c:m" (format "~a" keyname))))
|
||||
(let ([cs (canonicalize-keybinding-string (format "~a" keyname))])
|
||||
(or (regexp-match #rx"a:c" cs)
|
||||
(regexp-match #rx"c:m" cs))))
|
||||
(void) ;; don't show these keybindigns -- they don't work
|
||||
]
|
||||
[else
|
||||
|
@ -226,7 +227,7 @@
|
|||
|
||||
(join-strings ":"
|
||||
(filter
|
||||
(λ (x) x)
|
||||
values
|
||||
(list
|
||||
(do-key #\a alt)
|
||||
(do-key #\c control)
|
||||
|
|
Loading…
Reference in New Issue
Block a user