Mercurial > emacs
comparison lisp/language/japanese.el @ 17841:084d922fcd78
Coding system names changed as follows:
internal -> emacs-mule, automatic-conversion -> undecided.
Coding category name changes as follows:
coding-category-internal -> coding-category-emacs-mule.
Delete functions describe-LANGUAGE-support.
Delete describe-function entries and change documentation
entries in each language specific information.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Fri, 16 May 1997 00:59:09 +0000 |
| parents | 37ae0c18bd47 |
| children | 73869115ae0a |
comparison
equal
deleted
inserted
replaced
| 17840:2517414676ed | 17841:084d922fcd78 |
|---|---|
| 68 '(coding-category-iso-7 | 68 '(coding-category-iso-7 |
| 69 coding-category-iso-8-2 | 69 coding-category-iso-8-2 |
| 70 coding-category-sjis | 70 coding-category-sjis |
| 71 coding-category-iso-8-1 | 71 coding-category-iso-8-1 |
| 72 coding-category-iso-else | 72 coding-category-iso-else |
| 73 coding-category-internal)) | 73 coding-category-emacs-mule)) |
| 74 | 74 |
| 75 (if (eq system-type 'ms-dos) | 75 (if (eq system-type 'ms-dos) |
| 76 (progn | 76 (progn |
| 77 (setq-default buffer-file-coding-system 'sjis) | 77 (setq-default buffer-file-coding-system 'sjis) |
| 78 (set-terminal-coding-system 'sjis) | 78 (set-terminal-coding-system 'sjis) |
| 86 | 86 |
| 87 (setq sendmail-coding-system 'iso-2022-jp | 87 (setq sendmail-coding-system 'iso-2022-jp |
| 88 rmail-file-coding-system 'iso-2022-jp) | 88 rmail-file-coding-system 'iso-2022-jp) |
| 89 ) | 89 ) |
| 90 | 90 |
| 91 (defun describe-japanese-support () | |
| 92 "Describe how Emacs supports Japanese." | |
| 93 (interactive) | |
| 94 (describe-language-support-internal "Japanese")) | |
| 95 | |
| 96 (set-language-info-alist | 91 (set-language-info-alist |
| 97 "Japanese" '((setup-function . setup-japanese-environment) | 92 "Japanese" '((setup-function . setup-japanese-environment) |
| 98 (describe-function . describe-japanese-support) | |
| 99 (tutorial . "TUTORIAL.jp") | 93 (tutorial . "TUTORIAL.jp") |
| 100 (charset . (japanese-jisx0208 japanese-jisx0208-1978 | 94 (charset . (japanese-jisx0208 japanese-jisx0208-1978 |
| 101 japanese-jisx0212 latin-jisx0201 | 95 japanese-jisx0212 latin-jisx0201 |
| 102 katakana-jisx0201)) | 96 katakana-jisx0201)) |
| 103 (coding-system . (euc-japan-1990 sjis | 97 (coding-system . (euc-japan-1990 sjis |
| 104 iso-2022-jp iso-2022-jp-1978-irv)) | 98 iso-2022-jp iso-2022-jp-1978-irv)) |
| 105 (sample-text . "Japanese ($BF|K\8l(B) $B$3$s$K$A$O(B, (I:]FAJ(B") | 99 (sample-text . "Japanese ($BF|K\8l(B) $B$3$s$K$A$O(B, (I:]FAJ(B") |
| 106 (documentation . nil))) | 100 (documentation . t))) |
| 107 | 101 |
| 108 ;;; japanese.el ends here | 102 ;;; japanese.el ends here |