From: tomo Date: Fri, 16 Nov 2001 17:31:18 +0000 (+0000) Subject: (char-db-insert-char-spec): Modify for new behavior of X-Git-Tag: r21-2-43-no-et-1~26 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b74570a3399936fcdbaf31554d7f4508f9eaa30d;p=chise%2Fxemacs-chise.git (char-db-insert-char-spec): Modify for new behavior of `charset-iso-final-char'. --- diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el index 2eeb053..bc8e6a5 100644 --- a/lisp/utf-2000/char-db-util.el +++ b/lisp/utf-2000/char-db-util.el @@ -184,7 +184,7 @@ (split-char char))) (setq char-spec (list ret)) (dolist (ccs (delq (car ret) (charset-list))) - (if (or (and (>= (charset-iso-final-char ccs) ?0) + (if (or (and (charset-iso-final-char ccs) (setq ret (get-char-attribute char ccs))) (eq ccs 'ideograph-daikanwa)) (setq char-spec (cons (cons ccs ret) char-spec))))