(insert-char-data): Support `insert-char-data'.
authortomo <tomo>
Thu, 25 May 2000 08:36:39 +0000 (08:36 +0000)
committertomo <tomo>
Thu, 25 May 2000 08:36:39 +0000 (08:36 +0000)
lisp/utf-2000/char-db-util.el

index c69fb55..c9ebf1a 100644 (file)
@@ -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.
                          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)