Mercurial > emacs
comparison lisp/language/cyril-util.el @ 20737:df8fab27273f
In setup-LANGUAGE-environment functions, adjust for the change of
setup-8-bit-environment.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Thu, 22 Jan 1998 01:45:17 +0000 |
| parents | 3bbf4dd908a5 |
| children | 059cd9afc6e4 |
comparison
equal
deleted
inserted
replaced
| 20736:60bf060b9ab1 | 20737:df8fab27273f |
|---|---|
| 26 ;;;###autoload | 26 ;;;###autoload |
| 27 (defun setup-cyrillic-iso-environment () | 27 (defun setup-cyrillic-iso-environment () |
| 28 "Setup multilingual environment (MULE) for Cyrillic ISO-8859-5 users." | 28 "Setup multilingual environment (MULE) for Cyrillic ISO-8859-5 users." |
| 29 (interactive) | 29 (interactive) |
| 30 (setup-8-bit-environment "Cyrillic-ISO" 'cyrillic-iso8859-5 | 30 (setup-8-bit-environment "Cyrillic-ISO" 'cyrillic-iso8859-5 |
| 31 'cyrillic-iso-8bit "cyrillic-yawerty")) | 31 "cyrillic-yawerty")) |
| 32 | 32 |
| 33 ;;;###autoload | 33 ;;;###autoload |
| 34 (defun setup-cyrillic-koi8-environment () | 34 (defun setup-cyrillic-koi8-environment () |
| 35 "Setup multilingual environment (MULE) for Cyrillic KOI8 users." | 35 "Setup multilingual environment (MULE) for Cyrillic KOI8 users." |
| 36 (interactive) | 36 (interactive) |
| 37 (setup-8-bit-environment "Cyrillic-KOI8" 'cyrillic-iso8859-5 'cyrillic-koi8 | 37 (setup-8-bit-environment "Cyrillic-KOI8" 'cyrillic-iso8859-5 |
| 38 "cyrillic-yawerty")) | 38 "cyrillic-yawerty")) |
| 39 | 39 |
| 40 ;;;###autoload | 40 ;;;###autoload |
| 41 (defun setup-cyrillic-alternativnyj-environment () | 41 (defun setup-cyrillic-alternativnyj-environment () |
| 42 "Setup multilingual environment (MULE) for Cyrillic ALTERNATIVNYJ users." | 42 "Setup multilingual environment (MULE) for Cyrillic ALTERNATIVNYJ users." |
| 43 (interactive) | 43 (interactive) |
| 44 (setup-8-bit-environment "Cyrillic" 'cyrillic-iso8859-5 | 44 (setup-8-bit-environment "Cyrillic-ALT" 'cyrillic-iso8859-5 |
| 45 'cyrillic-alternativnyj "cyrillic-yawerty") | 45 "cyrillic-yawerty") |
| 46 (setq coding-category-raw-text 'cyrillic-alternativnyj)) | 46 (setq coding-category-raw-text 'cyrillic-alternativnyj)) |
| 47 | 47 |
| 48 | 48 |
| 49 ;; Display | 49 ;; Display |
| 50 | 50 |