The Complete Computing Environment

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