Mercurial > emacs
comparison lisp/international/mule-cmds.el @ 44321:abf6fc89e7d7
(standard-keyboard-coding-systems): Add koi8-u and koi8-r.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Mon, 01 Apr 2002 21:13:52 +0000 |
| parents | 93653d31963e |
| children | 86eccd269d36 |
comparison
equal
deleted
inserted
replaced
| 44320:40a69f39b79f | 44321:abf6fc89e7d7 |
|---|---|
| 1402 (setq default-process-coding-system '(undecided . iso-latin-1)) | 1402 (setq default-process-coding-system '(undecided . iso-latin-1)) |
| 1403 | 1403 |
| 1404 ;; Don't alter the terminal and keyboard coding systems here. | 1404 ;; Don't alter the terminal and keyboard coding systems here. |
| 1405 ;; The terminal still supports the same coding system | 1405 ;; The terminal still supports the same coding system |
| 1406 ;; that it supported a minute ago. | 1406 ;; that it supported a minute ago. |
| 1407 ;;; (set-terminal-coding-system-internal nil) | 1407 ;; (set-terminal-coding-system-internal nil) |
| 1408 ;;; (set-keyboard-coding-system-internal nil) | 1408 ;; (set-keyboard-coding-system-internal nil) |
| 1409 | 1409 |
| 1410 (setq nonascii-translation-table nil | 1410 (setq nonascii-translation-table nil |
| 1411 nonascii-insert-offset 0)) | 1411 nonascii-insert-offset 0)) |
| 1412 | 1412 |
| 1413 (reset-language-environment) | 1413 (reset-language-environment) |
| 1894 specifies the coding system to prefer when using that locale.") | 1894 specifies the coding system to prefer when using that locale.") |
| 1895 | 1895 |
| 1896 (defconst standard-keyboard-coding-systems | 1896 (defconst standard-keyboard-coding-systems |
| 1897 (purecopy | 1897 (purecopy |
| 1898 '(iso-latin-1 iso-latin-2 iso-latin-3 iso-latin-4 iso-latin-5 | 1898 '(iso-latin-1 iso-latin-2 iso-latin-3 iso-latin-4 iso-latin-5 |
| 1899 iso-latin-6 iso-latin-7 iso-latin-8 iso-latin-9)) | 1899 iso-latin-6 iso-latin-7 iso-latin-8 iso-latin-9 koi8-u koi8-r)) |
| 1900 "Coding systems that are commonly used for keyboards. | 1900 "Coding systems that are commonly used for keyboards. |
| 1901 `set-locale-environment' will set the `keyboard-coding-system' if the | 1901 `set-locale-environment' will set the `keyboard-coding-system' if the |
| 1902 coding-system specified by the locale setting is a member of this list.") | 1902 coding-system specified by the locale setting is a member of this list.") |
| 1903 | 1903 |
| 1904 (defun locale-name-match (key alist) | 1904 (defun locale-name-match (key alist) |