From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Tue, 6 Oct 2020 07:28:53 +0000 (+0900)
Subject: (ideographic-structure-compare-functional-and-apparent): Implement
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=82c30bf4386e439e85b4c4d107a67bc0725fe665;p=chise%2Fids.git

(ideographic-structure-compare-functional-and-apparent): Implement
rule-710: ⿷⿺NAC -> ⿺N⿱AC.
---

diff --git a/ids-find.el b/ids-find.el
index 32bffc7..082299f 100644
--- a/ids-find.el
+++ b/ids-find.el
@@ -1766,6 +1766,37 @@ COMPONENT can be a character or char-spec."
 	    )
 	  )))
       )
+     ((eq (car structure) ?â¿·)
+      (setq enc (nth 1 structure))
+      (when (setq enc-str
+		  (cond ((characterp enc)
+			 (get-char-attribute enc 'ideographic-structure)
+			 )
+			((consp enc)
+			 (cdr (assq 'ideographic-structure enc))
+			 )))
+	(cond
+	 ((eq (car enc-str) ?⿺)
+	  (unless conversion-only
+	    (setq f-res (ids-find-chars-including-ids enc-str)))
+	  (setq new-str (list ?⿱
+			      (nth 2 enc-str)
+			      (nth 2 structure)))
+	  (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)
+		  710))
+	  )))
+      )
      ((eq (car structure) ?â¿»)
       (setq enc (nth 1 structure))
       (when (setq enc-str