From: tomo <tomo>
Date: Wed, 12 Jan 2000 04:46:59 +0000 (+0000)
Subject: (default-coded-charset-priority-list): Add `japanese-jisx0208-1978',
X-Git-Tag: r21-2-24-utf-2000-0_12-1~4
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f00316883e279340e00b8feb3dd728d83f64b525;p=chise%2Fxemacs-chise.git-

(default-coded-charset-priority-list): Add `japanese-jisx0208-1978',
`mojikyo-pj-[1 .. 21]' and `ideograph-daikanwa' in UTF-2000.
---

diff --git a/lisp/mule/mule-charset.el b/lisp/mule/mule-charset.el
index c056eb4..14f0481 100644
--- a/lisp/mule/mule-charset.el
+++ b/lisp/mule/mule-charset.el
@@ -258,7 +258,6 @@ DESCRIPTION (string) is the description string of the charset."
 (when (featurep 'utf-2000)
   (setq default-coded-charset-priority-list
 	'(ascii
-          ;; latin-iso646-irv
 	  control-1
 	  latin-iso8859-1
 	  latin-iso8859-2
@@ -269,9 +268,8 @@ DESCRIPTION (string) is the description string of the charset."
 	  cyrillic-iso8859-5
 	  greek-iso8859-7
 	  thai-tis620
-          ;; hiragana-jisx0208
-          ;; katakana-jisx0208
 	  japanese-jisx0208
+	  japanese-jisx0208-1978
 	  japanese-jisx0212
 	  chinese-cns11643-1
 	  chinese-cns11643-2
@@ -291,6 +289,28 @@ DESCRIPTION (string) is the description string of the charset."
 	  ethiopic-ucs
 	  ethiopic
 	  ucs-bmp
-	  arabic-iso8859-6)))
+	  arabic-iso8859-6
+	  mojikyo-pj-1
+	  mojikyo-pj-2
+	  mojikyo-pj-3
+	  mojikyo-pj-4
+	  mojikyo-pj-5
+	  mojikyo-pj-6
+	  mojikyo-pj-7
+	  mojikyo-pj-8
+	  mojikyo-pj-9
+	  mojikyo-pj-10
+	  mojikyo-pj-11
+	  mojikyo-pj-12
+	  mojikyo-pj-13
+	  mojikyo-pj-14
+	  mojikyo-pj-15
+	  mojikyo-pj-16
+	  mojikyo-pj-17
+	  mojikyo-pj-18
+	  mojikyo-pj-19
+	  mojikyo-pj-20
+	  mojikyo-pj-21
+	  ideograph-daikanwa)))
 
 ;;; mule-charset.el ends here