Mercurial > emacs
comparison lisp/international/mule-cmds.el @ 55469:df6db683f4f1
Fix last change.
| author | Jason Rumney <jasonr@gnu.org> |
|---|---|
| date | Sun, 09 May 2004 15:39:00 +0000 |
| parents | 9629ef26c137 |
| children | 13758b690c5c b545019c77b0 |
comparison
equal
deleted
inserted
replaced
| 55468:f13a7f45ce0f | 55469:df6db683f4f1 |
|---|---|
| 2413 (prefer-coding-system coding-system) | 2413 (prefer-coding-system coding-system) |
| 2414 (setq locale-coding-system coding-system)))) | 2414 (setq locale-coding-system coding-system)))) |
| 2415 | 2415 |
| 2416 ;; On Windows, override locale-coding-system, keyboard-coding-system, | 2416 ;; On Windows, override locale-coding-system, keyboard-coding-system, |
| 2417 ;; selection-coding-system with system codepage. | 2417 ;; selection-coding-system with system codepage. |
| 2418 (when (boundp w32-ansi-code-page) | 2418 (when (boundp 'w32-ansi-code-page) |
| 2419 (let ((code-page-coding (intern (format "cp%d" w32-ansi-code-page)))) | 2419 (let ((code-page-coding (intern (format "cp%d" w32-ansi-code-page)))) |
| 2420 (when (coding-system-p code-page-coding) | 2420 (when (coding-system-p code-page-coding) |
| 2421 (setq locale-coding-system code-page-coding) | 2421 (setq locale-coding-system code-page-coding) |
| 2422 (set-selection-coding-system code-page-coding) | 2422 (set-selection-coding-system code-page-coding) |
| 2423 (set-keyboard-coding-system code-page-coding) | 2423 (set-keyboard-coding-system code-page-coding) |