Commit 3ce72dae authored by Kenichi Handa's avatar Kenichi Handa

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.
parent 580250aa
......@@ -54,14 +54,13 @@
(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
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment