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

svn: r4674
This commit is contained in:
Matthew Flatt 2006-10-23 07:41:48 +00:00
parent c12683b9d4
commit 3787424b0e

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"