Windows/X shortcuts: specifically require or disallow alt/meta for menu keybinding

svn: r4674

original commit: 3787424b0e15078c2b8018965ee04b8b0fb4aee6
This commit is contained in:
Matthew Flatt 2006-10-23 07:41:48 +00:00
parent 9450d0ec45
commit 5e7eb2a391

View File

@ -282,8 +282,8 @@
[(unix windows) (format "~a~a~a~a~a?:~a"
exact
(if (memq 'shift prefix) "s:" "")
(if (memq 'meta prefix) "m:" "")
(if (memq 'alt prefix) "m:" "")
(if (memq 'meta prefix) "m:" "~m:")
(if (memq 'alt prefix) "m:" "~m:")
(if (memq 'ctl prefix) "c:" "")
base)]
[(macosx) (format "~a~a~a~a~a?:~a"