emacs中根据系统变量设置字符编码

<

setencoding_emacs

Table of Contents

• 1 set lang in emacs

1  set lang in emacs 

根据系统中的"LANG"变量获取系统中的编码

(defun set-gbk ()
  ;; gbk environment
  ;;(set-language-environment "UTF-8")
  (set-terminal-coding-system 'chinese-iso-8bit)
  (set-keyboard-coding-system 'chinese-iso-8bit)
  (prefer-coding-system 'chinese-iso-8bit)
  (setq default-process-coding-system '(chinese-iso-8bit . chinese-iso-8bit))
)

(defun set-utf8 ()
  (set-terminal-coding-system 'utf-8)
  (set-keyboard-coding-system 'utf-8)
  (set-selection-coding-system 'utf-8)
  (prefer-coding-system 'utf-8)
  (setq default-process-coding-system '(utf-8 . utf-8))
  (setq locale-coding-system 'utf-8)
)

;; Little hack to get proper Windows cyrillic language environment setup
;; out of the box
(defconst +lang+ (getenv "LANG"))

(if (string-match "UTF-8" +lang+)
    (set-utf8)
  (set-gbk))

Date: 2013-04-26 11:50:56 中国标准时间

Validate XHTML 1.0