(char-db-make-char-spec): Use `get-char-attribute' instead of
authortomo <tomo>
Thu, 23 Jan 2003 09:23:44 +0000 (09:23 +0000)
committertomo <tomo>
Thu, 23 Jan 2003 09:23:44 +0000 (09:23 +0000)
`split-char' to break up a character which does not have `ucs'
attribute.

lisp/utf-2000/char-db-util.el

index 8bc91e7..38b3001 100644 (file)
                         ))
                  )
                 ((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)