emacs-lisp source: (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))
(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))
#+ARCOLOGY_ALLOW_CRAWL: t
#+ARCOLOGY_KEY: cce/japanese-input
#+ARROYO_EMACS_MODULE: japanese-input