From: MORIOKA Tomohiko Date: Tue, 6 Jul 2021 07:24:16 +0000 (+0900) Subject: (char-db-dump-additional-idc): Check `=ucs-itaiji-002'. X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=69862c23217763e218e0784a5a9b8551938ba86a;p=chise%2Ftomoyo-tools.git (char-db-dump-additional-idc): Check `=ucs-itaiji-002'. --- diff --git a/char-db-dump.el b/char-db-dump.el index f0ff61f..7967af2 100644 --- a/char-db-dump.el +++ b/char-db-dump.el @@ -1,6 +1,6 @@ ;;; char-db-dump.el --- Dump utility of char-spec files -;; Copyright (C) 2002,2003,2004,2005,2010,2018,2019,2020 MORIOKA Tomohiko +;; Copyright (C) 2002,2003,2004,2005,2010,2018,2019,2020,2021 MORIOKA Tomohiko ;; Author: MORIOKA Tomohiko ;; Keywords: Ideographs, Character Database, CHISE, UCS, Unicode @@ -241,7 +241,8 @@ (unless (memq c chars) (insert-char-data c) (setq chars (cons c chars)))))) - (dolist (ccs '(=ucs-var-001 =ucs-var-002 =ucs-var-003 =ucs-itaiji-001)) + (dolist (ccs '(=ucs-var-001 =ucs-var-002 =ucs-var-003 + =ucs-itaiji-001 =ucs-itaiji-002)) (when (setq chr (decode-char ccs i 'defined-only 'without-inheritance)) (unless (memq chr chars) (insert-char-data chr)