From eeedc012fb3636a9a369b6342c6b8b313184ad34 Mon Sep 17 00:00:00 2001 From: tomo Date: Tue, 25 Mar 2003 11:23:17 +0000 Subject: [PATCH] (insert-char-attributes): Convert `=>ucs-jis' to `=>ucs@jis'. --- 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 958c3ec..2199bff 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 =>ucs@cns)) + (dolist (name '(=>ucs@gb =>ucs@cns =>ucs@jis)) (when (and (memq name attributes) (setq value (get-char-attribute char name))) (insert (format "(%-18s . #x%04X)\t; %c%s" @@ -525,8 +525,8 @@ ) (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) + (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)) ) -- 1.7.10.4