w32-ime-mode.el

;;; w32-ime-mode.el --- Yes another initializer for W32-IME

;;; Commentary:

;; Add following code to your init file instead of (w32-ime-initialize):
;;
;;   (require 'w32-ime-mode)
;;   (w32-ime-mode)

;;; Code:

(require 'w32-ime)

(define-minor-mode w32-ime-mode
  "Use Win32 System IME."
  :global t
  (if (and (or (eq system-type 'windows-nt) (eq system-type 'cygwin))
           (eq window-system 'w32)
           (fboundp 'ime-get-mode))
      (cond
       (w32-ime-mode
        (setq default-input-method "W32-IME")
        (setq w32-ime-input-method-title "W32") ; override W32-IME input method title
        (add-hook 'select-window-functions
                  #'w32-ime-select-window-hook)
        (add-hook 'set-selected-window-buffer-functions
                  #'w32-ime-set-selected-window-buffer-hook))
       (t
        (setq default-input-method nil)
        (setq w32-ime-input-method-title nil)
        (remove-hook 'select-window-functions
                     #'w32-ime-select-window-hook)
        (remove-hook 'set-selected-window-buffer-functions
                     #'w32-ime-set-selected-window-buffer-hook)))
    (when (called-interactively-p 'any)
      (message "`w32-ime-mode' only works in Windows GUI"))
    (setq w32-ime-mode nil)))

(provide 'w32-ime-mode)

;;; w32-ime.el ends here