added alt:space for mac os x

svn: r13239 original commit: 651057a78faba07af98bcd7e19bbc7f3536f023b
2009-01-20 17:50:56 +00:00 · 2009-01-20 17:50:56 +00:00 · cb96056143
commit cb96056143
parent 6d0d1640f3
1 changed files with 2 additions and 0 deletions
--- a/collects/framework/private/keymap.ss
+++ b/collects/framework/private/keymap.ss
@ -1234,6 +1234,8 @@
          (map "s:insert" "paste-clipboard")
          
          (map-meta "space" "collapse-space")
+          (when (eq? (system-type) 'macosx)
+            (map "a:space" "collapse-space"))
          ;(map-meta "\\" "remove-space") ; Conflicts with european keyboards.
          (map "c:x;c:o" "collapse-newline")
          (map "c:o" "open-line")