(U+2D63E): Use "⿴午x" instead of "⿻午x".

[chise/ids.git] / ids-find.el

diff --git a/ids-find.el b/ids-find.el
index 4b3d7ec..181e948 100644 (file)
--- a/ids-find.el
+++ b/ids-find.el
@@ -1,6 +1,6 @@
 ;;; ids-find.el --- search utility based on Ideographic-structures
 
-;; Copyright (C) 2002,2003,2005,2006,2007,2017 MORIOKA Tomohiko
+;; Copyright (C) 2002, 2003, 2005, 2006, 2007, 2017, 2020 MORIOKA Tomohiko
 
 ;; Author: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
 ;; Keywords: Kanji, Ideographs, search, IDS, CHISE, UCS, Unicode
@@ -54,6 +54,11 @@
      (ids-index-store-structure c v)
      nil)
    'ideographic-structure)
+  (map-char-attribute
+   (lambda (c v)
+     (ids-index-store-structure c v)
+     nil)
+   'ideographic-structure@apparent)
   (save-char-attribute-table 'ideographic-products))
 
 
@@ -76,6 +81,9 @@
        (push feature dest)))
     (list* '<-mistakable '->mistakable
           '<-formed '->formed
+          '<-same '->same
+          '<-original '->original
+          '<-ancient '->ancient
           dest)))
 
 (defun to-component-features ()