From: tomo <tomo>
Date: Fri, 19 Oct 2001 17:49:23 +0000 (+0000)
Subject: (char-db-coded-charset-priority-list): New variable.
X-Git-Tag: r21-2-41-utf-2000-0_18-1~113
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=df0888bbae7c0121f9f43d4503c11063c077768a;p=chise%2Fxemacs-chise.git-

(char-db-coded-charset-priority-list): New variable.
(char-db-insert-char-spec): Use `char-db-coded-charset-priority-list'
to split a character.
---

diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el
index ce40042..cbf81eb 100644
--- a/lisp/utf-2000/char-db-util.el
+++ b/lisp/utf-2000/char-db-util.el
@@ -116,6 +116,10 @@
    ((symbolp kb)
     nil)))
 
+(defvar char-db-coded-charset-priority-list
+  (sort (copy-list default-coded-charset-priority-list)
+	#'char-attribute-name<))
+
 (defun char-db-insert-char-spec (char &optional readable column)
   (unless column
     (setq column (current-column)))
@@ -127,7 +131,10 @@
 		  (if (setq ret (get-char-attribute char 'name))
 		      (setq char-spec (cons (cons 'name ret) char-spec)))
 		  )
-		 ((setq ret (split-char char))
+		 ((setq ret
+			(let ((default-coded-charset-priority-list
+				char-db-coded-charset-priority-list))
+			  (split-char char)))
 		  (setq char-spec (list ret))
 		  (dolist (ccs (delq (car ret) (charset-list)))
 		    (if (or (and (>= (charset-iso-final-char ccs) ?0)