updated code to handle macosx from system-type

original commit: 0e070a88195f1ab3ffa3d3bd1ee5e881871e2462
This commit is contained in:
Robby Findler 2001-10-29 17:33:33 +00:00
parent 860525b011
commit c245f386ae

View File

@ -1048,7 +1048,7 @@
;(map "c:f" "move-to-search-or-search")
(map "c:i" "toggle-search-focus")]
[(macos)
[(macos macosx)
(map "c:s" "move-to-search-or-search")
(map "c:g" "hide-search")
@ -1105,7 +1105,7 @@
(send kmap map-function
(string-append
(case (system-type)
[(macos) "d:"]
[(macosx macos) "d:"]
[(windows) "c:"]
[(unix) "a:"]
[else (error 'keymap.ss "unknown platform: ~s" (system-type))])