Mercurial > emacs
comparison lisp/language/tibet-util.el @ 20738:f510736ce3d1
In setup-LANGUAGE-environment functions,
call set-language-environment-coding-systems.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Thu, 22 Jan 1998 01:45:51 +0000 |
| parents | 4595a463b105 |
| children | 708271862495 |
comparison
equal
deleted
inserted
replaced
| 20737:df8fab27273f | 20738:f510736ce3d1 |
|---|---|
| 34 | 34 |
| 35 ;;;###autoload | 35 ;;;###autoload |
| 36 (defun setup-tibetan-environment () | 36 (defun setup-tibetan-environment () |
| 37 (interactive) | 37 (interactive) |
| 38 (setup-english-environment) | 38 (setup-english-environment) |
| 39 (setq coding-category-iso-8-2 'tibetan) | 39 (set-language-environment-coding-systems "Tibetan") |
| 40 | |
| 41 (setq-default buffer-file-coding-system 'iso-2022-7bit) | |
| 42 | |
| 43 (setq default-input-method "tibetan-wylie")) | 40 (setq default-input-method "tibetan-wylie")) |
| 44 | 41 |
| 45 ;;; This function makes a transcription string for | 42 ;;; This function makes a transcription string for |
| 46 ;;; re-composing a character. | 43 ;;; re-composing a character. |
| 47 | 44 |