From: tomo Date: Tue, 24 Jul 2001 09:37:04 +0000 (+0000) Subject: (char-db-convert-obsolete-format): New variable. X-Git-Tag: r21-2-38-utf-2000-0_17-1~240 X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=533d79866ec47e68491aaf5a9a48b5f86167e539;p=chise%2Fxemacs-chise.git- (char-db-convert-obsolete-format): New variable. (insert-char-attributes): Don't convert `->ucs' to `=>ucs' if variable `char-db-convert-obsolete-format' is nil; format `->simplified-ideograph' and `<-simplified-ideograph' as character reference. --- diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el index 1555a30..563d6a4 100644 --- a/lisp/utf-2000/char-db-util.el +++ b/lisp/utf-2000/char-db-util.el @@ -275,6 +275,8 @@ ?\u2421) (t ret)))) +(defvar char-db-convert-obsolete-format t) + (defun insert-char-attributes (char &optional readable attributes ccs-attributes column) @@ -324,7 +326,9 @@ ) (when (and (memq '->ucs attributes) (setq value (get-char-attribute char '->ucs))) - (insert (format "(=>ucs\t\t. #x%04X)\t; %c%s" + (insert (format (if char-db-convert-obsolete-format + "(=>ucs\t\t. #x%04X)\t; %c%s" + "(->ucs\t\t. #x%04X)\t; %c%s") value (decode-char 'ucs value) line-breaking)) (setq attributes (delq '->ucs attributes)) @@ -577,6 +581,7 @@ ->fullwidth <-fullwidth ->vulgar-ideograph <-vulgar-ideograph ->ancient-ideograph <-ancient-ideograph + ->simplified-ideograph <-simplified-ideograph ->same-ideograph ->bopomofo)) (insert (format "(%-18s%s " name line-breaking))