From f881aca9b3458e97893aac853afee79833cfc06e Mon Sep 17 00:00:00 2001 From: tomo Date: Thu, 25 May 2000 08:36:39 +0000 Subject: [PATCH] (insert-char-data): Support `insert-char-data'. --- lisp/utf-2000/char-db-util.el | 18 ++++++++++++++++-- 1 file changed, 16 insertions(+), 2 deletions(-) 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 +;; Author: MORIOKA Tomohiko ;; 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) -- 1.7.10.4