LISP | Codetter（こーどったー）

;(provide "minibuffer")
;(in-package "editor")

(export '(*ime-mode-into-minibuffer*))
(defvar *ime-mode-into-minibuffer* nil)

(defun ime-state-get-and-setoff (bef-buffer file-name)
 (interactive)
 (setq *ime-mode-into-minibuffer* (get-ime-mode)
  )
 (toggle-ime nil)
  )

(defun ime-state-set (bef-buffer file-name)
 (interactive)
 (toggle-ime *ime-mode-into-minibuffer*
  )
  )

(add-hook '*enter-minibuffer-hook* 'ime-state-get-and-setoff)
(add-hook '*exit-minibuffer-hook* 'ime-state-set)