Commit 69862c23 authored by MORIOKA Tomohiko's avatar MORIOKA Tomohiko
Browse files

(char-db-dump-additional-idc): Check `=ucs-itaiji-002'.

parent 00796549
;;; 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)
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment