From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Sun, 5 Dec 2021 01:46:23 +0000 (+0900)
Subject: (ideographic-structure-compare-functional-and-apparent): In the
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=83fed1261e98179a6654a3f6617f4fcc53fa47eb;p=chise%2Fids.git

(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
--- 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 ?â¿°