419 |
419 |
420 ;; (setq locale-coding-system 'cp1251-dos) |
420 ;; (setq locale-coding-system 'cp1251-dos) |
421 ;; (set-terminal-coding-system 'cp1251) |
421 ;; (set-terminal-coding-system 'cp1251) |
422 ;; (set-keyboard-coding-system 'cp1251) |
422 ;; (set-keyboard-coding-system 'cp1251) |
423 |
423 |
424 (prefer-coding-system 'koi8-r-dos) |
|
425 (prefer-coding-system 'utf-16-le) |
|
426 (prefer-coding-system 'cp866-dos) |
|
427 |
|
428 (modify-coding-system-alist 'file "\\.el" 'iso-2022-7bit) |
424 (modify-coding-system-alist 'file "\\.el" 'iso-2022-7bit) |
429 (cond |
425 (cond |
430 ((equal window-system 'w32) ; also (string-equal system-type "windows-nt") |
426 ((equal window-system 'w32) ; also (string-equal system-type "windows-nt") |
431 (progn |
427 (progn |
432 (set-selection-coding-system 'utf-16-le-dos) |
428 (set-selection-coding-system 'utf-16-le-dos) |
433 (prefer-coding-system 'utf-8-unix) |
429 (setq-default buffer-file-coding-system 'cp1251) |
434 (prefer-coding-system 'cp1251-dos) |
|
435 (setq default-file-name-coding-system 'cp1251) |
430 (setq default-file-name-coding-system 'cp1251) |
|
431 (setq default-process-coding-system '(cp1251 . cp1251)) |
436 )) |
432 )) |
437 ((equal window-system 'x) |
433 ((equal window-system 'x) |
438 (progn |
434 (progn |
439 (prefer-coding-system 'cp1251-dos) |
|
440 (prefer-coding-system 'utf-8-unix) |
435 (prefer-coding-system 'utf-8-unix) |
441 (setq selection-coding-system 'compound-text-with-extensions) |
436 (setq selection-coding-system 'compound-text-with-extensions) |
442 (setq x-select-request-type '(UTF8_STRING COMPOUND_TEXT TEXT STRING)) |
437 (setq x-select-request-type '(UTF8_STRING COMPOUND_TEXT TEXT STRING)) |
443 (modify-coding-system-alist 'process ".*" 'utf-8-unix) |
438 (modify-coding-system-alist 'process ".*" 'utf-8-unix) |
444 )) |
439 )) |