Skip to content

Instantly share code, notes, and snippets.

@gom

gom/set_lang.el

Created November 15, 2010 08:04
Show Gist options
  • Save gom/700148 to your computer and use it in GitHub Desktop.
Save gom/700148 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
set_lang.el
;; set language environment
(defun setlang (type)
"Set Language Environment"
(interactive "MLang type: ")
(let ((langtype (cond ((string= type "utf-8") 'utf-8-unix)
((string= type "euc") 'euc-jp-unix))))
(prefer-coding-system langtype)
(set-terminal-coding-system langtype)
(set-keyboard-coding-system 'utf-8-unix)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment