;;; mw32-alias.el --- aliases for meadow-ntemacs

;; Author: KOBAYASHI Yasuhiro <kobayays@otsukakj.co.jp>
;; Keywords: w32-ime, meadow-ntemacs, compatibility

;; This file is useful, when you change mw32-* into w32* in .emacs.el.

(when (featurep 'w32-ime)
  (defvaralias 'mw32-ime-buffer-switch-p 'w32-ime-buffer-switch-p
    "If this variable is nil, IME control when buffer is switched is disabled.")

  (defvaralias 'mw32-ime-coding-system-language-environment-alist
    'w32-ime-coding-system-language-environment-alist)

  (defvaralias 'mw32-ime-mode-line-format-original 'w32-ime-mode-line-format-original
    "Original mode line format.")

  (defvaralias 'mw32-ime-mode-line-state-indicator 'w32-ime-mode-line-state-indicator
    "This is shown at the mode line. It is regarded as state of ime.")

  (defvaralias 'mw32-ime-mode-line-state-indicator-list
    'w32-ime-mode-line-state-indicator-list
    "List of IME state indicator string.")

  (defvaralias 'mw32-ime-off-hook 'w32-ime-off-hook
    "Functions to eval when IME is turned off at least.")

  (defvaralias 'mw32-ime-on-hook 'w32-ime-on-hook
    "Functions to eval when IME is turned on at least.")

  (defvaralias 'mw32-ime-show-mode-line 'w32-ime-show-mode-line
    "When t, mode line indicates IME state.")

  (defvaralias 'mw32-ime-toroku-region-yomigana 'w32-ime-toroku-region-yomigana
    "if this variable is string, toroku-region regard this value as yomigana.")

  (defvaralias 'mw32-last-selection 'w32-last-selection
    "It is stored the last data from Emacs.")

  (defalias 'mw32-ime-exit-from-minibuffer 'w32-ime-exit-from-minibuffer)

  (defalias 'mw32-ime-init-mode-line-display 'w32-ime-init-mode-line-display)

  (defalias 'mw32-ime-initialize 'w32-ime-initialize)

  (defalias 'mw32-ime-mode-line-update 'w32-ime-mode-line-update)

  (defalias 'mw32-ime-select-window-hook 'w32-ime-select-window-hook)

  (defalias 'mw32-ime-set-selected-window-buffer-hook
    'w32-ime-set-selected-window-buffer-hook)

  (defalias 'mw32-ime-state-switch 'w32-ime-state-switch)

  (defalias 'mw32-ime-sync-state 'w32-ime-sync-state)

  (defalias 'mw32-ime-toggle 'w32-ime-toggle)

  (defalias 'mw32-ime-toroku-region 'w32-ime-toroku-region)

  (defalias 'mw32-ime-uninitialize 'w32-ime-uninitialize)

  (defalias 'fep-force-on 'ime-force-on)

  (defalias 'fep-force-off 'ime-force-off)

  (defalias 'fep-get-mode 'ime-get-mode))

(when (featurep 'meadow-ntemacs)
  (defvaralias 'w32-ime-buffer-switch-p 'mw32-ime-buffer-switch-p
    "If this variable is nil, IME control when buffer is switched is disabled.")

  (defvaralias 'w32-ime-coding-system-language-environment-alist
    'mw32-ime-coding-system-language-environment-alist)

  (defvaralias 'w32-ime-mode-line-format-original 'mw32-ime-mode-line-format-original
    "Original mode line format.")

  (defvaralias 'w32-ime-mode-line-state-indicator 'mw32-ime-mode-line-state-indicator
    "This is shown at the mode line. It is regarded as state of ime.")

  (defvaralias 'w32-ime-mode-line-state-indicator-list
    'mw32-ime-mode-line-state-indicator-list
    "List of IME state indicator string.")

  (defvaralias 'w32-ime-off-hook 'mw32-ime-off-hook
    "Functions to eval when IME is turned off at least.")

  (defvaralias 'w32-ime-on-hook 'mw32-ime-on-hook
    "Functions to eval when IME is turned on at least.")

  (defvaralias 'w32-ime-show-mode-line 'mw32-ime-show-mode-line
    "When t, mode line indicates IME state.")

  (defvaralias 'w32-ime-toroku-region-yomigana 'mw32-ime-toroku-region-yomigana
    "if this variable is string, toroku-region regard this value as yomigana.")

  (defvaralias 'w32-last-selection 'mw32-last-selection
    "It is stored the last data from Emacs.")

  (defalias 'w32-ime-exit-from-minibuffer 'mw32-ime-exit-from-minibuffer)

  (defalias 'w32-ime-init-mode-line-display 'mw32-ime-init-mode-line-display)

  (defalias 'w32-ime-initialize 'mw32-ime-initialize)

  (defalias 'w32-ime-mode-line-update 'mw32-ime-mode-line-update)

  (defalias 'w32-ime-select-window-hook 'mw32-ime-select-window-hook)

  (defalias 'w32-ime-set-selected-window-buffer-hook
    'mw32-ime-set-selected-window-buffer-hook)

  (defalias 'w32-ime-state-switch 'mw32-ime-state-switch)

  (defalias 'w32-ime-sync-state 'mw32-ime-sync-state)

  (defalias 'w32-ime-toggle 'mw32-ime-toggle)

  (defalias 'w32-ime-toroku-region 'mw32-ime-toroku-region)

  (defalias 'w32-ime-uninitialize 'mw32-ime-uninitialize)

  (defalias 'ime-force-on 'fep-force-on)

  (defalias 'ime-force-off 'fep-force-off)

  (defalias 'ime-get-mode 'fep-get-mode))

(provide 'mw32-alias)