From e64c0ae8d7b2855ac347ad4547f560dd63d1724d Mon Sep 17 00:00:00 2001 From: tomo Date: Wed, 6 Nov 2002 08:36:11 +0000 Subject: [PATCH] (insert-char-attributes): Use `ucs-{jis|cns}' character in the comment for a '=>ucs-{jis|cns}' property. --- lisp/utf-2000/char-db-util.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el index 2073fd1..95e7f14 100644 --- a/lisp/utf-2000/char-db-util.el +++ b/lisp/utf-2000/char-db-util.el @@ -485,14 +485,14 @@ (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" - value (decode-char 'ucs value) + value (decode-char 'ucs-jis value) line-breaking)) (setq attributes (delq '=>ucs-jis attributes)) ) (when (and (memq '=>ucs-cns attributes) (setq value (get-char-attribute char '=>ucs-cns))) (insert (format "(=>ucs-cns\t\t. #x%04X)\t; %c%s" - value (decode-char 'ucs value) + value (decode-char 'ucs-cns value) line-breaking)) (setq attributes (delq '=>ucs-cns attributes)) ) -- 1.7.10.4