03cocoa+04ime+05lang.el

;; CocoaEmacs 対応
(when (eq window-system 'ns)
  (require 'ns-win)

  ;; JISキーボード円記号/バックスラッシュ対応
  (mac-translate-from-yen-to-backslash)

  ;; Option/Command キー を Super/Meta に割当
  (setq ns-command-modifier 'meta)
  (setq ns-alternate-modifier 'super)

  ;; システムへ修飾キーを渡さない設定
  (setq mac-pass-control-to-system nil)
  (setq mac-pass-command-to-system nil)
  (setq mac-pass-option-to-system nil)

  (define-key global-map [ns-drag-file] 'ns-find-file)

  )

;; Cocoa inline_path 対応
(if (featurep 'ns)
    (set-language-info "Japanese" 'input-method "MacOSX"))

;; 日本語環境
(set-language-environment 'Japanese)

(cond
 ;; UTF8サポートありならば、優先してUTF-8を使う
 ((memq 'utf-8 coding-system-list)

  (prefer-coding-system 'utf-8-unix)
  (setenv "LANG" "ja_JP.UTF-8")
  )
 )

;; 常に新規ファイルは utf-8-unix を使いたい
(if (memq 'utf-8 coding-system-list)
    (setq-default buffer-file-coding-system 'utf-8-unix))

;;