Mercurial > emacs

comparison lisp/language/japanese.el @ 17769:37ae0c18bd47

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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.
author Kenichi Handa <handa@m17n.org>
date Mon, 12 May 1997 07:00:12 +0000
parents 76d2eb70aa0b
children 084d922fcd78
comparison
equal deleted inserted replaced
17768:93caf447ed72 17769:37ae0c18bd47
53 short ascii-eol ascii-cntl nil nil single-shift)) 53 short ascii-eol ascii-cntl nil nil single-shift))
54 54
55 (define-coding-system-alias 'euc-japan-1990 'euc-japan) 55 (define-coding-system-alias 'euc-japan-1990 'euc-japan)
56 56
57 (register-input-method 57 (register-input-method
58 "Japanese" '("uum" encoded-kbd-select-terminal iso-2022-jp))
59 (register-input-method
60 "Japanese" '("quail-ja-hiragana" quail-use-package "quail/japanese")) 58 "Japanese" '("quail-ja-hiragana" quail-use-package "quail/japanese"))
61 (register-input-method 59 (register-input-method
62 "Japanese" '("quail-ja" quail-use-package "quail/japanese")) 60 "Japanese" '("quail-ja" quail-use-package "quail/japanese"))
63 61
64 (defun setup-japanese-environment () 62 (defun setup-japanese-environment ()
63 "Setup multilingual environment (MULE) for Japanese."
65 (interactive) 64 (interactive)
66 (setq coding-category-iso-8-2 'euc-japan-1990) 65 (setq coding-category-iso-8-2 'euc-japan-1990)
67 66
68 (set-coding-priority 67 (set-coding-priority
69 '(coding-category-iso-7 68 '(coding-category-iso-7
82 (setq-default buffer-file-coding-system 'iso-2022-jp) 81 (setq-default buffer-file-coding-system 'iso-2022-jp)
83 (set-terminal-coding-system 'iso-2022-jp) 82 (set-terminal-coding-system 'iso-2022-jp)
84 (set-keyboard-coding-system 'iso-2022-jp)) 83 (set-keyboard-coding-system 'iso-2022-jp))
85 84
86 (set-default-input-method "Japanese" "quail-ja") 85 (set-default-input-method "Japanese" "quail-ja")
86
87 (setq sendmail-coding-system 'iso-2022-jp
88 rmail-file-coding-system 'iso-2022-jp)
87 ) 89 )
90
91 (defun describe-japanese-support ()
92 "Describe how Emacs supports Japanese."
93 (interactive)
94 (describe-language-support-internal "Japanese"))
88 95
89 (set-language-info-alist 96 (set-language-info-alist
90 "Japanese" '((setup-function . setup-japanese-environment) 97 "Japanese" '((setup-function . setup-japanese-environment)
98 (describe-function . describe-japanese-support)
91 (tutorial . "TUTORIAL.jp") 99 (tutorial . "TUTORIAL.jp")
92 (charset . (japanese-jisx0208 japanese-jisx0208-1978 100 (charset . (japanese-jisx0208 japanese-jisx0208-1978
93 japanese-jisx0212 latin-jisx0201 101 japanese-jisx0212 latin-jisx0201
94 katakana-jisx0201)) 102 katakana-jisx0201))
95 (coding-system . (euc-japan-1990 sjis 103 (coding-system . (euc-japan-1990 sjis
96 iso-2022-jp iso-2022-jp-1978-irv)) 104 iso-2022-jp iso-2022-jp-1978-irv))
97 (documentation . t) 105 (sample-text . "Japanese ($BF|K\8l(B) $B$3$s$K$A$O(B, (I:]FAJ(B")
98 (sample-text . "Japanese ($BF|K\8l(B) $B$3$s$K$A$O(B, (I:]FAJ(B"))) 106 (documentation . nil)))
99 107
100 ;;; japanese.el ends here 108 ;;; japanese.el ends here