From: tomo <tomo>
Date: Thu, 23 Jan 2003 09:23:44 +0000 (+0000)
Subject: (char-db-make-char-spec): Use `get-char-attribute' instead of
X-Git-Tag: r21-4-10-utf-2000-0_20-5~158
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=218083ff5dbe96d50f6cd39c371b5ddf61d16415;hp=936ebce058a1bd9563e9af17cd26f1728ed30d2a;p=chise%2Fxemacs-chise.git-

(char-db-make-char-spec): Use `get-char-attribute' instead of
`split-char' to break up a character which does not have `ucs'
attribute.
---

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)