(ideographic-structure-compare-functional-and-apparent): In the

rule-813: ⿺⿱LBC -> ⿱⿰LCB, treat A-BC-8D71 as B.

diff --git a/ids-find.el b/ids-find.el
index 0ef26a5..6dffafa 100644 (file)
--- a/ids-find.el
+++ b/ids-find.el
@@ -1730,7 +1730,9 @@ COMPONENT can be a character or char-spec."
                     (memq (encode-char (nth 2 enc-str) '=>ucs@component)
                           '(#x2123C #x58EC))
                     (eq (encode-char (nth 2 enc-str) '=>ucs@iwds-1)
-                        #x7389)))
+                        #x7389)
+                    (eq (encode-char (nth 2 enc-str) '=>big5-cdp)
+                        #x8D71)))
            (unless conversion-only
              (setq f-res (ids-find-chars-including-ids enc-str)))
            (setq new-str (list ?⿰