added alt:space for mac os x

svn: r13239
2009-01-20 17:50:56 +00:00 · 2009-01-20 17:50:56 +00:00 · 651057a78f
commit 651057a78f
parent b0f64136bd
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")