From: Kenichi Handa <handa@m17n.org>
Date: Mon, 12 May 1997 07:00:12 +0000 (+0000)
Subject: Make functions setup-LANGUAGE-environment
X-Git-Tag: emacs-20.1~2176
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3ce72daee18d626d0ba3309476f9536980c3f244;p=emacs.git

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 --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
@@ -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