misc change for darwin

emacs.el

@@ -128,7 +128,7 @@ otherwise the path where the library installed."
             (kill-buffer "*scratch*")))
 
 ;; modifier keys
-(setq mac-option-modifier 'control)
+;; (setq mac-option-modifier 'control)
 (setq w32-apps-modifier 'meta)
 
 ;; display
@@ -300,9 +300,11 @@ drill-instructor.el"
 
 ;; (set-face-background 'vertical-border (face-foreground 'mode-line))
 
-(when (eq system-type 'Darwin)
-  (mac-set-input-method-parameter 'japanese 'cursor-color "red")
-  (mac-set-input-method-parameter 'roman 'cursor-color "black"))
+(and (or (eq system-type 'Darwin)
+         (eq system-type 'darwin))
+     (fboundp 'mac-set-input-method-parameter)
+     (mac-set-input-method-parameter 'japanese 'cursor-color "red")
+     (mac-set-input-method-parameter 'roman 'cursor-color "black"))
 
 (when (and (boundp 'input-method-activate-hook) ; i dont know this is correct
            (boundp 'input-method-inactivate-hook))