From 8af705dc2e1e1b4d0cde219d2ea2f85ad9638ea2 Mon Sep 17 00:00:00 2001 From: tomo Date: Mon, 19 Jun 2000 11:37:58 +0000 Subject: [PATCH] (insert-char-range-data): Use `decode-char' instead of `int-char'; check `ucs' attribute. --- lisp/utf-2000/char-db-util.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el index 0d72cef..611f2b5 100644 --- a/lisp/utf-2000/char-db-util.el +++ b/lisp/utf-2000/char-db-util.el @@ -505,8 +505,9 @@ (let ((code min) char) (while (<= code max) - (setq char (int-char code)) - (insert-char-data-with-variant char script) + (setq char (decode-char 'ucs code)) + (if (get-char-attribute char 'ucs) + (insert-char-data-with-variant char script)) (setq code (1+ code)) ))) -- 1.7.10.4