From 18c444cfb5922a61da6915ddfbf9a35a808ee072 Mon Sep 17 00:00:00 2001 From: tomo Date: Sat, 22 Feb 2003 08:04:04 +0000 Subject: [PATCH] (insert-char-attributes): Add setting for `=>ucs-big5'. --- lisp/utf-2000/char-db-util.el | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el index 5a89f4a..fde378a 100644 --- a/lisp/utf-2000/char-db-util.el +++ b/lisp/utf-2000/char-db-util.el @@ -522,6 +522,13 @@ line-breaking)) (setq attributes (delq '=>ucs-cns attributes)) ) + (when (and (memq '=>ucs-big5 attributes) + (setq value (get-char-attribute char '=>ucs-big5))) + (insert (format "(=>ucs-big5\t\t. #x%04X)\t; %c%s" + value (decode-char 'ucs-big5 value) + line-breaking)) + (setq attributes (delq '=>ucs-big5 attributes)) + ) (when (and (memq '=>ucs-jis attributes) (setq value (get-char-attribute char '=>ucs-jis))) (insert (format "(=>ucs-jis\t\t. #x%04X)\t; %c%s" -- 1.7.10.4