# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 863420412 0
# Node ID 37ae0c18bd4737f21fc427aa5b51550931af5c58
# Parent  93caf447ed7252f2eb50e94b85fe4506720c031a
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.

diff -r 93caf447ed72 -r 37ae0c18bd47 lisp/language/japanese.el
--- a/lisp/language/japanese.el	Mon May 12 07:00:09 1997 +0000
+++ b/lisp/language/japanese.el	Mon May 12 07:00:12 1997 +0000
@@ -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