;; インラインパッチ適応されているかどうか (defvar is_inline-patch (eq (boundp 'mac-input-method-parameters) t)) ;; インラインパッチ適応の場合は次の設定にする(例) (when is_inline-patch (setq default-input-method "MacOSX") (mac-set-input-method-parameter "com.apple.keylayout.US" 'cursor-type 'bar) (mac-set-input-method-parameter "com.apple.inputmethod.Kotoeri.Japanese" 'cursor-type '(hbar . 3)) (mac-set-input-method-parameter "com.apple.inputmethod.Kotoeri.Japanese" 'cursor-color "red") )
とりあえずこんな感じかな