diff options
| author | Kenichi Handa <handa@m17n.org> | 1997-05-12 07:00:12 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 1997-05-12 07:00:12 +0000 |
| commit | 3ce72daee18d626d0ba3309476f9536980c3f244 (patch) | |
| tree | 49a9e8a7209b1c2557b289aa67ddac141b0e07bd /lisp/language | |
| parent | 580250aafde5aaec57bba9c71cb06454dc713b5a (diff) | |
| download | emacs-3ce72daee18d626d0ba3309476f9536980c3f244.tar.gz | |
Make functions setup-LANGUAGE-environment
interactive and add new functions describe-LANGUAGE-support for
all LANGUAGEs supported. Remove resisterations of input methods
which use the function encoded-kbd-select-terminal.
(setup-japanese-environemnt): Set
sendmail-coding-system and rmail-file-coding-system to
iso-2022-jp.
Diffstat (limited to 'lisp/language')
| -rw-r--r-- | lisp/language/japanese.el | 16 |
1 files changed, 12 insertions, 4 deletions
diff --git a/lisp/language/japanese.el b/lisp/language/japanese.el index d9aa3b6389e..490ef7998d9 100644 --- a/lisp/language/japanese.el +++ b/lisp/language/japanese.el @@ -55,13 +55,12 @@ (define-coding-system-alias 'euc-japan-1990 'euc-japan) (register-input-method - "Japanese" '("uum" encoded-kbd-select-terminal iso-2022-jp)) -(register-input-method "Japanese" '("quail-ja-hiragana" quail-use-package "quail/japanese")) (register-input-method "Japanese" '("quail-ja" quail-use-package "quail/japanese")) (defun setup-japanese-environment () + "Setup multilingual environment (MULE) for Japanese." (interactive) (setq coding-category-iso-8-2 'euc-japan-1990) @@ -84,17 +83,26 @@ (set-keyboard-coding-system 'iso-2022-jp)) (set-default-input-method "Japanese" "quail-ja") + + (setq sendmail-coding-system 'iso-2022-jp + rmail-file-coding-system 'iso-2022-jp) ) +(defun describe-japanese-support () + "Describe how Emacs supports Japanese." + (interactive) + (describe-language-support-internal "Japanese")) + (set-language-info-alist "Japanese" '((setup-function . setup-japanese-environment) + (describe-function . describe-japanese-support) (tutorial . "TUTORIAL.jp") (charset . (japanese-jisx0208 japanese-jisx0208-1978 japanese-jisx0212 latin-jisx0201 katakana-jisx0201)) (coding-system . (euc-japan-1990 sjis iso-2022-jp iso-2022-jp-1978-irv)) - (documentation . t) - (sample-text . "Japanese ($BF|K\8l(B) $B$3$s$K$A$O(B, (I:]FAJ(B"))) + (sample-text . "Japanese ($BF|K\8l(B) $B$3$s$K$A$O(B, (I:]FAJ(B") + (documentation . nil))) ;;; japanese.el ends here |