From: tomo <tomo>
Date: Tue, 5 Oct 2010 08:20:13 +0000 (+0000)
Subject: (char-db-coded-charset-priority-list): Add `=>ucs@jis'.
X-Git-Tag: chise-base-0_25-1^20~48
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=4d03689beca8b3077a624b4fbe870a5e47ac171e;p=chise%2Fxemacs-chise.git-

(char-db-coded-charset-priority-list): Add `=>ucs@jis'.
(insert-char-attributes): Treat `=>ucs@jis' as a coded-charset.
---

diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el
index 584bfa7..07f89e7 100644
--- a/lisp/utf-2000/char-db-util.el
+++ b/lisp/utf-2000/char-db-util.el
@@ -173,6 +173,7 @@
     ==>ucs@bucs
     =>ucs@iso
     =>ucs@unicode
+    =>ucs@jis
     =>ucs@cns
     =>>ucs@unicode
     =>>ucs@jis
@@ -645,7 +646,7 @@
 			name value (decode-char '=ucs value)
 			line-breaking))
 	(setq attributes (delq name attributes))))
-    (dolist (name '(=>ucs@gb =>ucs@jis =>ucs@ks =>ucs@big5))
+    (dolist (name '(=>ucs@gb =>ucs@ks =>ucs@big5))
       (when (and (memq name attributes)
 		 (setq value (get-char-attribute char name)))
 	(insert (format "(%-18s . #x%04X)\t; %c%s"