Mercurial > emacs

changeset 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 93caf447ed72
children 0d0e69cee17d
files lisp/language/japanese.el
diffstat 1 files changed, 12 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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