From: tomo <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/gitweb/?a=commitdiff_plain;h=533d79866ec47e68491aaf5a9a48b5f86167e539;p=chise%2Fxemacs-chise.git.1

(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))