mirror of
https://github.com/lliding/ld-emacs.git
synced 2025-10-13 05:23:05 +00:00
35 lines
907 B
EmacsLisp
35 lines
907 B
EmacsLisp
;; -*- coding: utf-8; -*-
|
|
;;; Require:
|
|
|
|
;;; Code:
|
|
(set-language-environment 'UTF-8)
|
|
|
|
(set-default-coding-systems 'utf-8)
|
|
(set-buffer-file-coding-system 'utf-8)
|
|
(set-file-name-coding-system 'utf-8)
|
|
(set-keyboard-coding-system 'utf-8)
|
|
(set-next-selection-coding-system 'utf-8)
|
|
(set-terminal-coding-system 'utf-8)
|
|
|
|
(when *win64*
|
|
(set-next-selection-coding-system 'utf-16-le)
|
|
(set-selection-coding-system 'utf-16-le)
|
|
(set-clipboard-coding-system 'utf-16-le))
|
|
|
|
(when (or *linux* *unix* *is-a-mac*)
|
|
(set-clipboard-coding-system 'utf-8)
|
|
(set-selection-coding-system 'utf-8))
|
|
|
|
;; the final one will be selected first
|
|
(prefer-coding-system 'cp950)
|
|
(prefer-coding-system 'gb2312)
|
|
(prefer-coding-system 'cp936)
|
|
(prefer-coding-system 'gb18030)
|
|
(prefer-coding-system 'utf-16)
|
|
(prefer-coding-system 'utf-8-dos)
|
|
(prefer-coding-system 'utf-8-unix)
|
|
|
|
(provide 'init-coding-system)
|
|
|
|
;;; init-coding-system ends here
|