.emacs-my
changeset 1196 fd26eef91bf6
parent 1195 33fd66648b2a
child 1197 998763deda98
child 1203 2d151ab6761d
equal deleted inserted replaced
1195:33fd66648b2a 1196:fd26eef91bf6
   819   (setq selection-coding-system nil)
   819   (setq selection-coding-system nil)
   820   (setq x-select-request-type '(UTF8_STRING COMPOUND_TEXT TEXT STRING))
   820   (setq x-select-request-type '(UTF8_STRING COMPOUND_TEXT TEXT STRING))
   821   (modify-coding-system-alist 'process ".*" 'utf-8-unix)
   821   (modify-coding-system-alist 'process ".*" 'utf-8-unix)
   822   )
   822   )
   823  ((eq system-type 'cygwin)
   823  ((eq system-type 'cygwin)
   824   (when (string-match "1251\\'" (getenv "LANG"))
   824   (when (and (getenv "LANG") (string-match "1251\\'" (getenv "LANG")))
   825     (prefer-coding-system 'cp1251-unix)
   825     (prefer-coding-system 'cp1251-unix)
   826     (prefer-coding-system 'utf-8-unix)
   826     (prefer-coding-system 'utf-8-unix)
   827     (modify-coding-system-alist 'process ".*" 'cp1251-unix)
   827     (modify-coding-system-alist 'process ".*" 'cp1251-unix)
   828     )
   828     )
   829   )
   829   )