From 421d484fca9389616e19ed4a66c8b9d806896cff Mon Sep 17 00:00:00 2001 From: tomo Date: Sun, 24 Nov 2002 15:34:55 +0000 Subject: [PATCH] (insert-char-attributes): Add setting for `=>ucs-gb'. --- lisp/utf-2000/char-db-util.el | 17 ++++++++++++----- 1 file changed, 12 insertions(+), 5 deletions(-) diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el index 89a606e..8e8ad26 100644 --- a/lisp/utf-2000/char-db-util.el +++ b/lisp/utf-2000/char-db-util.el @@ -458,12 +458,12 @@ line-breaking)) (setq attributes (delq '=>ucs* 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" - value (decode-char 'ucs-jis value) + (when (and (memq '=>ucs-gb attributes) + (setq value (get-char-attribute char '=>ucs-gb))) + (insert (format "(=>ucs-gb\t\t. #x%04X)\t; %c%s" + value (decode-char 'ucs value) line-breaking)) - (setq attributes (delq '=>ucs-jis attributes)) + (setq attributes (delq '=>ucs-gb attributes)) ) (when (and (memq '=>ucs-cns attributes) (setq value (get-char-attribute char '=>ucs-cns))) @@ -472,6 +472,13 @@ line-breaking)) (setq attributes (delq '=>ucs-cns 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" + value (decode-char 'ucs-jis value) + line-breaking)) + (setq attributes (delq '=>ucs-jis 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