Move coding system config into function

This commit is contained in:
Ivan Malison 2016-06-25 16:37:36 -07:00
parent 487fc391ce
commit b55289f5d4

View File

@ -228,14 +228,16 @@ Ensure by default since most of the package for which I use use-package need to
** Encoding ** Encoding
UTF-8 everywhere UTF-8 everywhere
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(set-language-environment 'utf-8) (defun imalison:set-coding-systems ()
(set-keyboard-coding-system 'utf-8-mac) ; For old Carbon emacs on OS X only (interactive)
(setq locale-coding-system 'utf-8) (set-language-environment "Latin-1")
(set-default-coding-systems 'utf-8) (set-default-coding-systems 'utf-8)
(set-terminal-coding-system 'utf-8)
(unless (eq system-type 'windows-nt) (unless (eq system-type 'windows-nt)
(set-selection-coding-system 'utf-8)) (set-selection-coding-system 'utf-8))
(prefer-coding-system 'utf-8) (set-terminal-coding-system 'utf-8)
(setq locale-coding-system 'utf-8)
(prefer-coding-system 'utf-8))
(imalison:set-coding-systems)
#+END_SRC #+END_SRC
Disable CJK coding/encoding (Chinese/Japanese/Korean characters) Disable CJK coding/encoding (Chinese/Japanese/Korean characters)
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp