provide 'cce/japanese-input)
(defun cce/start-japanese ()
(
(interactive)"Japanese")
(set-language-environment "japanese"))
(set-input-method defun cce/stop-japanese ()
(
(interactive)"English")
(set-language-environment nil)) (set-input-method