.emacs-my
changeset 769 5ed69391dc95
parent 768 4af9b5e3ac15
child 770 46bae88a2832
equal deleted inserted replaced
768:4af9b5e3ac15 769:5ed69391dc95
   664  ((equal window-system 'x)
   664  ((equal window-system 'x)
   665   (prefer-coding-system 'utf-8-unix)
   665   (prefer-coding-system 'utf-8-unix)
   666   (setq selection-coding-system 'compound-text-with-extensions)
   666   (setq selection-coding-system 'compound-text-with-extensions)
   667   (setq x-select-request-type '(UTF8_STRING COMPOUND_TEXT TEXT STRING))
   667   (setq x-select-request-type '(UTF8_STRING COMPOUND_TEXT TEXT STRING))
   668   (modify-coding-system-alist 'process ".*" 'utf-8-unix)
   668   (modify-coding-system-alist 'process ".*" 'utf-8-unix)
       
   669   )
       
   670  ((eq system-type 'cygwin)
       
   671   (when (string-match "1251\\'" (getenv "LANG"))
       
   672     (prefer-coding-system 'cp1251-unix)
       
   673     (prefer-coding-system 'utf-8-unix)
       
   674     (modify-coding-system-alist 'process ".*" 'cp1251-unix)
       
   675     )
   669   )
   676   )
   670  ((eq system-type 'darwin)
   677  ((eq system-type 'darwin)
   671   nil
   678   nil
   672   )
   679   )
   673  (t
   680  (t