From: tomo <tomo>
Date: Thu, 25 May 2000 08:36:39 +0000 (+0000)
Subject: (insert-char-data): Support `insert-char-data'.
X-Git-Tag: r21-2-33-utf-2000-0_15-1~7
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=f881aca9b3458e97893aac853afee79833cfc06e;p=chise%2Fxemacs-chise.git

(insert-char-data): Support `insert-char-data'.
---

diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el
index c69fb55..c9ebf1a 100644
--- a/lisp/utf-2000/char-db-util.el
+++ b/lisp/utf-2000/char-db-util.el
@@ -1,8 +1,8 @@
 ;;; char-db-util.el --- Character Database utility
 
-;; Copyright (C) 1998, 1999 MORIOKA Tomohiko.
+;; Copyright (C) 1998,1999,2000 MORIOKA Tomohiko.
 
-;; Author: MORIOKA Tomohiko <tomo@m17n.org>
+;; Author: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
 ;; Keywords: UTF-2000, ISO/IEC 10646, Unicode, UCS-4, MULE.
 
 ;; This file is part of UTF-2000.
@@ -320,6 +320,20 @@
 			  cell))
 	  (setq data (del-alist 'total-strokes data))
 	  )
+	(when (setq cell (assq '->ideograph data))
+	  (setq cell (cdr cell))
+	  (insert (format "(->ideograph\t%s)
+    "
+			  (mapconcat (lambda (code)
+				       (cond ((symbolp code)
+					      (symbol-name code))
+					     ((integerp code)
+					      (format "#x%04X" code))
+					     (t
+					      (format "\n     %S" code))))
+				     cell " ")))
+	  (setq data (del-alist '->ideograph data))
+	  )
 	(when (setq cell (assq '->decomposition data))
 	  (setq cell (cdr cell))
 	  (insert (format "(->decomposition\t%s)