;; .emacs

;; path
(setq load-path (append
		 (list 
		  (expand-file-name "mule-ucs")
		  )
		 load-path))

;; anti aliasing (Quartz-2D)
(setq mac-allow-anti-aliasing t)

;; mule-ucs 2005-07-05
;; http://books.ki.nu/rakuraku/inline-update.html
(utf-translate-cjk-mode 1)

;; lang env
;; http://macwiki.sourceforge.jp/cgi-bin/wiki.cgi?CarbonEmacs%2f日本語環境の設定
;(require 'un-define)
(autoload 'un-define "un-define" "un-define loaded." t)
(set-language-environment 'Japanese)
(set-default-coding-systems 'euc-jp-unix)
(set-buffer-file-coding-system 'euc-jp-unix)
(set-terminal-coding-system 'utf-8) ;; Terminal.appの設定による
(set-keyboard-coding-system 'sjis-mac)
(set-clipboard-coding-system 'sjis-mac)
(set-file-name-coding-system 'utf-8)
;(require 'mac-utf) ;;  ファイル名の濁点・半濁点問題 対策
(autoload 'mac-utf "mac-utf" "mac-utf loaded." t)

;; 入力文字がIMEによって文字化けするので，暫定的に改良．2005-07-05
;; http://lists.sourceforge.jp/mailman/archives/macemacsjp-users/2005-June/000452.html
(add-hook 'mac-im-update-active-input-text-hook
          (lambda (str fix &rest text-properties)
            (if (not (coding-system-equal 
                      'sjis-mac (keyboard-coding-system)))
                (set-keyboard-coding-system 'sjis-mac)))
          t)

;; carbon-font.el
;(if (eq window-system 'mac) (require 'carbon-font))
(if (eq window-system 'mac)
		(autoload 'carbon-font "carbon-font" "carbon-font loaded." t))