From 533d79866ec47e68491aaf5a9a48b5f86167e539 Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Tue, 24 Jul 2001 09:37:04 +0000
Subject: [PATCH] (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.

---
 lisp/utf-2000/char-db-util.el |    7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

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