# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1075783156 0
# Node ID 0a96859927ce4d3fe70ed40d3afac0601f90ec67
# Parent  cdb516af172d9fd45b220f10b29f5e0b1ae8136f
(iso-2022-jp): Exclude japanese-jisx0212.
(japanese-ucs-cp932-to-jis-map): Fix previous change.
(japanese-ucs-jis-to-cp932-map): Likewise.
(iso-2022-jp-2004, euc-jis-2004, japanese-shift-jis-2004): New
coding systems.
(iso-2022-jp-3, euc-jisx0213, shift_jis-2004): New coding system
aliases.
("Japanese"): Add new charsets and coding system.s

diff -r cdb516af172d -r 0a96859927ce lisp/language/japanese.el
--- a/lisp/language/japanese.el	Tue Feb 03 04:34:12 2004 +0000
+++ b/lisp/language/japanese.el	Tue Feb 03 04:39:16 2004 +0000
@@ -41,10 +41,10 @@
   :coding-type 'iso-2022
   :mnemonic ?J
   :designation [(ascii japanese-jisx0208-1978 japanese-jisx0208
-		       latin-jisx0201 japanese-jisx0212)
+		       latin-jisx0201)
 		nil nil nil]
   :flags '(short ascii-at-eol ascii-at-cntl 7-bit designation)
-  :charset-list '(ascii japanese-jisx0208 japanese-jisx0212
+  :charset-list '(ascii japanese-jisx0208
 			japanese-jisx0208-1978 latin-jisx0201)
   :mime-charset 'iso-2022-jp)
 
@@ -78,11 +78,11 @@
 	 (#x00AC . #xFFE2)	; NOT SIGN		FULLWIDTH NOT SIGN
 	 (#x00A6 . #xFFE4)	; BROKEN LINE		FULLWIDTH BROKEN LINE
 	 )))
-  (define-translation-table 'japanese-ucs-cp932-to-jis-map map)
+  (define-translation-table 'japanese-ucs-jis-to-cp932-map map)
   (mapc #'(lambda (x) (let ((tmp (car x)))
 			(setcar x (cdr x)) (setcdr x tmp)))
 	map)
-  (define-translation-table 'japanese-ucs-jis-to-cp932-map map))
+  (define-translation-table 'japanese-ucs-cp932-to-jis-map map))
 
 ;; U+2014 (EM DASH) vs U+2015 (HORIZONTAL BAR)
 (define-translation-table 'japanese-ucs-glibc-to-jis-map '((#x2015 . #x2014)))
@@ -148,16 +148,60 @@
   :decode-translation-table 'eucjp-ms-decode
   :encode-translation-table 'eucjp-ms-encode)
 
+(define-coding-system 'iso-2022-jp-2004
+  "ISO 2022 based 7bit encoding for JIS X 0213:2004 (MIME:ISO-2022-JP-2004)."
+  :coding-type 'iso-2022
+  :mnemonic ?J
+  :designation [(ascii japanese-jisx0208 japanese-jisx0213.2004-1
+		       japanese-jisx0213-1 japanese-jisx0213-2)
+		nil nil nil]
+  :flags '(short ascii-at-eol ascii-at-cntl 7-bit designation)
+		 ;; init-at-bol)
+  :charset-list '(ascii japanese-jisx0208 japanese-jisx0213.2004-1
+			japanese-jisx0213-1 japanese-jisx0213-2)
+  :mime-charset 'iso-2022-jp-2004)
+
+(define-coding-system-alias 'iso-2022-jp-3 'iso-2022-jp-2004)
+
+(define-coding-system 'euc-jis-2004
+  "ISO 2022 based EUC encoding for JIS X 0213 (MIME:EUC-JIS-2004)."
+  :coding-type 'iso-2022
+  :mnemonic ?E
+  :designation [ascii japanese-jisx0213.2004-1 katakana-jisx0201
+                      japanese-jisx0213-2]
+  :flags '(short ascii-at-eol ascii-at-cntl single-shift)
+  :charset-list '(ascii latin-jisx0201 japanese-jisx0213.2004-1
+                        japanese-jisx0213-1 katakana-jisx0201
+                        japanese-jisx0213-2)
+  :mime-charset 'euc-jis-2004)
+
+(define-coding-system-alias 'euc-jisx0213 'euc-jis-2004)
+
+(define-coding-system 'japanese-shift-jis-2004
+  "Shift_JIS 8-bit encodinf for Japanese (MIME:SHIFT_JIS-2004)"
+  :coding-type 'shift-jis
+  :mnemonic ?S
+  :charset-list '(ascii katakana-jisx0201 
+                        japanese-jisx0213.2004-1 japanese-jisx0213-2))
+
+(define-coding-system-alias 'shift_jis-2004 'japanese-shift-jis-2004)
+
 (set-language-info-alist
  "Japanese" '((setup-function . setup-japanese-environment-internal)
 	      (tutorial . "TUTORIAL.ja")
 	      (charset japanese-jisx0208 japanese-jisx0208-1978
 		       japanese-jisx0212 latin-jisx0201 katakana-jisx0201
-		       japanese-jisx0213-1 japanese-jisx0213-2)
+		       japanese-jisx0213.2004-1 japanese-jisx0213-1 
+                       japanese-jisx0213-2)
 	      (coding-system iso-2022-jp japanese-iso-8bit
-			     japanese-shift-jis japanese-iso-7bit-1978-irv)
+			     japanese-shift-jis japanese-iso-7bit-1978-irv
+                             iso-2022-jp-2004 japanese-shift-jis-2004
+                             euc-jis-2004)
 	      (coding-priority iso-2022-jp japanese-iso-8bit
-			       japanese-shift-jis iso-2022-jp-2)
+			       japanese-shift-jis 
+                               iso-2022-jp-2004 euc-jis-2004 
+                               japanese-shift-jis-2004
+                               iso-2022-jp-2)
 	      (input-method . "japanese")
 	      (features japan-util)
 	      (sample-text . "Japanese ($BF|K\8l(B)	$B$3$s$K$A$O(B, (I:]FAJ(B")