From 218083ff5dbe96d50f6cd39c371b5ddf61d16415 Mon Sep 17 00:00:00 2001 From: tomo Date: Thu, 23 Jan 2003 09:23:44 +0000 Subject: [PATCH] (char-db-make-char-spec): Use `get-char-attribute' instead of `split-char' to break up a character which does not have `ucs' attribute. --- lisp/utf-2000/char-db-util.el | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) 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) -- 1.7.10.4