From fa59d08db8a9dff75e269b7033ae74c05b453967 Mon Sep 17 00:00:00 2001 From: tomo Date: Mon, 24 Mar 2003 02:36:33 +0000 Subject: [PATCH] (insert-char-attributes): Convert `=>ucs-cns' to `=>ucs@cns'. --- lisp/utf-2000/char-db-util.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el index 48df7e12..958c3ec 100644 --- a/lisp/utf-2000/char-db-util.el +++ b/lisp/utf-2000/char-db-util.el @@ -489,7 +489,7 @@ ;; line-breaking)) ;; (setq attributes (delq '=>ucs* attributes)) ;; ) - (dolist (name '(=>ucs@gb)) + (dolist (name '(=>ucs@gb =>ucs@cns)) (when (and (memq name attributes) (setq value (get-char-attribute char name))) (insert (format "(%-18s . #x%04X)\t; %c%s" @@ -511,8 +511,8 @@ ) (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-cns value) + (insert (format "(=>ucs@cns\t\t. #x%04X)\t; %c%s" + value (decode-char '=ucs@cns value) line-breaking)) (setq attributes (delq '=>ucs-cns attributes)) ) -- 1.7.10.4