From: tomo <tomo>
Date: Wed, 29 Dec 2004 09:38:30 +0000 (+0000)
Subject: (char-db-coded-charset-priority-list): Use
X-Git-Tag: r21-4-15-chise-0_21-32^2~36
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=089ed852ec10c0af28dc1ec4e5da8a7a30cc140a;p=chise%2Fxemacs-chise.git.1

(char-db-coded-charset-priority-list): Use
`=jis-x0208@{1978|1983|1990}' instead of `japanese-jisx0208-1978',
`japanese-jisx0208' and `=jis-x0208-1990'.
(char-db-make-char-spec): Use coded-charset not found in
`char-db-coded-charset-priority-list' if a character can not be
represented by any coded-charset in
`char-db-coded-charset-priority-list' nor `=daikanwa'.
---

diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el
index 2b5fe43..66d3995 100644
--- a/lisp/utf-2000/char-db-util.el
+++ b/lisp/utf-2000/char-db-util.el
@@ -127,9 +127,9 @@
     greek-iso8859-7
     thai-tis620
     =jis-x0208
-    japanese-jisx0208
+    =jis-x0208@1978
+    =jis-x0208@1983
     japanese-jisx0212
-    japanese-jisx0208-1978
     chinese-gb2312
     chinese-cns11643-1
     chinese-cns11643-2
@@ -138,7 +138,7 @@
     chinese-cns11643-5
     chinese-cns11643-6
     chinese-cns11643-7
-    =jis-x0208-1990
+    =jis-x0208@1990
     =jis-x0213-1-2000
     =jis-x0213-2-2000
     korean-ksc5601
@@ -205,6 +205,8 @@
 					 =daikanwa@rev2
 					 ;; =gt-k
 					 )))
+			     (setq ccs (charset-name ccs))
+			     (null (assq ccs char-spec))
 			     (setq ret (encode-char char ccs 'defined-only)))
 			(setq char-spec (cons (cons ccs ret) char-spec))))
 		  (if (null char-spec)