2421 |
(prefer-coding-system coding-system) |
(prefer-coding-system coding-system) |
2422 |
(setq locale-coding-system coding-system)))) |
(setq locale-coding-system coding-system)))) |
2423 |
|
|
2424 |
;; On Windows, override locale-coding-system, keyboard-coding-system, |
;; On Windows, override locale-coding-system, |
2425 |
;; selection-coding-system with system codepage. |
;; keyboard-coding-system with system codepage. Note: |
2426 |
|
;; selection-coding-system is already set in w32select.c. |
2427 |
(when (boundp 'w32-ansi-code-page) |
(when (boundp 'w32-ansi-code-page) |
2428 |
(let ((code-page-coding (intern (format "cp%d" w32-ansi-code-page)))) |
(let ((code-page-coding (intern (format "cp%d" w32-ansi-code-page)))) |
2429 |
(when (coding-system-p code-page-coding) |
(when (coding-system-p code-page-coding) |
2430 |
(setq locale-coding-system code-page-coding) |
(setq locale-coding-system code-page-coding) |
|
(set-selection-coding-system code-page-coding) |
|
2431 |
(set-keyboard-coding-system code-page-coding) |
(set-keyboard-coding-system code-page-coding) |
2432 |
(set-terminal-coding-system code-page-coding)))) |
(set-terminal-coding-system code-page-coding)))) |
2433 |
|
|