From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Wed, 26 May 2021 05:12:43 +0000 (+0900)
Subject: (ideographic-structure-compare-functional-and-apparent): Implement
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=685be4a28dd8ef53a0cc963e86527913f1f77a39;p=chise%2Fids.git

(ideographic-structure-compare-functional-and-apparent): Implement
rule-220: ⿹⿱ARL -> ⿱A⿰LR.
---

diff --git a/ids-find.el b/ids-find.el
index 3c46851..be0c66e 100644
--- a/ids-find.el
+++ b/ids-find.el
@@ -954,7 +954,28 @@ COMPONENT can be a character or char-spec."
 		  a-res
 		  (list ?â¿° new-str-c (nth 2 enc-str))
 		  210))
-	  )))
+	  )
+	 ((eq (car enc-str) ?⿱)
+	  (unless conversion-only
+	    (setq f-res (ids-find-chars-including-ids enc-str)))
+	  (setq new-str (list ?â¿°
+			      (nth 2 structure)
+			      (nth 2 enc-str)))
+	  (setq new-str-c
+		(if (setq ret (ideographic-structure-find-chars new-str))
+		    (car ret)
+		  (list (cons 'ideographic-structure new-str))))
+	  (if conversion-only
+	      (list ?⿱ (nth 1 enc-str) new-str-c)
+	    (setq a-res (ids-find-chars-including-ids new-str))
+	    (list enc
+		  f-res
+		  new-str-c
+		  a-res
+		  (list ?⿱ (nth 1 enc-str) new-str-c)
+		  220))
+	  )
+	 ))
       )
      ((eq (get-char-attribute (car structure) '=ucs-itaiji-001) #x2FF6)
       (setq enc (nth 1 structure))