From: tomo Date: Wed, 2 Apr 2003 16:11:05 +0000 (+0000) Subject: (insert-char-attributes): Convert `=>ucs-big5' to `=>ucs@big5'. X-Git-Tag: r21-4-11-chise-0_20-=ucs-big5^2~2 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=4dca69826d130017d7e45b4eaa8cb40e09afc94d;p=chise%2Fxemacs-chise.git- (insert-char-attributes): Convert `=>ucs-big5' to `=>ucs@big5'. --- diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el index bd012a6..6fac55d 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 =>ucs@jis =>ucs@ks)) + (dolist (name '(=>ucs@gb =>ucs@cns =>ucs@jis =>ucs@ks =>ucs@big5)) (when (and (memq name attributes) (setq value (get-char-attribute char name))) (insert (format "(%-18s . #x%04X)\t; %c%s" @@ -502,7 +502,7 @@ line-breaking)) (setq attributes (delq name attributes)) )) - (dolist (name '(=>ucs-gb =>ucs-cns =>ucs-jis =>ucs-ks)) + (dolist (name '(=>ucs-gb =>ucs-cns =>ucs-jis =>ucs-ks =>ucs-big5)) (when (and (memq name attributes) (setq value (get-char-attribute char name))) (insert (format "(%-18s . #x%04X)\t; %c%s" @@ -531,13 +531,13 @@ ;; line-breaking)) ;; (setq attributes (delq '=>ucs-cns attributes)) ;; ) - (when (and (memq '=>ucs-big5 attributes) - (setq value (get-char-attribute char '=>ucs-big5))) - (insert (format "(=>ucs-big5\t\t. #x%04X)\t; %c%s" - value (decode-char 'ucs-big5 value) - line-breaking)) - (setq attributes (delq '=>ucs-big5 attributes)) - ) + ;; (when (and (memq '=>ucs-big5 attributes) + ;; (setq value (get-char-attribute char '=>ucs-big5))) + ;; (insert (format "(=>ucs-big5\t\t. #x%04X)\t; %c%s" + ;; value (decode-char 'ucs-big5 value) + ;; line-breaking)) + ;; (setq attributes (delq '=>ucs-big5 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"