■ Emacs 23

NTEmacsの（IMEインライン化パッチ適用済み）バイナリは、gnupackから、Cocoa Emacsのバイナリは、GNU Emacs for Mac OS Xからダウンロード出来ます。

フォント周りが、Emacs 22から変わっているので、適当にこんな感じに。

(cond ((eq window-system 'ns)
       (create-fontset-from-ascii-font "Monaco-14:weight=normal:slant=normal" nil "monaco")
       (set-fontset-font "fontset-monaco"
                         'unicode
                         (font-spec :family "Hiragino Kaku Gothic ProN" :size 16)
                         nil
                         'append)
       (add-to-list 'default-frame-alist '(font . "fontset-monaco")))
      ((eq window-system 'w32)
       (create-fontset-from-ascii-font "Lucida Console-11:weight=normal:slant=normal" nil "lucida")
       (set-fontset-font "fontset-lucida"
                         'unicode
                         (font-spec :family "Meiryo" :size 16)
                         nil
                         'append)
       (add-to-list 'default-frame-alist '(font . "fontset-lucida"))))

日本語フォントの幅が等幅になっていませんが、あまり日本語を書かないので気にしないことにします。

IME関係はこんな感じ。

(when (fboundp 'w32-ime-initialize)
  (setq default-input-method "W32-IME")
  (setq-default w32-ime-mode-line-state-indicator "[--]")
  (setq w32-ime-mode-line-state-indicator-list '("[--]" "[あ]" "[--]"))
  (w32-ime-initialize)
  (add-hook 'input-method-activate-hook
            (lambda () (set-cursor-color "blue")))
  (add-hook 'input-method-inactivate-hook
            (lambda () (set-cursor-color "black")))
  (add-hook 'minibuffer-setup-hook
            (lambda ()
              (if (ime-get-mode)
                  (set-cursor-color "blue")
                (set-cursor-color "black"))))
  (global-set-key "\C-o" 'toggle-input-method))

インライン変換時のフォントがフレームに設定したフォントに合っていませんが、パッチを眺めたところ、Windowsのウィンドウに設定されたフォントを使うようになっていて、Emacsで設定したフォントは反映されないようです。