X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Futf-2000%2Fchar-db-util.el;h=38b3001fb0970a013c0341d2087861e20b27cd51;hb=218083ff5dbe96d50f6cd39c371b5ddf61d16415;hp=8bc91e79398fb97f786fe011eb22352996b3ac35;hpb=936ebce058a1bd9563e9af17cd26f1728ed30d2a;p=chise%2Fxemacs-chise.git-

diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el
index 8bc91e7..38b3001 100644
--- a/lisp/utf-2000/char-db-util.el
+++ b/lisp/utf-2000/char-db-util.el
@@ -160,9 +160,13 @@
 			 ))
 		  )
 		 ((setq ret
-			(let ((default-coded-charset-priority-list
-				char-db-coded-charset-priority-list))
-			  (split-char char)))
+			(catch 'tag
+			  (let ((rest char-db-coded-charset-priority-list))
+			    (while rest
+			      (if (setq ret
+					(get-char-attribute char (car rest)))
+				  (throw 'tag (cons (car rest) ret)))
+			      (setq rest (cdr rest))))))
 		  (setq char-spec (list ret))
 		  (dolist (ccs (delq (car ret) (charset-list)))
 		    (if (or (and (charset-iso-final-char ccs)