From 44caaf6e559d14383c6113d475f9588ef779aee5 Mon Sep 17 00:00:00 2001 From: tomo Date: Wed, 27 Nov 2002 10:48:56 +0000 Subject: [PATCH] (insert-char-attributes): Add formatter for `=>ucs-ks'. --- 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 8e8ad26..b97b92c 100644 --- a/lisp/utf-2000/char-db-util.el +++ b/lisp/utf-2000/char-db-util.el @@ -479,6 +479,13 @@ line-breaking)) (setq attributes (delq '=>ucs-jis attributes)) ) + (when (and (memq '=>ucs-ks attributes) + (setq value (get-char-attribute char '=>ucs-ks))) + (insert (format "(=>ucs-ks\t\t. #x%04X)\t; %c%s" + value (decode-char 'ucs-ks value) + line-breaking)) + (setq attributes (delq '=>ucs-ks attributes)) + ) (when (and (memq '->ucs attributes) (setq value (get-char-attribute char '->ucs))) (insert (format (if char-db-convert-obsolete-format -- 1.7.10.4